اذهب الي المحتوي
أوفيسنا

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


النجاشي

الردود الموصى بها

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

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

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

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

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

رابط هذا التعليق
شارك

منذ ساعه, ابو زاهر 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

  • Like 1
رابط هذا التعليق
شارك

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

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

ربي يبارك فيك

تم تعديل بواسطه ابو زاهر
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

اتفضل

 

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

رابط هذا التعليق
شارك

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

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

تحياتي لك اخي

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information