Søg medlem

Lav et ubundet felt der hedder Søg.
Lav en knap og tildel den denne kode.

Private Sub SøgNavn_Click()
On Error GoTo Err_SøgNavn_Click

    With CodeContextObject
        DoCmd.GoToControl "Navn"
        DoCmd.FindRecord .[Søg], acAnywhere, False, acDown, False, , True
        DoCmd.GoToControl "[FindNæsteNavn]"
                         
      End With

Exit_SøgNavn_Click:
    Exit Sub

Err_SøgNavn_Click:
msgtekst = "Du skal skrive noget i søgefeltet."
    ok = MsgBox(msgtekst, , "Hvad søger du")
    Me.Søg.SetFocus
   
    Resume Exit_SøgNavn_Click


End Sub

Lav en ny knap der hedder, Find næsteNavn.
Og tildel den denne kode.

Private Sub FindNæsteNavn_Click()
On Error GoTo FindNæsteNavn_Err
   
    AktuelPost = [NavneID]
    DoCmd.GoToControl "Navn"
    DoCmd.FindNext
    DoCmd.GoToControl "[FindNæsteNavn]"
    If [NavneID] = AktuelPost Then
    [FindNæsteNavn].Caption = "Ikke flere poster matcher"
    End If
   

FindNæsteNavn_Exit:
    Exit Sub

FindNæsteNavn_Err:
    msgtekst = "Du skal skrive noget i søgefeltet."
    ok = MsgBox(msgtekst, , "Hvad søger du")
    Me.Søg.SetFocus
    Resume FindNæsteNavn_Exit

End Sub

Hej Rosco

Tak for dit svar ...
Kunne jeg få dig til at implementere det i min formular, det
garanteret "piece of cake" for dig.

Medlemsdatabasen kan du hente her: http://www.vfi1.dk/Medlemstest.mdb

Min emailadresse er karsten@cityvision.dk

På forhånd tak
og mange hilsner
Karsten

Det skal jeg nok. Returnere den når jeg er færdig.

Så er den returneret.

Husk at basere dine formularer på en forespørgsel.
Det er nødvendigt hvis du f.eks. vil beregne alder ud fra fødselsdato eller andre udregninger.