08-08-23, 21:40
|
| Όνομα: Πάκος Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 17-12-2011 Περιοχή: Θεσσαλονικη
Μηνύματα: 171
| |
 συνεχεια
χαιρετω τα μελη
δοκιμασε κατι τετοιο
στη φορμα του login
If me.ΤοΠεδιοUser="Administrator" Then '<=========οπως το εχεις ονομασει
DoCmd.ShowToolbar "RIBBON1", acToolbarNo
DoCmd.ShowToolbar "RIBBON2", acToolbarNo
CommandBars("Ribbon1").visible=true
else
If me.ΤοΠεδιοUser="User " Then
DoCmd.ShowToolbar "RIBBON1", acToolbarNo
DoCmd.ShowToolbar "RIBBON2", acToolbarNo
CommandBars("Ribbon2").visible=true
else
end if
end if
|