تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف اجعل برنامجي يظهر رسالة للمستخدم أنه لايوجد بيانات في الاستعلام ؟؟
#1
لاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل برنامجي يظهر رسالة للمستخدم أنه لايوجد بيانات في الاستعلام ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم


الملفات المرفقة
.zip   notr.zip (الحجم : 10.95 ك ب / التحميلات : 49)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:
#2
.....

كود :
Set rs = db.OpenRecordset("SELECT ........
    If rs.RecordCount = 0 Then
        MsgBox "عفواً... لا توجد معلومات.", vbMsgBoxRight + vbMsgBoxRtlReading
    End If

.....
الرد
تم الشكر بواسطة: Microformt
#3
(12-07-14, 09:49 PM)vbnet كتب : .....

كود :
Set rs = db.OpenRecordset("SELECT ........
    If rs.RecordCount = 0 Then
        MsgBox "عفواً... لا توجد معلومات.", vbMsgBoxRight + vbMsgBoxRtlReading
    End If

.....

---------------------------------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لك مني فائق اشكر والتقدير على ما تقدمة من دعم فني والله يحفظكم ويرعاكم
ولكم مني فائق الاحترام
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:
#4
Set rs = db.OpenRecordset("SELECT
If rs.RecordCount = 0 Then
MsgBox "نعتذر قاعدة البيانات المطلوبة مفقودة", vbMsgBoxRight + vbMsgBoxRtlReading
End If
قل إني نهيت أن أعبد الذين تدعون من دون الله
لما جاءني البينات من ربي وأمرت أن أسلم لرب العالمين
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ظهور رسالة خطأ عند استعراض تقرير اكتيف ريبورت أبو عقيل 5 117 12-02-19, 08:04 PM
آخر رد: Amir_Alzubidy
  [vb6.0] المساعدة في طباعة شريط وزن تخرج رسالة خطا وادي العوضي 6 126 12-02-19, 12:47 AM
آخر رد: وادي العوضي
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 15 4,047 08-02-19, 03:02 PM
آخر رد: أبوبكر سويدان
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 4 2,347 25-12-18, 12:58 PM
آخر رد: aboezzat84
  [سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه aboezzat84 2 205 25-12-18, 12:34 PM
آخر رد: aboezzat84
  تعبئة بيانات الكومبوكس من جدول SQLSERVER مصمم هاوي 1 126 09-12-18, 11:27 PM
آخر رد: مصمم هاوي
  [vb6.0] جلب بيانات من combo وتحديد webbrowser tempman 2 172 05-12-18, 01:04 PM
آخر رد: tempman
  [vb6.0] كيف اجعل زر امر الطابعه في برنامج المرفق غير مفعل نامل الاطلاع عليه والمساعدة ان امكن Microformt 3 204 12-11-18, 02:06 PM
آخر رد: elgokr
  طريقة تغيير نوع بيانات الحقل داخل جملة الاستعلام عبدالله الصافي 3 234 05-11-18, 03:30 AM
آخر رد: حريف برمجة
  مشكلة فى رسالة معناها ان هناك مكتبات مفقودة المبرمج العتيق 2 223 26-10-18, 01:27 PM
آخر رد: المبرمج العتيق

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم