لقد أخذت هذا الكود وضعته ببرنامجي في حقل رقم البطاقة الشخصية بحيث لا يمكن إضافة رقم البطاقة الشخصية إذا كان موجودا وهو شغال 100% ولكن الذي أريده مساعدتي في جعل البرنامج يعرض السجل الذي وجد به رقم البطاقة الشخصية المشابه بعد ظهور الرسالة.
وشكرا(clock)
وهذا الكود:
Private Sub رقم_البطاقة_الشخصية_BeforeUpdate(Cancel As Integer)
If (Eval("DLookUp(""[رقم البطاقة الشخصية]"",""[بطاقات العضوية]"",""[رقم البطاقة الشخصية] =form![رقم البطاقة الشخصية]"") Is Not Null")) Then
MsgBox "رقم البطاقة الشخصية هذا موجود ولايمكننك إدخاله .....الرجاء التأكد من الرقم", vbOKOnly + vbMsgBoxRight + vbInformation, "مدقق الإدخال"
Cancel = True
[رقم البطاقة الشخصية].Undo
Else
End If
End Sub
اقتباسالمطلوب:: 1- المطلوب : عند إدخال رقم بطاقة موجود أن يعرض النموذج السجل الذي به الرقم المشابه مباشرة بعد الضغط على موافق في الرسالة 2- يوجد مع هذا النموذج نموذج آخر باسم "تقرير " أخذته من المنتدى وأود استخدامه بحيث يتم اختيار الحقول المطلوبة في التقرير.ولكن لم استطع عمل ذلك. ولكم جزيل الشكر
