الشرح
- تم عمل موديول للاعلان عن متغير عام
اسم المتغير العام cJob
- فى نموذج LOGIN
بعد اتمام المصادقة بالتأكد من اسم وكلمة مرور المستخدم
نسند الوظيفة الى المتغير العام
cJob = JOB
- فى النموذج INSPCDATA
استخدام كود الاستاذ جعفر فى حدث الحالى للنموذج بعد ان قمنا بتعريف البرنامج على الوظائف من خلال المتغير العام cJob كالاتى
Select Case cJob
Case Is = "MANGER"
Me.AllowEdits = True
Case Else
If Len(Me.FDATE & "") = 0 Then
Me.AllowEdits = True
Else
Me.AllowEdits = False
End If
End Select