Blaubmania
Erfahrenes Mitglied
Hi,
kurz und bündig, wie leere ich ein Listenfeld bzw. wie lösche ich den Inhalt?! Das ganze soll unter VBA Access funktionieren! und dann nochn bischen Code der zum füllen des Listenfeldes dient.
kurz und bündig, wie leere ich ein Listenfeld bzw. wie lösche ich den Inhalt?! Das ganze soll unter VBA Access funktionieren! und dann nochn bischen Code der zum füllen des Listenfeldes dient.
Visual Basic:
Private Sub txtsucher_GotFocus()
Dim db As Database
Dim r As Recordset
Dim i As Integer
Dim j As Integer
If Len(Me.txtsucher) > 2 Then
Set db = CurrentDb
Set r = db.OpenRecordset("Kunde", dbOpenDynaset)
Me.lstkunden.ColumnCount = 4
r.FindFirst "Nachname Like '" & Me.txtsucher & "*'"
Do While r.NoMatch = False
Me.lstkunden.AddItem r![Kunde-ID] & ";" & r![Nachname] & ";" & r![Vorname] & ";" & r![Gebaeude] & ";"
r.FindNext "Nachname Like '" & Me.txtsucher & "*'"
Loop
End If
End Sub