hvordan laver man 3 forskellige logintyper til samme databse

Hej.
Brug en impui box. Jeg kan lave en demo.
Vh Henrik13

Dim intSvar As Integer
   
 
    intSvar = InputBox("Password er 1234", "Indtast et tal")
   
    Select Case intSvar
   
        Case Is = 1111
        'et eller andet 
        Case Is = 1234

        Case Is = 1235
     
      DoCmd.OpenForm "Formular1"
        Case Else
       
         
           
    End Select
Err:
Resume Next
End Function

takker mange gange

Tak for point.
Du kan sætte 3 forskellige formulare til  hvert sit pASSWORD. ;O)