Geacht forum leden,
Mijn vraag, ik heb 2 kleine probleempjes, ik zal proberen om het zo goed mogelijk uit te leggen.
Onderstaande routine werkt uitstekend, maar nu komt het, ik wil een msgbox die een melding geeft als betreffende item niet bestaat, ik heb al op div. plekken deze msgbox geplaatst, maar dan komt er ook een melding dat het item niet gevonden is, deze msgbox staat nu niet tussen de code omdat het niet goed werkte, dus wat doe ik fout of ben ik wat vergeten.
De 2e vraag is, als ik op Locker zoek, dus het nummer van de locker die b.v. begint met 1, dan wordt deze niet gevonden, zoek ik op een hogere nummer dan wordt deze wel gevonden, dus ook hier, wat doe ik fout.
Het veld pas in de tabel is gewoon een tekstveld, en het veld locker is numeriek.
Private Sub txtZoekveld_AfterUpdate()
Dim rsClone As Recordset
Set rsClone = Me.Recordset
With rsClone
.FindFirst "[Pas] like ""*" & Me.txtZoekveld & "*"""
If .NoMatch Then
.FindFirst "[Locker] like ""*" & Me.txtZoekveld & "*"""
Else
Me.Bookmark = .Bookmark
End If
Me.txtZoekveld = ""
End With
Set rsClone = Nothing
Pas.SetFocus
Pas.SelStart = Len(Nz(Pas))
End Sub
Alvast bedankt voor het meedenken
Groet Palmpje60
Mijn vraag, ik heb 2 kleine probleempjes, ik zal proberen om het zo goed mogelijk uit te leggen.
Onderstaande routine werkt uitstekend, maar nu komt het, ik wil een msgbox die een melding geeft als betreffende item niet bestaat, ik heb al op div. plekken deze msgbox geplaatst, maar dan komt er ook een melding dat het item niet gevonden is, deze msgbox staat nu niet tussen de code omdat het niet goed werkte, dus wat doe ik fout of ben ik wat vergeten.
De 2e vraag is, als ik op Locker zoek, dus het nummer van de locker die b.v. begint met 1, dan wordt deze niet gevonden, zoek ik op een hogere nummer dan wordt deze wel gevonden, dus ook hier, wat doe ik fout.
Het veld pas in de tabel is gewoon een tekstveld, en het veld locker is numeriek.
Private Sub txtZoekveld_AfterUpdate()
Dim rsClone As Recordset
Set rsClone = Me.Recordset
With rsClone
.FindFirst "[Pas] like ""*" & Me.txtZoekveld & "*"""
If .NoMatch Then
.FindFirst "[Locker] like ""*" & Me.txtZoekveld & "*"""
Else
Me.Bookmark = .Bookmark
End If
Me.txtZoekveld = ""
End With
Set rsClone = Nothing
Pas.SetFocus
Pas.SelStart = Len(Nz(Pas))
End Sub
Alvast bedankt voor het meedenken
Groet Palmpje60
