Access login forma u Switchboardu

User Friendly

Buduća legenda
Poruka
25.007
Imam switchboard i moram da napravim formu kojom korisnik mora prvo da se uloguje da bi mogao da koristi switchboard.
Nasao sam neke kao tutorijale na engleskom ali mi nije jasno,voleo bih kad bi se neko smilovao i na srpskom mi napisao kod koji moram da unesem i gde. :)
Potrebno mi je ovo za skolu.
 
Posto mi niste na pocetku pomogli,aj barem sada. U switchboardu cu imati 3 dela,izvestaji i forme za prvi niv,izvestaje i forme za 2gi nivo i izvestaje i forme za 3 nivo.
Ovi iz 3 nivoa mogu da gledaju i 1 i 2,ovi iz 2 i 2gi i 1,a 1 nivo samo izvestaje i forme za svoj nivo. Ovo mi je trenutni kod,sta treba da dodam?

Private Sub Command1_Click()
If IsNull(Me.txtLoginID) Then
MsgBox "Unesi LoginID", vbInformation, "LoginID Required"
Me.txtLoginID.SetFocus

ElseIf IsNull(Me.txtPassword) Then
MsgBox "Unesi Sifru", vbInformation, "Password Required"
Me.txtPassword.SetFocus
Else
'process the job
If (IsNull(DLookup("UserLogin", "tblUser", "UserLogin ='" & Me.txtLoginID.Value & "'"))) Or _
(IsNull(DLookup("Password", "tblUser", "Password ='" & Me.txtPassword.Value & "'"))) Then
MsgBox "Netacna Sifra ili LoginID"
Else
'MsgBox "Sifra i LoginID su tacni"
DoCmd.OpenForm "Switchboard"

End If
End If
End Sub
 

Back
Top