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

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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] عند فتح الكومبو بوكس تظهر فيها جميع اسماء الزبائن وادي العوضي 3 352 27-11-23, 01:05 AM
آخر رد: وادي العوضي
Question [vb6.0] كيف اجعل تقرير برنامجي تكون السجلات ملونه مثل الذي في الصورة التأليه ؟ Microformt 0 276 29-10-23, 07:37 PM
آخر رد: Microformt
Lightbulb [سؤال] إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 أبو خالد الشكري 4 326 13-09-23, 09:52 PM
آخر رد: أبو خالد الشكري
  رسالة خطأ تظهر لي ما الحل؟ Alhootti1 3 284 28-08-23, 02:11 PM
آخر رد: ahmedabdelaliem
Information [vb6.0] كيف اجعل الارقم في التقرير باء الغه الانجليزية حتى لو كان نظام الارقام في الويندوز Microformt 0 179 16-08-23, 10:41 AM
آخر رد: Microformt
Question [vb6.0] كيف اجعل الصورة تتحرك تدريجياً الى منتصف الفورة من جهة اليمين ؟ Microformt 1 367 13-04-23, 04:57 PM
آخر رد: Taha Okla
Question [vb6.0] اريد إذا كان قيمة المحول صفر يظهر لي رسالة هل يمكن ذلك ؟ Microformt 0 371 20-03-23, 08:33 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل هذا الشريط يظهر المساحة المستخدمة من قاعدة البيانات؟ Microformt 2 741 05-10-22, 08:53 AM
آخر رد: Microformt
Question [vb6.0] كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ Microformt 4 655 28-09-22, 04:54 PM
آخر رد: Microformt
Question [vb6.0] كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟ Microformt 2 721 04-08-22, 10:21 PM
آخر رد: Microformt

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


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