Søgning i formular

Opret en textbox, kald den f.eks. SeekThis.
I boksens EfterOpdatering hændelse skriver du:

' Hop til kontonr. og søg
Me.KontoNr.SetFocus
DoCmd.FindRecord SeekThis, acStart, , acSearchAll, , acCurrent
' Nulstil søgefelt igen
Me.SeekThis = ""
Me.SeekThis.SetFocus

Hvorfor kan jeg ikke finde kontonr i  "Me.KontoNr.SetFocus" ? skal jeg have et felt der hedder KontoNr?

Okay, nu virker det, men kan man ikke lave det uden at skulle bruge to af de samme felter (Seekthis og Kontonr)?

Du har jo det problem, at boksen KontoNr er bundet til feltet KontoNr i den underliggende tabel. Hvis du indtaster søgekriteriet direkte i KontoNr boksen, retter du jo den aktuelle kontos nr.
Du må i givet fald huske det korrekte nr. inden du "ødelægger" det.

Som regel vil man vel gerne undgå at ændre den aktuelle post blot for at søge.
Løsningen med et separat søgefelt virker vel også umiddelbart mere pædagogisk korrekt, eller hvad?

Okay, Men jeg skal lige høre, Hvis der ikke findes nogen poster for det nummer som man indtaster, skal der komme en meddelelse om det. Hvordan kan jeg undersøge om "DoCmd.FindRecord SeekThis, acStart, , acSearchAll, , acCurrent" returnere en post?

Prøv den her:

Private Sub Felt1_AfterUpdate()
  Dim Krit As String
  Krit = Me.Felt1
  Me.Undo
  DoCmd.FindRecord Krit, acEntire, , acSearchAll, , acCurrent, True
  If Me.Felt1 <> Krit Then
    MsgBox "Ikke fundet"
  End If
End Sub

Hellooooo! Virkede det?

Hej igen, undskyld at jeg først dukker op nu...Jeg har prøvet det du har givet mig, det første virkede godt, men det andet virkede ikke. Hvis vi nu kigger på det første kode som du gav mig, hvorsdan kan vi sætte en validering ind? Når der ikke er nogen post for det intastede kundeNr, så skal jeg have en meddelelse.

Welcome back. Hvad med:

' Hop til kontonr. og søg
Me.KontoNr.SetFocus
DoCmd.FindRecord SeekThis, acStart, , acSearchAll, , acCurrent
' Post fundet?
If str(Me.KontoNr) <> str(Me.SeekThis) Then
  MsgBox Me.SeekThis & " ikke fundet"
End If
' Nulstil søgefelt igen
Me.SeekThis = ""
Me.SeekThis.SetFocus

Hvorfor virkede løsning 2 i øvrigt ikke? Det kører da fint her.

Tak for det...;o)