Hvordan sættes kriteries for formular?

Indsæt dette i formularens VedIndlæsning:

Private Sub Form_Load()
Dim a As Double
a = InputBox(Prompt:="Indtast id", Title:="Find post", Default:="")
DoCmd.FindRecord a, acEntire, False, , True, acCurrent, True
End Sub

Det fungerer ikke... jeg får ikke nogen fejlmeddelselse, og dialogboksen kommer godt nok også.... men den starter altid med den samme post!

Hvad kan det skyldes?

Jeg har afprøvet det og det virker, som mugs har lavet det.
Jeg kan sende den som test db.

Okay... det må du gerne...


mail@mdw.dk

lasseq > check tabulatorrækkefølgen. Prøv enten at saætte feltet id til nr. 1 eller sørg for, at markøren går til feltet inden koden afspilles:

Dim a As Double
DoCmd.GoToControl "id"
a = InputBox(Prompt:="Indtast id", Title:="Find post", Default:="")
DoCmd.FindRecord a, acEntire, False, , True, acCurrent, True

Er sendt i xp.  :o)

Hej Henrik13.
Kan du sende den som en zipper?

Er zippet og sendt.    :O)

okay... tak til begge to... jeg tror jeg fik det løsnet nu!


Et lidt simpelt spørgsmål til jer DB-proffer... Men endnu engang tak :D

Venlig hilsen
Lasse Quorning