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