الذهاب إلى الأمام أو الرجوع إلى الخلف بشرط معين

[بوعبد الله محفوظ]

السلام عليكم ورحمة الله تعالى وبركاته

أعتذر في تأخري في الرد لظروف قاهرة

عند تجريبي للكود 

Private Sub Form_Load()
If IsNull(Me.txtSave) Then Me.FilterOn = False: Exit Sub
Me.Filter = "[Opérateur] =" & [txtSave]
Me.FilterOn = True
DoCmd.GoToRecord , , acNewRec
End Sub

دهشت لسهولته ولفعاليته 

خاصة وأنه لا يعتدي على باقي الأكواد 

وغمرتني لحظة  بكاء  

أيضا قمت بإضافة نموذج فرعي أسميته "frmFilterAuto"

وقمت بعمل التصفية من خلال 

وكانت النتيجة رائعة

ملاحظة:

السبب الذي جعلني أضيف الكود في الحدث "Load" 

حيث أن قيمة "Opérateur" تأتي من نموذج آخر 

ولا يستطيع المستخدم التعديل عليها بعد ذلك

بارك الله في الجميع