السلام عليكم ورحمة الله وبركاته
لدي الكود التالي :
numberfield = Me.fash
Dim A
A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")
If Not (IsNull(A)) Then
MsgBox "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان", vbCritical, "رسالة تحـــزيرية"
Cancel = True
Me.Undo
DoCmd.FindRecord numberfield
End If
End Sub
وظيفة الكود هي التاكد من عدم وجود القيمة المدخلة في الحقل , فاذا كانت موجودة فانه يعرض رسالة تاكد انه تم تسجيل هذه القيمة من قبل ويعرض لك السجل الخاص بها.
ما اريده هو عند وجود قيمة معينة مسجلة من قبل ان يعرض لي رسالة فيها زر موافق او الغاء الامر بحيث عند الضغط على زر موافق الموجود في الرسالة يعرض
السجل وعند الضغط على زر الغاء الامر لا يتم عرض بيانات السجل ويتيح للمستخدم اكمال بياناته.
شكرا لكم مقدما
اعتذر منكم الكود في الرسالة السابقة لم يتم تنسيقه بشكل صحيح بسبب اللغة في الرسالة
هذا هو الكود الذي لدي
numberfield = Me.fash
Dim A
A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")
If Not (IsNull(A)) Then
MsgBox "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان", vbCritical, "رسالة تحـــزيرية"
Cancel = True
Me.Undo
DoCmd.FindRecord numberfield
End If
End Sub