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

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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ظهور رسالة خطأ عند استعراض تقرير اكتيف ريبورت أبو عقيل 5 114 12-02-19, 08:04 PM
آخر رد: Amir_Alzubidy
  [vb6.0] المساعدة في طباعة شريط وزن تخرج رسالة خطا وادي العوضي 6 123 12-02-19, 12:47 AM
آخر رد: وادي العوضي
  طريقة كتابة المسار داخل قيمة في الريجيستري الرجل الرمادي 3 81 10-02-19, 08:05 PM
آخر رد: Amir_Alzubidy
  استخراج مقاسات مختلفة من مقاس اكبر عبدالله الصافي 1 95 20-01-19, 02:49 AM
آخر رد: عبدالله الصافي
  [vb6.0] كيف اجعل زر امر الطابعه في برنامج المرفق غير مفعل نامل الاطلاع عليه والمساعدة ان امكن Microformt 3 201 12-11-18, 02:06 PM
آخر رد: elgokr
  طريقة تغيير نوع بيانات الحقل داخل جملة الاستعلام عبدالله الصافي 3 229 05-11-18, 03:30 AM
آخر رد: حريف برمجة
  مشكلة فى رسالة معناها ان هناك مكتبات مفقودة المبرمج العتيق 2 223 26-10-18, 01:27 PM
آخر رد: المبرمج العتيق
  [سؤال] بحث عن شهر وسنة كل قيمة فى text 1 ,text2 بطريقةsql هناء صالح 1 150 20-10-18, 09:31 PM
آخر رد: Amir_Alzubidy
  [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ Microformt 2 219 21-09-18, 05:12 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل عند النقر على ComboBox تظهر للمستخدم رسالة ؟؟ Microformt 3 236 09-09-18, 11:21 PM
آخر رد: ahmed.m

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


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