Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 12-10-11, 16:39
Το avatar του χρήστη Meteora
Meteora Ο χρήστης Meteora δεν είναι συνδεδεμένος
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
Προεπιλογή

Καλησπέρα

Στράτο,
φτιάξε μια public μεταβλητή (παράδειγμα ονόματος varcode) σε μια module και η οποία θα έχει την τιμή του κωδικού με τον οποίο κάποιος εργάζεται στη βάση. Τους κωδικούς τοποθέτησέ τους σε ένα πίνακα tblCode.
Όταν ανοίγει η βάση σου ζητείται κωδικός. Ελέγχεται αν υπάρχει στον πίνακα tblCode και στη συνέχεια -εφόσον υπάρχει - αποδίδεται η τιμή του κωδικού στην public μεταβλητή σου, η οποία μπορεί να διαβαστεί από οποιοδήποτε σημείο του προγράμματος.
Στην συνέχεια...
Έχεις οργανωμένες τις πληροφορίες σε καρτέλες και μια δομή select case ... end select, αφήνεις κάποιες καρτέλες ενεργές και κάποιες όχι, ανάλογα με την τιμή που έχει η public μεταβλητή σου.
Κώδικας:
select case varcode
case "123"
        TabCtl75.Enabled = False
        TabCtl73.Enabled = True
case "345"
<κώδικας>
end select
Προσωπικά έτσι θα εργαζόμουν. Δεν έχω άλλη ιδέα!

Με εκτίμηση

Νίκος Δ.
Απάντηση με παράθεση