ما المشكلة في هذا الكود بالرغم من وضعي شرط لكي يحتسب الحقول والفارغة وصورة الخطأ في المرفقات
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\db.mdb"
rs.Open "update master set zcr_rem=zcr_rem - int(zcr_qunt/zcr_sub) , zcr_ded=zcr_ded+ int(zcr_qun/zcr_sub) where zcr_rem - int(zcr_qunt/zcr_sub) >=int(zcr_qunt/zcr_sub) and zcr_qunt>0 ", db, adOpenStatic, adLockPessimistic
معنى الرسالة : أنه لم يتم تعيين قيمة لأحد المتغيرات
بعدين الكود المفروض يكون كده : Set db = New ADODB.Connection Set rs = New ADODB.Recordset db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\db.mdb" rs.Open "update master set zcr_rem=zcr_rem - int(zcr_qunt/zcr_sub) , zcr_ded=zcr_ded+ int(zcr_qun/zcr_sub) where zcr_rem - int(zcr_qunt/zcr_sub) >=int(zcr_qunt/zcr_sub) and zcr_qunt>0 ", db, adOpenStatic, adLockPessimistic
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
سلام عليكم
مشكور اخ علاء ولكن ممكن اتفهمني ما الفرق بين الكودين ارجو ان توضح لي
هذا الموضوع مغلق.