Logowanie do Bazy Access

Logowanie do Bazy Access
K1
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 18
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

K1
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 18
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

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.