كلمة سر.rarالسلام عليكم جميعا
اتقدم بالتحية الى كل رواد هذا المنتدى الرائع ....
الى استاذى الفاضل صاحب هذا الاختراع لعمل صلاحيات فى الاكسس .... اشكرك كثيرا على هذا المجهود وانك سمحت لغيرك للانتفاع بة..(جعلة الله فى ميزان حسناتك)
واشكرك للرد على
ارجوك ان تعزرنى فما زلت اتعلم منك ومن الاساتذة فى هذا المنتدى..فانا وقفت عند هذا الحد فى المشروع ولا استطيع ان افتح الملف المرفق لانه اولا بة باسورد لا اعرفة وامتادAccdb وانا اعمل على اكسس 2003كلمة سر.rar
لذا الرجاء اعطائى بعضا من وقتك وتعديل او تكميل او زيادة توضيحك لى وان شاكرا جدا
و سارفق المثال
هنا توقفت(عند عمل الماكرو)
(وتسطيع عمل هذا من خلال وضع بعض الاكواد فى حدث عند الفتح الخاص بنموذج 1 Query1 وهو بناء ماكرو
ويكون كالاتى
1-فى حقل condition نكتب IsNull([id]) وفى action نكتب msgbox وفى arguments نكتب لقد ادخلت بيانات غير صحيحة اعد المحاولة; Yes; Critical; لقد ادخلت بيانات غير صحيحة
اسفلة نكتب
2- فى حقل condition نكتب IsNull([id]) وفى action نكتب close وفى arguments نكتب Form; 1 Query1; Prompt
اسفلة نكتب
3- فى حقل condition نكتب NOT IsNull([id]) وفى action نكتب close وفى arguments نكتب Form; Form1; Yes