Admin Login Form

[Dimitriss]

Καλησπέρα στο φορουμ.
Σε μια εφαρμογή που έχω φτίαξει μεταφύ άλλων έχω κάνει και μια φόρμα μέσω της οποίας συνδέονται ο διαχειρηστής της εφαρμογής προκείμένου να κάνει τις επιπλέον λειτπυργίες από έναν απλό χρήστη. Το πρόβλήμα είναι ότι κατά το login ο κώδικάς μου ελέγχει μόνο το username. Προσπάθησα με τις λίγες γνώσεις που διαθέτω σε επίπεδο κώδικα να ελέγχει και το password αλλά δεν τα μπόρεσα. Κατέβασα και τα παραδείγματα του forum αλλά το επίπεδό μου σε κώδικα δεν είναι τόσο υψηλό και δεν κατάφερα κάτι. Αυτό που θέλω να γίνεται είναι να ελέγχεται και το username και το password ταυτόχρονα.
Ευχαριστώ εκ των προτέρων.

[anestaki]

Καλησπέρα Δημήτρη
Στην γραμμή

ElseIf IsNull(txt.Password) Or Me.txtPassword = "" Then

διόρθωσε

ElseIf IsNull(Me.txtPassword) Or Me.txtPassword = "" Then

και δουλεύει κανονικά.

[Dimitriss]

Γιώργο σε ευχαριστώ πολύ για την απάντησή σου. Ο παρών κώδικας ελέγχει μόνο αν το username είναι admin, χωρίς να ελέγχει αν το password. Δηλαδή αν πατήσεις στη φόρμα το 11111(που είναι ο admin) χωρίς να βάλεις password συνδέεται κανονικα. Αυτό θέλω να διορθώσω. Προσπάθησα με αυτό:
If DLookup("[UserSecurity]", "tblUser", "[UserID] = " & Forms!AdminLoginForm!UserName) = 1 _
& " AND "[UserID] = " & Forms!AdminLoginForm!Password & "'") Then
αλλά πάλι χωρίς αποτέλεσμα.
Ευχαριστω.

[anestaki]

Καλησπέρα Δημήτρη
Δες το συνημμένο ίσως σε βοηθήσει

[Meteora]

Καλησπέρα

...μια μικρή βοήθεια και από μένα

Με εκτίμηση/Νίκος

[Dimitriss]

Γιώργο και Νίκο σας ευχαριστώ πολύ για την βοήθεια σας, η οποία για ακόμα μια φορά ήταν πολύτιμη. Γίωργο μου έδωσες αυτό που ακριβώς ήθελα. Παιδεύτηκα λίγο, γιατί όπως είπα οι γνώσεις μου σε κώδικά είναι ελάχιστες, αλλά με πολλά πειράματα λύθηκε το πρόβλημα. Ευχαρίστω και πάλι παιδια!