رساله ايقاف حساب عميل

[النجاشي]

السلام عليكم ورحمه الله وبركاته موضوعي اليوم

اضفت حقل بجدول العملاء

اريد عندما أكون اضع علامه صح في الجدول واقوم بعمل فاتوره للعميل تجي رساله انا هذه الحساب موقوف ويمنع من اصدار الفاتوره ما دام حسابه موقوف

شاكر للقايمن والمشرفين لهدا المنتدي تحياتي لكم

ايقاف حساب عميل.rar

[Shivan Rekany]

منذ ساعه, ابو زاهر said:

السلام عليكم ورحمه الله وبركاته موضوعي اليوم

اضفت حقل بجدول العملاء

اريد عندما أكون اضع علامه صح في الجدول واقوم بعمل فاتوره للعميل تجي رساله انا هذه الحساب موقوف ويمنع من اصدار الفاتوره ما دام حسابه موقوف

شاكر للقايمن والمشرفين لهدا المنتدي تحياتي لكم

ايقاف حساب عميل.rar

كان فيه كود لذا اضفت كود اخر
يعني في النهاية كود سيكون كالتالي

Private Sub رقم_العميل_AfterUpdate()
If DCount("[NaEMP]", "[Empp]", "[NoEmp]=" & Me.رقم_العميل) < 1 Then
MsgBox "ما عدنا اي عميل بهذا الرقم"
Me.Undo
ElseIf Me.رقم_العميل = DLookup("NoEmp", "empp", "[Aikafhsab]=" & -1) Then
MsgBox "حساب هذا العميل موقوف"
Me.Undo
Else
Me.[اسم المستخدم] = Me.user1
End If
End Sub

تحياتي

ايقاف حساب عميل.rar

[النجاشي]

ربنا يبارك فيك اخي@shivan rekany أبو محمد

 لو القيت نظره بعد ماتفتح فاتوره اجل وتضغط f2 وتعمل بكللك مرتين او انتر ستلاحظ يتجاوز الكود انا نسيت انبهك  السموحه

ربي يبارك فيك

تم تعديل أبريل 10, 2017 بواسطه ابو زاهر

[النجاشي]

السلام عليكم ورحمه الله وبركاته اخي@shivan rekany

اخي أبو محمد الكود رائع اذا أدخلت رقم العميل من الفاتوره ممتاز

لكن اذا دخلت عن طريق f2  نموذج أسماء العملاء يتوقف الكود عن العمل ويقبل الحفظ 

القي اليه اخي نظره وشوف ايش المشكله ربي يعافيك ويحفظك من كل مكروه

[Shivan Rekany]

23 دقائق مضت, ابو زاهر said:

السلام عليكم ورحمه الله وبركاته اخي@shivan rekany

اخي أبو محمد الكود رائع اذا أدخلت رقم العميل من الفاتوره ممتاز

لكن اذا دخلت عن طريق f2  نموذج أسماء العملاء يتوقف الكود عن العمل ويقبل الحفظ 

القي اليه اخي نظره وشوف ايش المشكله ربي يعافيك ويحفظك من كل مكروه

اتفضل

 

ايقاف حساب عميل.rar

[النجاشي]

جزاك الله خيراخي@shivan rekany أبو محمد اسال الله العظيم ان يفرج همك

واشكرك على سعه صدرك ومساعدتك لاخوانك المبتدين فجزاك الله خير الجزاء

تحياتي لك اخي