25-01-13, 11:45
|
| Super Moderator Όνομα: Τολης Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-01-2010 Περιοχή: ATHENS-GREECE
Μηνύματα: 199
| |
Ο Παρακατω κωδικας σου δινει την δυνατοτητα να "κρυβεις" φορμες, εκθεσεις κλπ.
Για τις φορμες:
Public Function DoHideForms()
Dim frm
For Each frm In CurrentProject.AllForms
SetHiddenAttribute acForm, frm.Name, True
Next
End Function
Για να τις ξαναεμφανισεις:
Public Function DoUnHideForms()
Dim frm
For Each frm In CurrentProject.AllForms
SetHiddenAttribute acForm, frm.Name, false
Next
End Function
Καλη συνεχεια...
|