*كود* كود للتحقق اذا كان السجل موجود

موصوع منقول من المنتدي القديم

الكاتب: محمد مسلم

كود للتحقق اذا كان السجل موجود

--------------------------------------------------------------------------------

كود للتحقق اذا كان السجل موجود

هذا كود يمكنك من معرفة اذا كان السجل موجود مسبقا قبل ادخاله مره اخرى ويمكنك من الاستمرار اولغاء الاجراء

يكتب الكود في حدث بعد التحديث للحقل الرئيسي مثل ( الرقم او الاسم ) وعند وجود السجل يعطي رسالة للاستمرار او الغاء التحديث .والحقيقه ان لست خبير بالاكود ولكن مشاركة بسيطه مني لهذا المنتدى الذي استفدت منه الكثير وان كان هناك تعديل من الاخوه واعتقد انه يحتاج بعض التعديل .

ملاحظة : الكود يبحث في حقل ( الاسم ) ويمكن تغييره الى أي حقل حسب الرغبه

    If Me.NewRecord = True Then

        Dim strWhere As String, strMessage As String

        strWhere = "الاسم = '" & Me!الاسم & "'"

        Me.RecordsetClone.MoveFirst

        Me.RecordsetClone.FindFirst strWhere

        Do Until Me.RecordsetClone.NoMatch



                strMessage = "يوجد سجل مطابق مدخل مسبقاً..هل ترغب المتابعه؟ "

               lResponse = MsgBox(strMessage, vbYesNo + vbQuestion, strTitle)

                If lResponse = vbNo Then

                Cancel = True



                DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo

                Me.Undo

                Me.Bookmark = Me.RecordsetClone.Bookmark

               Exit Sub

           End If

            Me.RecordsetClone.FindNext strWhere

        Loop

    End If

--------------------------------------------------------------------------------

الكاتب: محمد مسلم بتاريخ: 8/25/2002 9:08:20 AM

اضف للمفضلة

--------------------------------------------------------------------------------

كود ممتاز

بعد مراجعة الكود لاحظت أنه يعمل حلقة تكرارية لإظهار الرسالة عندما يجد الاسم متكرر على حسب عدد مرات تكرار الاسم .

جرب نقر نعم وستستمر الرسالة في الظهور وهذا التكرار لاداعي له في رأيي .

الكود بعد تعديله :

If Me.NewRecord = True Then
        Dim strWhere As String, strMessage As String

        strWhere = "[الاسم] = '" & Me![الاسم] & "'"
        Me.RecordsetClone.MoveFirst
        Me.RecordsetClone.FindFirst strWhere
        If Me.RecordsetClone.NoMatch = False Then
          strMessage = "يوجد سجل مطابق مدخل مسبقاً..هل ترغب المتابعه؟ "
               lResponse = MsgBox(strMessage, vbYesNo + vbQuestion, strTitle)
                If lResponse = vbNo Then
                Cancel = True
                DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo
                Me.Undo
                Me.Bookmark = Me.RecordsetClone.Bookmark
                End If
End If
End If

وللجميع تحياتي

--------------------------------------------------------------------------------

الكاتب: ابوحمود.