اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


المهاجر

الردود الموصى بها

لدي نموذج للبحث وبه مربع نص 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

رابط هذا التعليق
شارك

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



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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information