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
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
-------------------------------------------------------------------------
اخي العزيز
لكم مني فائق الشكر والتقدير والله يحفظكم ويرعاكم
- تحياتي .
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ