[kapetang]

Καλημέρα

Μετά τη γραμμή: Dim rs As Recordset

Πρόσθεσε τον παρακάτω κώδικα:

    If Nz(Me.txtLoginID, "") = "" Then
        MsgBox "Συμπληρώστε το Χρήστη "
        Me.txtLoginID.SetFocus
        Exit Sub
    End If
    
     If Nz(Me.txtPassword, "") = "" Then
        MsgBox "Συμπληρώστε τον Κωδικό "
        Me.txtPassword.SetFocus
        Exit Sub
    End If