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

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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ في جملة الاستعلام Ahmed Abdulla 7 177 28-03-17, 11:29 AM
آخر رد: Ahmed Abdulla
  رسالة خطأ بالبرنامج مربوط بقاعدة بيانات بأداة ADODC haniblack 4 348 06-03-17, 12:35 AM
آخر رد: YOUSEF_READH
  ما الخطاء في جملة الاستعلام النالية حيث لا تعمل allobaed 2 85 26-02-17, 06:59 PM
آخر رد: allobaed
  التراجع عن آخر قيمة مدخلة إلى Listbox ثم التي سبقتها وهكذا الخير طهوري 6 147 17-02-17, 04:41 AM
آخر رد: الخير طهوري
Information [vb6.0] تظهر لي هذه الرساله المرفقه عند عمل اعداد لبرنامج ما المقصود منها ؟؟ Microformt 0 75 14-02-17, 09:23 PM
آخر رد: Microformt
Heart [vb6.0] استفسار - كيف اجعل قاعدة البيانات على الانترنت sl_dl1 1 137 14-02-17, 01:06 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف اجعل عند الضغط على مفتاح Ctrl+ Alt + F3 من الوحة المفتايح يتم إغلاق الفورم ؟؟ Microformt 12 563 21-01-17, 11:16 AM
آخر رد: Microformt
  [ تمّ الحل ] : إيجاد أكبر قيمة بالعمود عبد العزيز البسكري 11 316 25-12-16, 07:20 PM
آخر رد: عبد العزيز البسكري
  [ تمّ الحل ] : ما سبب ظهور رسالة الخطأ لو سمحتم عبد العزيز البسكري 2 162 09-12-16, 04:07 PM
آخر رد: عبد العزيز البسكري
  طباعة الاستعلام في activeReport كنونو 2 262 28-11-16, 05:19 AM
آخر رد: كنونو

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


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