Hallo,
Ik ben in Acces bezig om formulieren te maken voor een Autodatabase. Nu heb ik een zoekfunctie ingebouwd en die werkt perfect. Nu wil ik alleen dat wanneer er een kenteken niet wordt gevonden er een messagebox wordt getoond met de melding van "Kenteken niet gevonden".
Het probleem is dat ik deze melding nu altijd krijg dus ook wanneer het juiste kenteken wordt gevonden.
Ik ben in Acces bezig om formulieren te maken voor een Autodatabase. Nu heb ik een zoekfunctie ingebouwd en die werkt perfect. Nu wil ik alleen dat wanneer er een kenteken niet wordt gevonden er een messagebox wordt getoond met de melding van "Kenteken niet gevonden".
Het probleem is dat ik deze melding nu altijd krijg dus ook wanneer het juiste kenteken wordt gevonden.
code:
1
2
3
4
5
6
7
| Private Sub btn_Zoek2_Click()
Me.Filter = "kenteken like '" & txtInvoer1.Value & "*'+'" & txtInvoer2.Value & "*'+'" & txtInvoer3.Value & "*'"
Me.FilterOn = True
If Not Me.kenteken = Me.txtInvoer1 & "*'+'" & Me.txtInvoer2 & "*'+'" & Me.txtInvoer3 Then
MsgBox "Kenteken niet gevonden"
End If
End Sub |