اريد كود عند فتح نموذج ليس به بيانات يعطي رسالة

السلام عليكم ورحمة الله وبركاته ،،،

أخي أبو جهاد ضع الكود التالي بحدث عند الفتح أو التحميل للنموذج ... وبالتوفيق إن شاء الله

On Error Resume Next
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "عفواً لا يوجد بيانات", 0 + 589824 + 64, "تنبيه"
Cancel = -1
End If

السلام عليكم:مع تحياتي واحترامي للأستاذ/ أبو رهفولكن بعد الرسالة كان يفتح النموذج أيضا وبه الخانات فارغة وبعد إذنك قمت بكتابة السطر التالي حتى لا يفتح النموذج(DoCmd.Close acForm)فاصبح الكود كلتالي:Private Sub Form_Open(Cancel As Integer)On Error Resume NextIf Me.RecordsetClone.RecordCount = 0 ThenMsgBox "عفواً لا يوجد بيانات", 0 + 589824 + 64, "تنبيه"DoCmd.Close acFormCancel = -1End IfEnd Subوإذا سمحت لي أخي: أن تشرح هذا السطر لي لكي أفهمه:If Me.RecordsetClone.RecordCount = 0 Thenوجزاكم الله خيراًوهذا هو المرفق بعد التعديل:

حساب العميل_ابورهف.rar

السلام عليكم :

اشكر الاخ ابو رهف والاخ طه محمد

استخدمت الكود في قاعدة بيانات اخرى مرفقة لكن حدثت عندي مشكلة وهي كالتالي:

في نموذج طلبيات في الفاتورة 122211 عند الضغط على F9 يفتح نموذج الدفع .......... OK

في الفاتورة 122212 عند الضغط على F9 تظهر رسالة لكن عند الضغط على موافق تحدث المشكلة كيف يتم حل هذه المشكلة

112.rar

ضع هذا السطر

On Error Resume Next

فى كود فتح النموذج ليصبح بهذا الشكل

On Error Resume Next

If KeyCode = vbKeyF9 Then

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

أخي الكريم بو جهاد فقط ضع ماتفضل به أخي الكريم mrnooo2000 جزاءه الله كل خير على الإسهام وهو اهلاً لها ...

بالتوفيق إن شاء الله لكم جميعاً

اشكرك أخي العزيز ابو رهف: ولكن ما كنت اريد تفسيره هو معني الجملة الاتية: Me.RecordsetCloneفقط