رسالة عدم وجود المطلوب ضمن الحقول

[alsobaie77]

أريد من مربع البحث إذا لم يجد الرقم المطلوب في الحقل يعطيني رسالة (عدم وجود الرقم المطلوب) وليس الانتقال لمربع البحث التالي..

كيف أعمل المطلو ب أرجو المساعدة منكم...

وشكرا...

[ابوخليل]

Dim rst As DAO.Recordset

Dim reccount As Long

Set rst = Me.RecordsetClone


reccount = rst.RecordCount

   If reccount > 0 Then

   Me.Visible = True

   Else

   Beep

   MsgBox "الرقم المطلوب غير موجود", vbOKOnly + vbMsgBoxRight + vbInformation, "بحث"


   Exit Sub

   End If

تم تعديل نوفمبر 22, 2009 بواسطه أبو الأنس

[alsobaie77]

أشكرك أخي الكريم ابو خليل

هذا هو المطلوب

جزاك الله كل خير...