Servus miteinander,
folgendes:
Private Sub Befehl25_Click()
Dim SqlStr As String
Set Database = CurrentDb()
SqlStr = „SELECT Bezeichnung AS spalte FROM Tabelle;“
Set Recordset = Database.OpenRecordset(SqlStr, dbOpenDynaset)
MsgBox Recordset!spalte
Mit diesem Code wird der Inhalt der ersten Zeile der Spalte „Bezeichnung“ ausgegeben. Also:„asd“
Wie könnte ich es hinbekommen, dass er sagt: „Zeile 1 = asd“, „Zeile 2 = bcd“…usw
Danke euch für Tipps 
mfG
Hallo,
und für was ist das sinnvoll?
Private Sub Befehl25_Click()
Dim SqlStr As String, DB as Database, rs as Dao.Recordset, strText as String
Set DB = CurrentDb()
SqlStr = „SELECT Bezeichnung FROM Tabelle;“
Set rs = Db.OpenRecordset(SqlStr, dbOpenSnapShot)
Do until rs.eof
strText=strText & "Zeile " & rs.Currentrecord + 1 & " = " & rs!Bezeichnung & ", "
rs.Movenext
Loop
rs.close
set rs=Nothing
MsgBox strText
End Sub
Gruß
Franz
Nun ja es dürfen in jeder Zeile nur bestimmte Zeichen vorkommen und da wollt ich ein Programm schreiben, dass mir dann sagt „Fehler in Zeile xy“ usw.
Aber thx 4 your help