In nächste Zeile springen per VBA

Computer: Software & Programmierung Microsoft Access
1

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 :wink:

mfG

2

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

3

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 :wink: