سوال في مشكلة النموذج الفاضي؟؟؟؟؟

فى حدث عند الفتح للنموذج ضع هذا الكود :

f Me.RecordsetClone.RecordCount = 0 Then Cancel = -1

'أما إذا رغبت في ظهور رسال فاكتب

If Me.RecordsetClone.RecordCount = 0 Then

   MsgBox "  عــفوا عزيزي المستخدم لقد اخترت عميل ليس له أي بيانــــات", vbQuestion, "لا توجد بيانات "

Cancel = -1

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

الكود هو :

On Error Resume Next

أشرف خليل

فى حدث عند الفتح للنموذج ضع هذا الكود :

f Me.RecordsetClone.RecordCount = 0 Then Cancel = -1

'أما إذا رغبت في ظهور رسال فاكتب

If Me.RecordsetClone.RecordCount = 0 Then

   MsgBox "  عــفوا عزيزي المستخدم لقد اخترت عميل ليس له أي بيانــــات", vbQuestion, "لا توجد بيانات "

Cancel = -1

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

الكود هو :

On Error Resume Next

هذا بالنسبة للسؤال الأول .

أشرف خليل

عزيزي شكرا لك واسف على التأخير لاني كنت امس مستلم 24 ساعة لم استطع مغادرة العمل

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

الغاء الاجراء اللي قلت عنها انت المهم هذا هو الكود هل صحيح كتابته شكرا

Private Sub Form_Open(Cancel As Integer)

On Error Resume Next

If Me.RecordsetClone.RecordCount = 0 Then

MsgBox " لايوجد عميل بهذا الاسم", vbQuestion, "لبيانات "

Cancel = -1

End If

End Sub

عزيزي هل هذا هو الكود الصحيح طبعا اضفت بعض الرموز لانه لم يشتغل معي الا بها

الأخ على : وضعت فى الكود بتاعك On Error Resume Next وهذا الأمر يوضع فى الزر الذي سيقوم بفتح النموذج الذي به البيانات .

أي الكود يكون على جزأين .

أشرف خليل

شككرا لك عزيزي للايضاح لاني قعلا غشيم