In einer UF werden die Suchtreffer in einer Listbox angezeigt. Bei Klick auf den angezeigten Treffer wird alles in die Textfelder geschrieben. Z.B. so:
With frmDaten_01_Januar
.TextBox1.Value = .ListBox1.Column(0, .ListBox1.ListIndex)
.TextBox2.Value = .ListBox1.Column(1, .ListBox1.ListIndex)
.TextBox3.Value = .ListBox1.Column(2, .ListBox1.ListIndex)
.TextBox4.Value = .ListBox1.Column(3, .ListBox1.ListIndex)
.TextBox6.Value = .ListBox1.Column(4, .ListBox1.ListIndex)
.TextBox7.Value = .ListBox1.Column(5, .ListBox1.ListIndex)
.TextBox8.Value = .ListBox1.Column(6, .ListBox1.ListIndex)
.TextBox5.Value = .ListBox1.Column(7, .ListBox1.ListIndex)
End With
Nun bastelte ich folgendes Stück Code dazu:
If Me.TextBox5.Value > 0 Then
Else
Me.TextBox5.Value = 0
End If
Erreichen will ich damit, dass wenn nach erfolgter Suche kein Treffer für die TextBox5 gefunden wurde, dass bei Klick auf den ListenBox - Eintrag eine Null erscheint (Null = 0). Wo ist mein Fehler?
Ich danke euch für die Hilfe!!!
M. f. G. Frank H.