كود يمنع تسجيل سجل مرتين بمقارنة حقلين

الكود الموضح أدناه يقوم بمقارنة حقلين في السجل الحالي مع الحقول المقابلة في السجلات السابقة فإذا وجد أنها متطابقة فيقوم بإعطاء رسالة لك بأن هذا السجل سبق تسجيله ويلغي السجل الحالي وينقلك إلى السجل السابق . يتم وضع الكود في حدث بعد التحديث في حقل المقارنة الثاني .

Private Sub text2_AfterUpdate()

If Me.NewRecord = True Then

Dim strWhere As String, strMessage As String

strWhere = "text1 = '" & Me!text1 & "'"

Me.RecordsetClone.MoveFirst

Me.RecordsetClone.FindFirst strWhere

Do Until Me.RecordsetClone.NoMatch

If Me.RecordsetClone!text2 = Me!text2 Then

MsgBox " هذا السجل سبق تسجيله سوف يتم إلغاء هذا السجل والإنتقال إلى السجل السابق"

Me.Undo

Me.Bookmark = Me.RecordsetClone.Bookmark

Me.text1.SetFocus

Exit Sub

End If

Me.RecordsetClone.FindNext strWhere

Loop

End If

End Sub

ملاحظة : الكود مأخوذ من كتاب تعلم آكسس في 21 يوم مع التعديل عليه ليتوافق مع ما ذكر أعلاه .