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

[@krarhade1722]

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

[@access3588]

اشكرك

[@werger7879]

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

[@access3588]

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

[@ayj_99]

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

[@access3588]

وايدك اخوية

[@nawafanas6170]

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

[@access3588]

ربي يحفظك

[@naef050]

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

[@access3588]

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

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

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

[@access3588]

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

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

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

[@hussainkhalid7504]

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

[@access3588]

اشكرك اخوية

[@ayaddaham5174]

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

[@access3588]

وايدك اخوية

[@constant0]

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

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

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

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

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

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

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

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

[@access3588]

وكل الهلا بيك

[@khalidaladras3065]

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

[@access3588]

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

[@bouchelaghemzola4461]

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

[@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 , " ممكن ترسلي الكودات