mit Microsoft Access Datenbank
Dim db As Database
Dim rec As Recordset
Dim xau As String
Dim str As String
Set db = OpenDatabase(App.Path & "/Lager")
Set rec = db.OpenRecordset("Artikel")
str = Me.cbtype.Text
Do Until rec.EOF
If rec.NoMatch Then
MsgBox "nicht gefunden"
Else
' bis hier weiss ich nicht mehr wie mache ich weiter.
xau = rec("Artikel-nr")
Me.cbartikelnr.AddItem xau
rec.MoveNext
End If
End If
Loop
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
