Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Admin Login Form (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3965-admin-login-form.html)

Dimitriss 18-12-15 22:23

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

anestaki 19-12-15 23:28

Καλησπέρα Δημήτρη
Στην γραμμή
Κώδικας:

ElseIf IsNull(txt.Password) Or Me.txtPassword = "" Then
διόρθωσε
Κώδικας:

ElseIf IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
και δουλεύει κανονικά.

Dimitriss 20-12-15 12:29

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

anestaki 20-12-15 16:55

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

Meteora 20-12-15 17:37

1 Συνημμένο(α)
Καλησπέρα

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

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

Dimitriss 21-12-15 11:08

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


Η ώρα είναι 15:53.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2