[Microformt]

(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

-------------------------------------------------------------------------
اخي العزيز
لكم مني فائق الشكر والتقدير والله يحفظكم ويرعاكم

- تحياتي .