alsobaie77 قام بنشر نوفمبر 22, 2009 قام بنشر نوفمبر 22, 2009 أريد من مربع البحث إذا لم يجد الرقم المطلوب في الحقل يعطيني رسالة (عدم وجود الرقم المطلوب) وليس الانتقال لمربع البحث التالي.. كيف أعمل المطلو ب أرجو المساعدة منكم... وشكرا...
ابوخليل قام بنشر نوفمبر 22, 2009 قام بنشر نوفمبر 22, 2009 (معدل) 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 قام بنشر نوفمبر 23, 2009 الكاتب قام بنشر نوفمبر 23, 2009 أشكرك أخي الكريم ابو خليل هذا هو المطلوب جزاك الله كل خير...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.