02-11-13, 08:06 AM
السلام عليكم
- إستخدم هذا الكود :
- تحياتي .
- إستخدم هذا الكود :
كود :
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
