goto primery key

[Millstreet]

Hallo,

Met de zoekfunktie vind ik niet wat ik zoek, dus vandaar een vraag.

Kunnen jullie mij op weg helpen? het probleem is dat ik vanuit een formulier met een muisklik op een tekstvak naar een bepaald recordnummer wil springen.
Met dit stukje code DoCmd.GoToRecord acDataForm, "Employees", acGoTo, 7 springt de focus naar regel 7, maar als ik de alfabetische volgorde verander staat er een ander record op no 7. dat is niet de bedoeling.
Graag wil ik dat het regelnummer uit een numeriekveld wordt uitgelezen.

Is dit te doen? en kost dit veel tijd om te verzinnen?

bvd
Johan

 

[OctaFish]

Gebruik de code die je krijgt als je een record wilt opzoeken met een keuzelijst, en pas die een beetje aan. Je krijgt dan iets als:

    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Id] = " & Str(Nz(Me![ZoekVeld], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

 

[Millstreet]

Hallo Michel,

bedankt voor jouw snelle reactie!
helaas ben ik geen kei in het vba. Zou je de code in grote lijnen willen uitleggen zodat het ik wat gerichter kan aanpassen?

bvd johan

Ik heb het volgens mij al aan de praat! Ik ga nog even kijken of het echt werkt

bedankt!