تصميم برنامج الديون ( الدرس الثاني ) Debt program 

اشكرك اخوية ربي يحفظك

اشكرك اخوية

اشكرك اخوية ربي يوفقك

@@access3588اخي العزيز عملت كل شي ولكن ما ينخذف الزبون فيا ريت نشر الكود

@@حسامالسعدي-ق5م ارسل لي قاعدة البيانات لنظر فيها

@@access3588 هم اكو ربط اسم الزبون مع اسم الزبون

يسلموا ربي يحفظك

وايدك اخوية

يسلموا ربي يحفظك

اشكرك

ربي يحفظك

If IsNull([a]) Then MsgBox ("لايوجد اسم زبون ") Else If [نص6] > 0 Then MsgBox ("لا يمكن المسح لوجود ديون مترتبة على الزبون") DoCmd.CancelEvent Else If [نص4] > 0 Then MsgBox ("لا يمكن المسح لوجود ديون مترتبة على الزبون") DoCmd.CancelEvent Else If [نص4] 0 And [نص6] 0 Then MsgBox ("لا يمكن المسح لوجود ديون مترتبة على الزبون") DoCmd.CancelEvent Else Dim r r = MsgBox("سوف تقوم بمسح زبون ", vbYesNo, "تحذير") If r = vbYes Then DoCmd.OpenQuery "حذف تسديد" DoCmd.OpenQuery "حذف زبائن" DoCmd.OpenQuery "حذف معلومات" MsgBox ("تم الحذف بنجاح") Else If r = vbNo Then MsgBox ("تم التراجع عن الحذف") DoCmd.CancelEvent End If End If End If End If End If End If

ممنون استاذنا

اشكرك ربي يوفقك

وايدك اخوية

ان شاء الله خير

وكل الهلا بيك

ان شاء الله

اخوية كل شي مشروح بالتفصل

استخدم داله NZ([])

@@access3588 هذه الدالة استخدمتها لديون الزبون ... اما هذا الدالة التي استخدمتها للجميع ديون الزبائن ولم تضبط معي فهي =DSum("[التسديد]";"[معلومات الفاتوره]";"[نوع العملة]='دينار'")-DSum("[التسديد]";"[التسديد]";"[نوع العمله]='دينار'")- DSum("[الشراء]";"[معلومات الفاتوره]";"[نوع العملة]='دينار'") ... فلا تظهر اي قيمه حتى يكون هناك مبلغ في خانة التسديد ... حاولت ان اجعل قيمة حقل التسديد تساوي صفر اذا كان فارغ لكن لم تنجح .. مع خالص الود .

@@مصنعميسان ان شاء الله راح اشرحة بهذا الدرس