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

[@krarhade1722]

حمد لله علئ السلامه استاذ

[@access3588]

اشكرك

[@werger7879]

مرحبا بعودتك يا غالي, بانتظار المزيد من ابداعاتك, حمدالله على السلامة

[@access3588]

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

[@ayj_99]

عاشت الايادي يروحي ربي يوفقك ويسعدك

[@access3588]

وايدك اخوية

[@naef050]

أخيرن الحمد الله على السلامه والله طولة بزياده اهم شي إنك تكون بأتم الصحه والعافي الله يحقق أمنياتك

[@access3588]

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

[@حسامالسعدي-ق5م]

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

[@access3588]

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

[@حسامالسعدي-ق5م]

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

[@khalidaladras3065]

منور اخي محمد
اتمني لك التوفيق
دوماً في المقدمة

[@access3588]

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

[@constant0]

المبدع بالتوفيق الك

[@bouchelaghemzola4461]

بالتوفيق ان شاءالله

[@access3588]

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

[@ayaddaham5174]

عودة موفقه وعاشت ايدك

[@access3588]

وايدك اخوية

[@مصنعميسان]

حمد لله على السلامه ... ارجوا منك استاذنا ارفاق كود الحذف في الوصف ... مع خالص الود والاحترام

[@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

[@مصنعميسان]

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

[@hussainkhalid7504]

عودة موفقة استاذنا
ربي يوفقك و يبعد عنك كل شر 🌹❤️

[@access3588]

اشكرك اخوية

[@nawafanas6170]

تسلم استاذ ربي ينطيك الصحه والعافيه

[@access3588]

ربي يحفظك

[@النَّسِيم-و8س]

ياهله بيك عزيزي

[@access3588]

وكل الهلا بيك

[@constant0]

نتمنى الاستمرارية و احنه ندعمك

[@access3588]

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

[@emadabuhagag222]

حياكم الله

[@مصنعميسان]

اطلت الغيبة علينا استاذنا

[@access3588]

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

[@ayj_99]

ياريت يكون الدرس الثالث هو الاخير واني ممنون منك

[@access3588]

ان شاء الله

[@mosaaljebory3575]

عاشت ايدك اتمنى ترفع الملف حتى نطبق على البرنامج ممنون منك

[@access3588]

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

[@mohammedjassam1547]

سلام عليكم استاذ شون نحصل البرنامج وشگد سعر الاستراك

[@مصنعميسان]

اشكر مجهودك الرائع ... اكملت البرنامج بنسبة 95% .. فقط هناك مشكله في مجموع ديون الزبائن ... فلا تظهر مجموع الديون الا عندما يكون هناك تسديد للزبون في نموذج التسديد وعندما ادخل مبلغ تسديد تظهر الديون وبشكل طبيعي .. فهل تفضلت وادرجت الكود الخاص بحقلي الدولار والدينار لمجموع ديون الزبائن ... مع خالص الاحترام ..

[@access3588]

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

[@مصنعميسان]

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

[@access3588]

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

[@alaanije4910]

السلام عليكم عندي امر التسديد مديضبط وياي ينطيني غلط DoCmd.Close acForm, "
DoCmd.Close acForm, ""
DoCmd.OpenForm , " ممكن ترسلي الكودات