Kan niet zoeken op een lage nummer

[Palmpje60]

Hallo allemaal,

Mijn vraag, ik heb een tabel met nummers, deze beginnen met 1 t/m 1755.

Nu heb ik een niet afhankelijke tekstveld in mijn formulier staan om op nummer te zoeken.
Maar als ik b.v. nummer 1 wil zoeken, komt er een nummer die b.v. begint met 1011, dus als er een 1 in voorkomt wordt dit getoond, maar ik wil gewoon nummer 1 hebben, en dat lukt mij niet om het voor elkaar te krijgen.

Ik heb de onderstaande code:

Private Sub txtZoekveld2_AfterUpdate()

Dim rsClone As Recordset

Set rsClone = Me.Recordset

With rsClone

.FindFirst "[Locker] like ""*" & Me.txtZoekveld2 & "*"""

If .NoMatch Then

MsgBox "Gezochte Item is niet gevonden!", vbInformation, " "

Else

Me.Bookmark = .Bookmark

End If

'Maak het zoekveld weer leeg.
Me.txtZoekveld2 = ""

End With

Set rsClone = Nothing

'Zet de focus weer op het veld pasnummer.
Pas.SetFocus
Pas.SelStart = Len(Nz(Pas))

End Sub

Ik moet nog wel opmerken dat het betreffende veld een numerieke veld is. En er zijn geen voorloop nullen.

Ik werk met Access 2003.

Alvast bedankt voor de moeite.

Groet Palmpje60

 

[OctaFish]

Als je met een numeriek veld werkt, wat ik uiteraard al vermoedde, waarom deze regel:

.FindFirst "[Locker] like ""*" & Me.txtZoekveld2 & "*"""

Die zorgt er inderdaad voor dat je alles vind waar een 1 in voorkomt als je een 1 intypt. Het moet derhalve dit zijn:

.FindFirst "[Locker] =" & Me.txtZoekveld2

En zet de volgende keer je code tussen de Code tag, dat leest beter

 

[Palmpje60]

Sorry was ik even vergeten om te doen, zal niet meer gebeuren.

Maar in ieder geval bedankt voor de oplossing, zo leer ik steeds wat meer.

Groet Palmpje60

 

[OctaFish]

No probs! Je mag de vraag ook nog op opgelost zetten, als je verder geen vragen meer hebt. Overigens kun je dit ook eens proberen:

Me.Pas.SelStart = Me.Pas.Sellength

 

[Palmpje60]

Hallo OctaFish,

Heb het toegepast, en dit was wat ik zocht, het werkt uitstekend, nogmaals mijn dank.

Groet Palmpje 60

 

[Palmpje60]

[SQL]Me.Pas.SelStart = Me.Pas.Sellength[/SQL], ook dat werkt goed, bedankt voor de tip.