Åbne en formular udfra kreterier i et LogIn modul.

Du må kunne lave en form for Select Case struktur der måler på adgangskoden i stil med dette:

Dim VARa as string
VARa = Din DLookUp
Select case VARa
Case Is = "Et eller andet"
docmd.openform "Form1"
Case is = "noget andet"
docmd.openform "Form2"
'o.s.v.
end select

Det kan jeg ikke få til at virke.
Min kode ser nu således ud, men der sker intet.

Private Sub Kommandoknap1_Click()
Dim VARa As String
If Password.Value = Nz(DLookup("SignCode", "TblClearedStaffInfo", "Initials='" & Username.Value & "'"), "") Then

VARa = DLookup("Clearing", "TblClearedStaffInfo", "Initials=Username.Value")

Select Case VARa
Case Is = "FrmPilotLogIn"
DoCmd.OpenForm "FrmPilotLogIn"

Case Is = "FrmWorkshopDocumentation"
DoCmd.OpenForm "FrmWorkshopDocumentation"

End Select

End If

End Sub

Du måler jo på en form. Case skal måle på en adgangdkode eller bruger, og hvis denne er et eller andet, så skal der åbnes en bestemt form, hvis Case er noget andet sker der også noget andet.

I dit eksempel måler du jo et formularnavn.

Case Is = "FrmPilotLogIn"
DoCmd.OpenForm "FrmPilotLogIn"

Case Is = "FrmWorkshopDocumentation"
DoCmd.OpenForm "FrmWorkshopDocumentation

I Case Is = "FrmPilotLogin" er "FrmPilotLogIn" det der står i feltet "Clearing" i TblClearedStaffInfo , hvor "Password" og "Username" stemmer overens. Feltværdien er "FrmPilotLogIn"

Nedennævnte kode virker tildels, når jeg indtaster Username og Password der svarer til "FrmWorkshopDocumentation" åbnes formularen "FrmWorkshopDocumentation" og LogIn formularen lukkes
men hvis jeg indtaster værdier som svarer til "FrmPilotLogIn" åbnes "FrmPilotLogIn" ikke, men LogIn formularen lukkes.
Så noget tyder på at der ikke søges i hele tabellen "TblClearedStaffInfo"

Private Sub Kommandoknap1_Click()

If Password.Value = Nz(DLookup("SignCode", "TblClearedStaffInfo", "Initials='" & Username.Value & "'"), "") Then

Dim VARa As String
VARa = DLookup("Clearing", "TblClearedStaffInfo", "Initials = Username.Value")
DoCmd.Close

Select Case VARa
Case Is = "FrmPilotLogIn"
DoCmd.OpenForm "FrmPilotLogIn"

Case Is = "FrmWorkshopDocumentation"
DoCmd.OpenForm "FrmWorkshopDocumentation"

End Select

DoCmd.Close , "FrmLogInMain", acNormal
End If

End Sub

Prøv at undlade din Close lige efter definitionen af VARa.

Når jeg undlader Close lukkes LogIn formularen ikke men jeg får stadig kun "FrmWorkshopDocumentation" åbnet, ikke "FrmPilotLogIn" formularen.

Det virker nu, det var fejl 40. Forkert formularnavn.Perfekt.
Mange tak. Så mangler jeg bare at give dig point, og det er hermed gjort.

Tak for point :o)

docmd.openform DLookup("Clearing", "TblClearedStaffInfo", "Initials = Username.Value")