[stratos75]

Αρχική Δημοσίευση από Meteora

Καλησπέρα

Στράτο,
φτιάξε μια 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

Προσωπικά έτσι θα εργαζόμουν. Δεν έχω άλλη ιδέα!

Με εκτίμηση

Νίκος Δ.

Νίκο σε ευχαριστώ για τη βοήθειά σου, αλλά οι γνώσεις μου δεν είναι τόσο πολλές και δεν καταλαβαίνω αυτά που έγραψες....
Αν κατάλαβα σωστά πρέπει να φτιάξω ένα πίνακα με τους κωδικούς (tblCode)....
Έπειτα να πάω στην VBA να αντιγράψωτον κώδικα που έγραψες με το όνομα varcode? (δεν γνωρίζω τι είναι η public μεταβλητή και φυσικά δεν ξέρω πως να την δημιοργήσω)
το 123 σημαίνει τον εκάστοτε κωδικό?
το TabCtl75 σημαίνει το όνομα της καρτέλας?
γιατί βάζεις και ένα δεύτερο "case 345"?
Μπορείς να με βοηθήσεις βήμα-βήμα πως να δημιοργήσω αυτό που μου προτείνεις?

Με εκτίμηση,
Στράτος