freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.

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


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [2 Μηνύματα]      Bookmarks Tags: δημιουργία Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
jamman


Μέλος από: 02 Νοε 2009
Μηνύματα: 3

View users profile
ΜήνυμαΣτις: 13 Ιουν 2010 12:58    Θέμα: Δημιουργία φόρμας με κωδικό πρόσβασης Απάντηση με παράθεση  Mark this post and the followings unread

Γεια σε όλους!
Θα ήθελα να με βοηθήσει κάποιος. Θέλω να φτιάξω μία φόρμα όπου θα περιέχει ένα κουμπί (εισόδου στην 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

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


Μέλος από: 13 Φεβ 2008
Μηνύματα: 2

View users profile
ΜήνυμαΣτις: 29 Ιουν 2010 13:33    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

http://support.microsoft.com/kb/209871
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [2 Μηνύματα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access


Σχετικά θέματα
 Θέματα   Απ/σεις   Αποστολέας   Τελευταίο μήνυμα 
Δημιουργία Βάσης Δεδομένων MS Access με αντιστοιχιση σε γραφικό στοιχείο 1 Charalampos77 22 Ιουλ 2016 13:22
cordis Εμφάνιση τελευταίου μηνύματος
 
Τώρα είναι 03 Δεκ 2016 17:38 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos