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

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


الملفات المرفقة
.rar   Me.software.rar (الحجم : 39.49 ك ب / التحميلات : 87)

الرد }}}}
تم الشكر بواسطة:
#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
-------------------------------------------------------------------------
اخي العزيز
لكم مني فائق الشكر والتقدير والله يحفظكم ويرعاكم

- تحياتي .

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التراجع عن آخر قيمة مدخلة إلى Listbox ثم التي سبقتها وهكذا جورج190 6 79 17-02-17, 04:41 AM
آخر رد: جورج190
Information [vb6.0] تظهر لي هذه الرساله المرفقه عند عمل اعداد لبرنامج ما المقصود منها ؟؟ Microformt 0 39 14-02-17, 09:23 PM
آخر رد: Microformt
Heart [vb6.0] استفسار - كيف اجعل قاعدة البيانات على الانترنت sl_dl1 1 63 14-02-17, 01:06 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف اجعل عند الضغط على مفتاح Ctrl+ Alt + F3 من الوحة المفتايح يتم إغلاق الفورم ؟؟ Microformt 12 337 21-01-17, 11:16 AM
آخر رد: Microformt
  [ تمّ الحل ] : إيجاد أكبر قيمة بالعمود عبد العزيز البسكري 11 204 25-12-16, 07:20 PM
آخر رد: عبد العزيز البسكري
  [ تمّ الحل ] : ما سبب ظهور رسالة الخطأ لو سمحتم عبد العزيز البسكري 2 102 09-12-16, 04:07 PM
آخر رد: عبد العزيز البسكري
  طباعة الاستعلام في activeReport كنونو 2 165 28-11-16, 05:19 AM
آخر رد: كنونو
Photo [سؤال] رسالة خطأ عند فتح مشروف vb 6 accmohamed63241 2 133 22-11-16, 12:18 PM
آخر رد: accmohamed63241
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 660 17-11-16, 11:54 PM
آخر رد: iisys
  مشكلة عندتعديل حقل التاريخ بحيث اذا ترك فارغا تظهر رسالة (نوع غير متطابق) allobaed 3 208 10-11-16, 11:58 PM
آخر رد: Ahmed_Mansoor

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


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