25-09-20, 18:33
|
| Όνομα: Δημήτρης Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 20-07-2014 Περιοχή: Πάτρα
Μηνύματα: 385
| |
Καλησπέρα https://www.ms-office.gr/forum/acces...-anagnosi.html Παράθεση:
Function OpenForm(ByVal aForm As Form, ByVal UserGroup As Integer)
If UserGroup = 1 Then
DoCmd.OpenForm aForm.Name, acNormal
ElseIf UserGroup = 2 Then
DoCmd.OpenForm aForm.Name, acNormal, , , acFormReadOnly
End If
End Function
| |