طريقة كتابة الكود

[ledoledo]

السلام عليكم

اريد من الاخوة الخبراء شرح طريقة كتابة الكود التالى بشكل صحيح

والمطلوب هو تعطيل AllowAdditions فى النموذج المفتوح ايا كان اسمه بناء على الشرط المذكور

Sub ControlUser()
If DLookup("FAdd", "users", "UName = forms!Main!UNumb") = 0 Then
Forms!Screen.ActiveForm.Name.AllowAdditions = False

End If
End Sub