Witam
Proszę o pomoc w następującym temacie (jestem zielony w VBA wiec proszę o info. w stylu "kawa na łąwę")
Posiadam bazę danych z następującymi elementami:
- tabela "Login" ( username , password )
- formularz "LoginF"
- formularz "Welcome"
- formularz "welcome1"
Po uruchomieniu bazy otwiera sie formularz LoginF gdzie mam dwa przyciski "Login" oraz "Exit" . W tej chwili mam zrobione tak ze po wpisaniu username i password i kliknięciu login uruchamia mi się okienko welcome . Chciałbym zęby był podział na dwie kategorie logowania się . Czyli Jeżeli loguje się kierownik otwiera się forma Welcome , jeżeli loguje się pracownik otwiera się forma Welcome1. podejrzewam ze muszę zrobić filtr tylko za bardzo nie wiem jak to zrobić . to jest mój kod z VB
Kod:
'...
Private Sub cmdLogin_Click()
If "" & txtUser.Value = "" Then
MsgBox("Please enter user name", vbExclamation + vbOKOnly, "form_loginF")
txtUser.SetFocus()
Exit Sub
End If
' apply filter to get record matching username entered.
DoCmd.ApplyFilter, "Username = '" & ("" & txtUser.Value) & "'"
If Me.Username = ("" & txtUser.Value) And Me.Password = ("" & txtPassword.Value) Then
' correct user name and password entered
MsgBox("correct password entered")
[b]() ' remove filter
DoCmd.ShowAllRecords[/b]
' enter code to open menu form.
DoCmd.OpenForm("welcome") ' change this to the form you want to open
Else
' incorrect username and password entered
If Me.Username <> ("" & txtUser.Value) Then
MsgBox("Incorrect username entered. ")
Me.txtUser.SetFocus()
Else
MsgBox("Incorrect password entered. ")
Me.txtPassword.SetFocus()
End If
' remove filter
DoCmd.ShowAllRecords()
End If
End Sub
Private Sub cmdExit_click()
Me.setVisible = False
End Sub
'...
Czy możne ktoś mi powiedzieć co trzeba zmienić w ""remove filter
DoCmd.ShowAllRecords"" bo podejrzewam ze to tu jest błąd
Dziękuję za szybką odpowiedź.