Δημιουργία φόρμας με κωδικό πρόσβασης

Συζητήσεις για την τοπική βάση δεδομένων Access της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
jamman
Δημοσιεύσεις: 3
Εγγραφή: 02 Νοέμ 2009 19:31

Δημιουργία φόρμας με κωδικό πρόσβασης

Δημοσίευση από jamman » 13 Ιουν 2010 13:58

Γεια σε όλους!
Θα ήθελα να με βοηθήσει κάποιος. Θέλω να φτιάξω μία φόρμα όπου θα περιέχει ένα κουμπί (εισόδου στην access) . Πατώντας λοιπόν αυτό το κουμπί θα εμφανίζεται ένα πλαίσιο που θα ζητάει κωδικό εισόδου. Ο κώδικας που σκέφτηκα είναι αυτός.
Private Sub Command0_Click()

Dim password As String
Dim tries As Integer
tries = 1
password = InputBox("Δώστε κωδικό (προσπάθεια " & tries & ")")
tries = tries + 1
Do While password <> "0000" And tries <= 3
password = InputBox("Δώστε κωδικό (προσπάθεια " & tries & ")")
tries = tries + 1
Loop
If tries = 4 Then
MsgBox ("Η πρόσβαση απορρίπτεται")
DoCmd.Close
Else
MsgBox ("Κωδικός δεκτός")
End If
End Sub

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


Απάντηση

Επιστροφή στο “MS Access”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης