عملت مربع نص واسميته text1
في حدث بعد التحديث لمربع النص المذكور كتبت هذه الأسطر
Private Sub text1_AfterUpdate()
Me.RecordsetClone.FindFirst "[Ref_article] = " & Me![text1]
If Not Me.RecordsetClone.NoMatch Then
Me.Bookmark = Me.RecordsetClone.Bookmark
Else
MsgBox "الرقم " & Str(Me![text1]) & " غير موجود"
DoCmd.GoToRecord , , acFirst
End If
End Sub
وهذا مثالك بعد التعديل
Super gestion5.rar