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

كيف اجعل تظهر رسالة لمستخدم إذا كان قيمة الاستعلام اكبر مث 3000 ؟؟
نامل من الله المساعده في برنامجي المرفق والله يحفظكم ويرعاكم


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

- إستخدم هذا الكود :

كود :
Set db = OpenDatabase(App.Path & "\Bank.mdb", 2)
Set rs = db.OpenRecordset("SELECT Sum(Deposit) AS zDeposit From sam2 WHERE Account_Number =" & Val(txtNo.Text))

If Not IsNull(rs!zDeposit) Then
   If rs!zDeposit > 3000 Then MsgBox "تجاوز الحد المسموح به"
Else
   MsgBox "لم يتم العثور على رقم الحساب"
End If

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: Microformt , allayl
#3
Wink 
(02-11-13, 08:06 AM)VB_Coder كتب : السلام عليكم

- إستخدم هذا الكود :

كود :
Set db = OpenDatabase(App.Path & "\Bank.mdb", 2)
Set rs = db.OpenRecordset("SELECT Sum(Deposit) AS zDeposit From sam2 WHERE Account_Number =" & Val(txtNo.Text))

If Not IsNull(rs!zDeposit) Then
   If rs!zDeposit > 3000 Then MsgBox "تجاوز الحد المسموح به"
Else
   MsgBox "لم يتم العثور على رقم الحساب"
End If
-------------------------------------------------------------------------
اخي العزيز
لكم مني فائق الشكر والتقدير والله يحفظكم ويرعاكم

- تحياتي .
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] هل يوجد حل لهذه الرساله التي تظهر معي عند انشاء تقرير ؟؟ Microformt 2 70 06-06-18, 10:42 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل زر الامر غير مفعل في حال عدم جود طابعة على الحاسب ؟ Mysystem32 1 99 28-04-18, 02:18 AM
آخر رد: Amir_alzubidy
Information [vb6.0] كيف ان اجعل الصورة الموجودة في خلفية الفورم تكون في منتصف الفورم في برنامج المرفق؟؟ Microformt 2 106 01-04-18, 02:48 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل الصورة الموجودة في خلفية الفورم تتمدد في برنامج المرفق؟؟ Microformt 2 150 23-03-18, 06:26 AM
آخر رد: Microformt
  رسالة عند الخروج من الاكتف ربورت حافظ حافظ 4 122 16-03-18, 03:33 PM
آخر رد: حافظ حافظ
  سؤال..... عن الاستعلام انا اره عجيب !!!! محمد حمد محمد 7 111 24-02-18, 08:59 PM
آخر رد: محمد حمد محمد
  ظهور رسالة خطأ RUN-TIME ERROR '339 cr7 1 116 15-12-17, 08:15 PM
آخر رد: tamer2005
  ظهور رسالة خطأ RUN-TIME ERROR '339 cr7 3 288 07-12-17, 11:52 PM
آخر رد: Ahmed_Mansoor
Information [vb6.0] هل يوجد طريقة اجعل الاستعلام يعرض جميع البيانات باسرع وقت ممكن ؟؟ Microformt 3 225 26-11-17, 12:02 PM
آخر رد: الاصيله
Question [vb6.0] هل يمكن أن اجعل ملف ini قاعدة بيانات لبرنامجي ؟ Microformt 1 135 23-11-17, 12:17 AM
آخر رد: Ahmed_Mansoor

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


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