السلام عليكم
اريد من الاخوة الخبراء شرح طريقة كتابة الكود التالى بشكل صحيح
والمطلوب هو تعطيل AllowAdditions فى النموذج المفتوح ايا كان اسمه بناء على الشرط المذكور
Sub ControlUser()
If DLookup("FAdd", "users", "UName = forms!Main!UNumb") = 0 Then
Forms!Screen.ActiveForm.Name.AllowAdditions = False
End If
End Sub