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

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


الملفات المرفقة
.rar   Me.software.rar (الحجم : 39.49 ك ب / التحميلات : 133)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:
#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
-------------------------------------------------------------------------
اخي العزيز
لكم مني فائق الشكر والتقدير والله يحفظكم ويرعاكم

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ Microformt 2 77 21-09-18, 05:12 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل عند النقر على ComboBox تظهر للمستخدم رسالة ؟؟ Microformt 3 83 09-09-18, 11:21 PM
آخر رد: ahmed.m
Question [vb6.0] يوجد مشكله في البحث حيث لا يظهر قيمة هذا الخيار عندي البحث الموجود في الصورة ؟؟ Microformt 5 134 20-08-18, 08:47 PM
آخر رد: elgokr
Question [سؤال] لماذا تظهر هذه الرسالة في فيجوال بيسك؟؟؟ Omar 6.0 6 817 18-08-18, 07:05 PM
آخر رد: elgokr
Exclamation [سؤال] لماذا عند التشغيل تظهر هذه الرسالة MicroDoha 2 82 18-08-18, 06:45 PM
آخر رد: MicroDoha
Question [vb6.0] هل يوجد حل لهذه الرساله التي تظهر معي عند انشاء تقرير ؟؟ Microformt 2 153 06-06-18, 10:42 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل زر الامر غير مفعل في حال عدم جود طابعة على الحاسب ؟ Mysystem32 1 156 28-04-18, 02:18 AM
آخر رد: Amir_Alzubidy
Information [vb6.0] كيف ان اجعل الصورة الموجودة في خلفية الفورم تكون في منتصف الفورم في برنامج المرفق؟؟ Microformt 2 167 01-04-18, 02:48 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل الصورة الموجودة في خلفية الفورم تتمدد في برنامج المرفق؟؟ Microformt 2 255 23-03-18, 06:26 AM
آخر رد: Microformt
  رسالة عند الخروج من الاكتف ربورت حافظ حافظ 4 180 16-03-18, 03:33 PM
آخر رد: حافظ حافظ

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


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