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


الملفات المرفقة
.zip   notr.zip (الحجم : 10.95 ك ب / التحميلات : 31)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#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
قل إني نهيت أن أعبد الذين تدعون من دون الله
لما جاءني البينات من ربي وأمرت أن أسلم لرب العالمين
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود فتح و اغلاق قاعدة بيانات gharib 8 154 24-09-17, 10:24 PM
آخر رد: عبد العزيز البسكري
Question [vb6.0] كيف اغلاق ملف قاعدة بيانات اكسس مفتوحة من خلال برنامجي ؟؟ Microformt 3 44 21-09-17, 04:20 PM
آخر رد: Amir_alzubidy
  من يقدر استبدال قاعد بيانات المثال المرفق ب (sqlite) scsi7000 1 60 19-09-17, 01:06 PM
آخر رد: Amir_alzubidy
  من لديه طريقه اذا امتلئت قاعده البيانات اكسس يقوم البرنامج بتصنيع قاعده بيانات من نفس scsi7000 7 156 18-09-17, 01:41 PM
آخر رد: عبد العزيز البسكري
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 3 112 17-09-17, 06:49 PM
آخر رد: Microformt
  [كود] انشاء مجلدات من بيانات سجل ragabsayed 1 46 17-09-17, 09:18 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف يتم تعطيل عمل ازارار ctrl+Ait+Delete عند تشغيل برنامجي ؟؟ Microformt 4 121 13-09-17, 08:17 AM
آخر رد: Amir_alzubidy
  [سؤال] كيفية عرض نص موجود على الانترنت داخل اداة مربع نص (الحصول على بيانات من صفحة ويب) Mohamad Anan 10 329 10-09-17, 11:54 PM
آخر رد: Mohamad Anan
  [سؤال] مشكلة في برنامجي أرجو حلها suzoki 1 74 08-09-17, 06:06 AM
آخر رد: suzoki
Question [vb6.0] كيف اجعل الصوره تتوسط الفورم سوى كان عند التكبير او التصغير ؟ Microformt 1 82 05-09-17, 10:22 PM
آخر رد: Amir_alzubidy

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


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