Logowanie do Bazy Access

0

Witam jestem początkujący w bazach ale Visual Basica nigdy nie mialem, probuje zrobic logowanie do bazy ale mi nie wychodzi.. Prosilbym o pomoc, z góry dziekuje

Oto polecenie na przycisk ok w oknie logowania, po włączeniu widoku wuświetla się okno logowania ale nie nie wyświetlają się komunikaty po wpisaniu logina lub hasla. Dodam, że hasło i login są w tabeli: Sprzedawca w kolumnach Login i Hasło

Private Sub Polecenie1_Click()
If IsNull(Me.txtLoginID) Then
MsgBox "Proszę o wprowadzenie nazwy", vbInformation, "LoginID Required"
Me.txtLoginID.SetFocus
ElseIf IsNull(Me.txthasło) Then
MsgBox "Proszę o wprowadzenie hasła", vbInformation, "Hasło Required"
Me.txthasło.SetFocus
Else
'process the job
If (IsNull(DLookup("[Login]", "Sprzedawca", "[Login] ='" & Me.txtLoginID.Value & "'" And Hasło ='" & Me.txthasło.Value & "'"))) Then
MsgBox "Nieprawidłowy Login lub Hasło"
Else
MsgBox "Login i Hasło prawidłowe"
End If
End If
End Sub

0

To jest poprawiony kod który nadal nie działa

Private Sub Polecenie1_Click()
If IsNull(Me.txtLoginID) Then
MsgBox "Proszę o wprowadzenie nazwy", vbInformation, "LoginID Required"
Me.txtLoginID.SetFocus
ElseIf IsNull(Me.txthasło) Then
MsgBox "Proszę o wprowadzenie hasła", vbInformation, "Hasło Required"
Me.txthasło.SetFocus
Else
'process the job
If (IsNull(DLookup("[Login]", "Sprzedawca", "[Login] ='" & Me.txtLoginID.Value & "'"))) Or _
(IsNull(DLookup("Hasło", "Sprzedawca", "Hasło ='" & Me.txthasło.Value & "'"))) Then
MsgBox "Nieprawidłowy Login lub Hasło"
Else
MsgBox "Login i Hasło prawidłowe"
End If
End If
End Sub

1 użytkowników online, w tym zalogowanych: 0, gości: 1