(تمت الاجابة) إظهار رسالة عندما لا أجد نتيجة للبحث

[المهاجر]

لدي نموذج للبحث وبه مربع نص text50 وبجواره زر أمر52 ..

للبحث عن فواتير .. وكود زر الأمر هو الموجود في التالي ..

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

والمطلوب كيف يمكنني أن أجعل البرنامج في حالة عدم وجود رقم مماثل أن يعطيني رسالة تفيد بعدم وجود رقم الفاتورة المراد البحث عنه ؟؟

كود

Private Sub أمر52_Click()


	Dim rs As Object


	Set rs = Me.Recordset.Clone

	rs.FindFirst "[InvoiceNum] = '" & Me![text50] & "'"

	If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

[الباشق1]

هلا اخي تفضل هذا ممكن يفيدك خيو

Private Sub أمر52_Click()


	Dim rs As Object


	Set rs = Me.Recordset.Clone

	rs.FindFirst "[InvoiceNum] = '" & Me![text50] & "'"

	If Not rs.EOF Then Me.Bookmark = rs.Bookmark

ضيف هذا الكود بعده

If Me.RecordsetClone.RecordCount = 0 Then

MsgBox "لايوجد شخص بهذا الاسم "

Me.FilterOn = False

End If

End Sub

[المهاجر]

شكرا جزيلا أخي لمساعدتك ..

حقيقة لم تنجح معي الطريقة ،، ربما لم أكتب الكود بطريقة صحيحة ..

عموما وجدت حل آخر وهو إضافة الكود التالي :

كود

If rs.NoMatch Then

	myvar = MsgBox("تأكد من الرقم المدخل", vbOKOnly, "خطأ في عملية البحث")

	End If

[الباشق1]

يسلمووووووووووووووو اخي شو دعوه اخوان نتبدل الخبرات

تم تعديل أكتوبر 18, 2007 بواسطه الباشق1