ahmedabuzena قام بنشر سبتمبر 14, 2021 قام بنشر سبتمبر 14, 2021 السلام عليكم ورحمة الله وبركاته ارجو مساعدتى فى كود او اي طريقة اخرى بمنع تكرار ارقام المخازن للمستأجرين بمعنى المستأجر اجر مخزن 1 ومخزن 2 فلا استطيع تأجير نفس المخزن لمستأجر اخر إلا لو ترك المستأجر المخزن ففي هذة الحاله اقدر ان اعطيه لمستأجر جديد مرفق مثال يوضح ما اريد كل مستأجر امامه اختيارين renting , not renting اذا كانت renting لا استطيع تكرار المخازن الخاصه به الي عميل اخر اما اذا كانت not renting فاستطيع اعطاء نفس المخازن للعميل الجديد وجزاكم الله خيرا warehouse3.accdbFetching info...
kanory قام بنشر سبتمبر 14, 2021 قام بنشر سبتمبر 14, 2021 في 14/9/2021 at 13:17, ahmedabuzena said: السلام عليكم ورحمة الله وبركاته ارجو مساعدتى فى كود او اي طريقة اخرى بمنع تكرار ارقام المخازن للمستأجرين بمعنى المستأجر اجر مخزن 1 ومخزن 2 فلا استطيع تأجير نفس المخزن لمستأجر اخر إلا لو ترك المستأجر المخزن ففي هذة الحاله اقدر ان اعطيه لمستأجر جديد مرفق مثال يوضح ما اريد كل مستأجر امامه اختيارين renting , not renting اذا كانت renting لا استطيع تكرار المخازن الخاصه به الي عميل اخر اما اذا كانت not renting فاستطيع اعطاء نفس المخازن للعميل الجديد وجزاكم الله خيرا Expand جرب هذا الكود في حدث بعد التحديث للكمبو بكس Dim a As String a = "renting" If DCount("[Customer_Name]", "Customer", "[warehouse A] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse B] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse C] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse D] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" ElseIf DCount("[Customer_Name]", "Customer", "[warehouse E] ='" & Me![Combo69] & "' AND [status] ='" & a & "'") > 0 Then Cancel = True MsgBox "هذا المخزن تم استأجاره", vbCritical, "عملية خاطئة" End If 3
Eng.Qassim قام بنشر سبتمبر 14, 2021 قام بنشر سبتمبر 14, 2021 استاذي ومعلمي @kanoryالمحترم اسمح لي بمداخلة .. لا اعتقد هذا مطلب صاحب المشاركة فالزبون ليس له علاقة بالموضوع وانما المخزن (رغم تحفظي على النموذج) الموضوع اشبه بنظام الفنادق .. صاحب الاوتيل ليس له علاقة بالزبون انما مجرد تسجيل بياناته .. المهم لديه اظهار الغرف المستأجرة عن غيرها فاذا اراد سهوا استئجار احدى الغرف لزبون وفي الاساس كانت مستأجرة فتظهر له رسالة تنبيه .. اعتذر على الاطالة 1 1
kanory قام بنشر سبتمبر 14, 2021 قام بنشر سبتمبر 14, 2021 (معدل) في 14/9/2021 at 19:25, Eng.Qassim said: استاذي ومعلمي @kanoryالمحترم اسمح لي بمداخلة .. لا اعتقد هذا مطلب صاحب المشاركة فالزبون ليس له علاقة بالموضوع وانما المخزن (رغم تحفظي على النموذج) الموضوع اشبه بنظام الفنادق .. صاحب الاوتيل ليس له علاقة بالزبون انما مجرد تسجيل بياناته .. المهم لديه اظهار الغرف المستأجرة عن غيرها فاذا اراد سهوا استئجار احدى الغرف لزبون وفي الاساس كانت مستأجرة فتظهر له رسالة تنبيه .. اعتذر على الاطالة Expand هذا يفعله الكود تماما ... عند محاولة اسناد المخزن ١ مثلا ل kanory ... وكان هذا المخزن مؤجر لeng.qassim تظهر رسالة تخبرة بانه سبق تاجير المخزن ... والافضل من هذا كله .. عند تاجير المخزن١ مثلا يختفى في الكمبوبكس ولا يظهر ابدا الا بعد الاخلاء ... لكن طلب السائل ذلك واجبته بارك الله فيك وننتظر جواب السائل ... تم تعديل سبتمبر 14, 2021 بواسطه kanory 4
ahmedabuzena قام بنشر سبتمبر 15, 2021 الكاتب قام بنشر سبتمبر 15, 2021 في 14/9/2021 at 19:58, kanory said: هذا يفعله الكود تماما ... عند محاولة اسناد المخزن ١ مثلا ل kanory ... وكان هذا المخزن مؤجر لeng.qassim تظهر رسالة تخبرة بانه سبق تاجير المخزن ... والافضل من هذا كله .. عند تاجير المخزن١ مثلا يختفى في الكمبوبكس ولا يظهر ابدا الا بعد الاخلاء ... لكن طلب السائل ذلك واجبته بارك الله فيك وننتظر جواب السائل ... Expand السلام عليكم اخي kanory جزاكم الله خيرا على الاهتمام والرد انا نسخت الكود ولكن لم يعمل ممكن اكون نسخته بطريقه خاطئه للتوضيح كما تفضل الاستاذ qassim جزاه الله خيرا هو قريب من نظام الفندق المخازن المؤجره للعميل لا اقدر ان اؤجرها لعميل اخر طالما status=renting مجرد العميل يترك المخازن وتكون status=not renting فتصبح المخازن حرة واقدر اعطيها لعميل اخر فهو اعتقد كود شرطي مرتبط بحاله العميل ان كان renting or not renting وعدد المخازن التى يؤجرها تكون على حسب حالة العميل مشغوله او فارغه ارجو ان اكون اوضحت المسأله وجزاكم الله خيرا على الاهتمام والمساعدة مرفق النموزج بعد لصق الكود لتصحيح النموزج وجزاكم الله خيرا warehouse31.accdbFetching info...
ahmedabuzena قام بنشر سبتمبر 15, 2021 الكاتب قام بنشر سبتمبر 15, 2021 في 14/9/2021 at 19:25, Eng.Qassim said: استاذي ومعلمي @kanoryالمحترم اسمح لي بمداخلة .. لا اعتقد هذا مطلب صاحب المشاركة فالزبون ليس له علاقة بالموضوع وانما المخزن (رغم تحفظي على النموذج) الموضوع اشبه بنظام الفنادق .. صاحب الاوتيل ليس له علاقة بالزبون انما مجرد تسجيل بياناته .. المهم لديه اظهار الغرف المستأجرة عن غيرها فاذا اراد سهوا استئجار احدى الغرف لزبون وفي الاساس كانت مستأجرة فتظهر له رسالة تنبيه .. اعتذر على الاطالة Expand اخي قاسم جزاكم الله خيرا على الاهتمام والمساعدة ممكن حضرتك توضح المشاكل الموجودة في النموزج حتى اتفادى اي مشاكل مستقبليه حيث قلت (تحفظك على النمزوزج) انا ضعيف في الاكسيس وبحاول اخرج ببرنامج يعمل بدون مشاكل ويساعدني في شغلي وجزاكم الله خيرا
Eng.Qassim قام بنشر سبتمبر 15, 2021 قام بنشر سبتمبر 15, 2021 اخي العزيز .. انا قصدت ان النموذج المسمى (العملاء ) هو نموذج الايجار (renting).. نحتاج هنا في راس النموذج الى اسم العميل وبياناته وفي النموذج الفرعي نحتاج لرقم العميل والمخزن (مربع تحرير وسرد) والى الحالة (status) والتي تكون (نعم /لا).. وحينما نذهب لايجار جديد لزبون معين ونختار مخزن كانت اخر مرة لحالته (نعم) تظهر لنا رسالة بان المخزن مؤجر
kanory قام بنشر سبتمبر 15, 2021 قام بنشر سبتمبر 15, 2021 في 15/9/2021 at 18:55, ahmedabuzena said: السلام عليكم اخي kanory جزاكم الله خيرا على الاهتمام والرد انا نسخت الكود ولكن لم يعمل ممكن اكون نسخته بطريقه خاطئه للتوضيح كما تفضل الاستاذ qassim جزاه الله خيرا هو قريب من نظام الفندق المخازن المؤجره للعميل لا اقدر ان اؤجرها لعميل اخر طالما status=renting مجرد العميل يترك المخازن وتكون status=not renting فتصبح المخازن حرة واقدر اعطيها لعميل اخر فهو اعتقد كود شرطي مرتبط بحاله العميل ان كان renting or not renting وعدد المخازن التى يؤجرها تكون على حسب حالة العميل مشغوله او فارغه ارجو ان اكون اوضحت المسأله وجزاكم الله خيرا على الاهتمام والمساعدة مرفق النموزج بعد لصق الكود لتصحيح النموزج وجزاكم الله خيرا Expand تفضل جرب >>>>>>>> warehouse31.accdbFetching info... 2 1
ahmedabuzena قام بنشر سبتمبر 16, 2021 الكاتب قام بنشر سبتمبر 16, 2021 في 15/9/2021 at 20:49, kanory said: تفضل جرب >>>>>>>> warehouse31.accdb 1.06 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 6 downloads Expand السلام عليكم اخي الكريم شكرا على تعبك واهتمامك فى مشكله بعد التجربه وجدتاني اختار مخزن غير مستخدم ولكن يعطي رساله انه مستخدم واذا اخترت مخزن مستخدم يعطي الرساله فقط ولكن يسمح بالتكرار واذا اخترت حاله العميل not renting يسمح بتاجير المخازن لعميل جديد ولكن اذا غيرت العميل القديم الى renting مرة اخرى يسمح بالتكرار عادي شكرا على مساعدتك في 15/9/2021 at 19:39, Eng.Qassim said: اخي العزيز .. انا قصدت ان النموذج المسمى (العملاء ) هو نموذج الايجار (renting).. نحتاج هنا في راس النموذج الى اسم العميل وبياناته وفي النموذج الفرعي نحتاج لرقم العميل والمخزن (مربع تحرير وسرد) والى الحالة (status) والتي تكون (نعم /لا).. وحينما نذهب لايجار جديد لزبون معين ونختار مخزن كانت اخر مرة لحالته (نعم) تظهر لنا رسالة بان المخزن مؤجر Expand اخي العزيز ممكن تنفزها عملي حتى تتضح الصوره جزاكم الله خيرا
kanory قام بنشر سبتمبر 16, 2021 قام بنشر سبتمبر 16, 2021 تفضل >>>>> warehouse3.accdbFetching info... 2 1
ahmedabuzena قام بنشر سبتمبر 17, 2021 الكاتب قام بنشر سبتمبر 17, 2021 في 16/9/2021 at 12:35, kanory said: تفضل >>>>> warehouse3.accdb 1.17 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads Expand اخي kanory شكرا على مجهودك وتعبك النموزج اشتغل تمام بس متبقي مشكله واحدة اذا العميل ترك مخزن وتم تأجيره لعميل اخر لان حالة العميل الاول غير مستأجر فيشتغل النموزج تمام وميش مشكله المشكله تظهر لو العميل الاول اراد ان يستأجر المخزن مره اخرى فقط بتغيير حالته الى مستأجر نجد انه كرر المخزن مرتين ياريت لو في حل لهذة المشكله وجزاكم الله خيرا
تمت الإجابة kanory قام بنشر سبتمبر 17, 2021 تمت الإجابة قام بنشر سبتمبر 17, 2021 تفضل >>>>>> warehouse3.accdbFetching info... 5
ahmedabuzena قام بنشر سبتمبر 18, 2021 الكاتب قام بنشر سبتمبر 18, 2021 تسلم جزاك الله خيرا ربنا يبارك في علمك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.