Søg efter post - hvis ikke fundet afsluttes databasen

Ja. Det kan man godt. Men det er bedre at bruge et modul til det.
Vh Henrik13

Dim a As String
a = Me.Felt1
If DCount("*", "Tabel1", "[Felt1] ='a'") = 0 Then
MsgBox "Der er ingen bruger med dette brugernavn. Databasen lukkes"
DoCmd.Quit

Hvor Felt1 indeholder brugernavnet i en formular, og Fekt1 er feltet i tabellen.

Jeg kan godt lave en demo database af det til dig. Men koden er ret simpel. Vil du havde den så læg din email og access versionen, Ex 97 ,2000 og xp

Mugs & Henrik tak for prompte svar - vil gerne se et eksempel Henrik. Bruger XP.
Vh
Kaj@christiansen.mail.dk

Er sendt, og koden ser sådan ud:
Dim intSvar As Integer
   
 
    intSvar = InputBox("Indtast dit Password", "Indtast et tal")
   
    Select Case intSvar
   
     
    Case Is = 6499              '1.

    Case Is = 1111                '2.
        DoCmd.RunCommand acCmdWindowHide
        DoCmd.OpenForm "Din formular"
       
    Case Else                    '18
        DoCmd.RunCommand acCmdWindowHide
        MsgBox "Forkert password"
        DoCmd.Quit
       
       
         
         
    End Select
Err:
Resume Next

Tak for poient
Mvh Henrik

Man takker og bukker....

Vh

Kaj