السلام عليكم
لدي برنامج عملتلو صلاحيات بالتشيك بوكس
الكود المستعمل
"post_append='" & [Form_login].post & "'" هذا الكود لمنح الصلاحية
If DLookup("isadmin", "validities", "post_append='" & [Form_login].post & "'") = False Then
Command16.Visible = False
المشكلة انه عندما اقوم بالغاء تفعيل الصلاحية الزر لا يخنفي من الفورم
قد جربت نفس الكود ولكن بتعطيل الزر باستعمال Enabled
مثل ماهو ظاهر في الكود وقد اشتغلت بدون مشاكل
If DLookup("isadmin", "validities", "post_append='" & [Form_login].post & "'") = False Then
Command16.Enabled = False