[pakos]

Καλημέρα

Στην Κυρια φορμα θα προσθεσεις ενα ακομη πεδιο π.χ. ΠεδιοΚωδικος

θα κανεις διαδικασια συμβαντος

με το ανοιγμα της φορμας

Private Sub Form_Open(Cancel As Integer)
Me.cmdFrmUsers.Visible = False
End Sub

και μετα την ενημερωση το πεδιο οπως παρακατω

Private Sub ΠεδιοΚωδικος_AfterUpdate()
If DLookup("IDGroupUser", "Users", "fPassword = [FORMS]![Κυρια φορμα]!ΠεδιοΚωδικος ") = 1 Then
Me.cmdFrmUsers.Visible = True
Else
Me.cmdFrmUsers.Visible = False
End If
End Sub

και οταν πληκτρολογεις τον κωδικο του χρηστη αναλογα οσοι ειναι διαχειριστες θα ανοιγει το κουμπι