أخي الكريم .. نصيحة من أخوك الصغير .. دائما وأبدا تجنب تسمية الجداول والنماذج بالعربية لأنها تسبب مشكل في كتابة الكود
تفضل ملفك بعد التعديل ....
مثال اوفيسنا حفظ نموذج اخر.accdb
اخي الكريم هناك على ما اعتقد برنامج في المنتدى لاضافة نظام صلاحيات لبرامجك وبكل سهولة عن طريق معالج يظهر لك ... اذا اردت البرنامج ابحث في المنتدى باسم صلاحيات المستخدمين .... بارك الله فيك ...
بالنسبة للتعريب احاول اعربه لك عند وصولي للمنزل لاني على الجوال الان .... ابشر
حبذا لو ادرجت مثالا ليتم التجربة عليه ..... على العموم أنظر هذا الكود ...
DoCmd.OpenForm "ab", , , , , acHidden
Call Forms("ab").bu100_Click
'نفترض أن النموذج الاول هو ab
'نفترض وجود زر في النموذج الاول لأدراج السجل والتحديث هو b001_Clik
ضع هذا الكود ....
Dim tBox As Textbox
Set tBox = Screen.ActiveControl
If TypeOf tBox Is Textbox Then
tBox.SelStart = Len(tBox) - 1
tBox.SelLength = 1
End If