Toon posts:

[VBA] Acces kenteken zoekfunctie

Pagina: 1
Acties:

Verwijderd

Topicstarter
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.


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

  • Remco
  • Registratie: Januari 2001
  • Laatst online: 17:38
Ik denk dat je bij je vergelijking je string niet goed samensteld.
Is het de opmaak van het kenteken uit je database precies gelijk aan die van je invoer ?
Als je lijn 4 nou eens naar een label wegschrijft, beide waardes kan je ze even vergelijken.
Ik vermoed dat er daar iets fout gaat.

The best thing about UDP jokes is that I don't care if you get them or not.