+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف اجعل تظهر رسالة لمستخدم إذا كان قيمة الاستعلام اكبر مث 3000 ؟؟ (/showthread.php?tid=809)
كيف اجعل تظهر رسالة لمستخدم إذا كان قيمة الاستعلام اكبر مث 3000 ؟؟ - Microformt - 01-11-13
الساده الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل تظهر رسالة لمستخدم إذا كان قيمة الاستعلام اكبر مث 3000 ؟؟
نامل من الله المساعده في برنامجي المرفق والله يحفظكم ويرعاكم
RE: كيف اجعل تظهر رسالة لمستخدم إذا كان قيمة الاستعلام اكبر مث 3000 ؟؟ - VB_Coder - 02-11-13
السلام عليكم
- إستخدم هذا الكود :
كود :
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- تحياتي .
RE: كيف اجعل تظهر رسالة لمستخدم إذا كان قيمة الاستعلام اكبر مث 3000 ؟؟ - Microformt - 02-11-13
(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
اخي العزيز
لكم مني فائق الشكر والتقدير والله يحفظكم ويرعاكم
- تحياتي .