كيف يتم اظهار زر لمستخدم وواخفائه لمستخدم اخر

Private Sub Form_Open(Cancel As Integer)

'Me.u_1 = CurrentUser

If CurrentUser = "admin" Then

Me.c_1.Visible = False ' true

Me.c_2.Visible = False

Me.c_3.Visible = True 'False

Me.c_4.Visible = True

Else

Me.c_1.Visible = True ' true

Me.c_2.Visible = True

Me.c_3.Visible = False 'False

Me.c_4.Visible = False

End If

End Sub