ahmedabuzena قام بنشر سبتمبر 14, 2021 مشاركة قام بنشر سبتمبر 14, 2021 السلام عليكم ورحمة الله وبركاته ارجو مساعدتى فى كود او اي طريقة اخرى بمنع تكرار ارقام المخازن للمستأجرين بمعنى المستأجر اجر مخزن 1 ومخزن 2 فلا استطيع تأجير نفس المخزن لمستأجر اخر إلا لو ترك المستأجر المخزن ففي هذة الحاله اقدر ان اعطيه لمستأجر جديد مرفق مثال يوضح ما اريد كل مستأجر امامه اختيارين renting , not renting اذا كانت renting لا استطيع تكرار المخازن الخاصه به الي عميل اخر اما اذا كانت not renting فاستطيع اعطاء نفس المخازن للعميل الجديد وجزاكم الله خيرا warehouse3.accdb رابط هذا التعليق شارك More sharing options...
kanory قام بنشر سبتمبر 14, 2021 مشاركة قام بنشر سبتمبر 14, 2021 3 ساعات مضت, ahmedabuzena said: السلام عليكم ورحمة الله وبركاته ارجو مساعدتى فى كود او اي طريقة اخرى بمنع تكرار ارقام المخازن للمستأجرين بمعنى المستأجر اجر مخزن 1 ومخزن 2 فلا استطيع تأجير نفس المخزن لمستأجر اخر إلا لو ترك المستأجر المخزن ففي هذة الحاله اقدر ان اعطيه لمستأجر جديد مرفق مثال يوضح ما اريد كل مستأجر امامه اختيارين renting , not renting اذا كانت renting لا استطيع تكرار المخازن الخاصه به الي عميل اخر اما اذا كانت not renting فاستطيع اعطاء نفس المخازن للعميل الجديد وجزاكم الله خيرا جرب هذا الكود في حدث بعد التحديث للكمبو بكس 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 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر سبتمبر 14, 2021 مشاركة قام بنشر سبتمبر 14, 2021 استاذي ومعلمي @kanoryالمحترم اسمح لي بمداخلة .. لا اعتقد هذا مطلب صاحب المشاركة فالزبون ليس له علاقة بالموضوع وانما المخزن (رغم تحفظي على النموذج) الموضوع اشبه بنظام الفنادق .. صاحب الاوتيل ليس له علاقة بالزبون انما مجرد تسجيل بياناته .. المهم لديه اظهار الغرف المستأجرة عن غيرها فاذا اراد سهوا استئجار احدى الغرف لزبون وفي الاساس كانت مستأجرة فتظهر له رسالة تنبيه .. اعتذر على الاطالة 1 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر سبتمبر 14, 2021 مشاركة قام بنشر سبتمبر 14, 2021 (معدل) 33 دقائق مضت, Eng.Qassim said: استاذي ومعلمي @kanoryالمحترم اسمح لي بمداخلة .. لا اعتقد هذا مطلب صاحب المشاركة فالزبون ليس له علاقة بالموضوع وانما المخزن (رغم تحفظي على النموذج) الموضوع اشبه بنظام الفنادق .. صاحب الاوتيل ليس له علاقة بالزبون انما مجرد تسجيل بياناته .. المهم لديه اظهار الغرف المستأجرة عن غيرها فاذا اراد سهوا استئجار احدى الغرف لزبون وفي الاساس كانت مستأجرة فتظهر له رسالة تنبيه .. اعتذر على الاطالة هذا يفعله الكود تماما ... عند محاولة اسناد المخزن ١ مثلا ل kanory ... وكان هذا المخزن مؤجر لeng.qassim تظهر رسالة تخبرة بانه سبق تاجير المخزن ... والافضل من هذا كله .. عند تاجير المخزن١ مثلا يختفى في الكمبوبكس ولا يظهر ابدا الا بعد الاخلاء ... لكن طلب السائل ذلك واجبته بارك الله فيك وننتظر جواب السائل ... تم تعديل سبتمبر 14, 2021 بواسطه kanory 4 رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر سبتمبر 15, 2021 الكاتب مشاركة قام بنشر سبتمبر 15, 2021 22 ساعات مضت, kanory said: هذا يفعله الكود تماما ... عند محاولة اسناد المخزن ١ مثلا ل kanory ... وكان هذا المخزن مؤجر لeng.qassim تظهر رسالة تخبرة بانه سبق تاجير المخزن ... والافضل من هذا كله .. عند تاجير المخزن١ مثلا يختفى في الكمبوبكس ولا يظهر ابدا الا بعد الاخلاء ... لكن طلب السائل ذلك واجبته بارك الله فيك وننتظر جواب السائل ... السلام عليكم اخي kanory جزاكم الله خيرا على الاهتمام والرد انا نسخت الكود ولكن لم يعمل ممكن اكون نسخته بطريقه خاطئه للتوضيح كما تفضل الاستاذ qassim جزاه الله خيرا هو قريب من نظام الفندق المخازن المؤجره للعميل لا اقدر ان اؤجرها لعميل اخر طالما status=renting مجرد العميل يترك المخازن وتكون status=not renting فتصبح المخازن حرة واقدر اعطيها لعميل اخر فهو اعتقد كود شرطي مرتبط بحاله العميل ان كان renting or not renting وعدد المخازن التى يؤجرها تكون على حسب حالة العميل مشغوله او فارغه ارجو ان اكون اوضحت المسأله وجزاكم الله خيرا على الاهتمام والمساعدة مرفق النموزج بعد لصق الكود لتصحيح النموزج وجزاكم الله خيرا warehouse31.accdb رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر سبتمبر 15, 2021 الكاتب مشاركة قام بنشر سبتمبر 15, 2021 23 ساعات مضت, Eng.Qassim said: استاذي ومعلمي @kanoryالمحترم اسمح لي بمداخلة .. لا اعتقد هذا مطلب صاحب المشاركة فالزبون ليس له علاقة بالموضوع وانما المخزن (رغم تحفظي على النموذج) الموضوع اشبه بنظام الفنادق .. صاحب الاوتيل ليس له علاقة بالزبون انما مجرد تسجيل بياناته .. المهم لديه اظهار الغرف المستأجرة عن غيرها فاذا اراد سهوا استئجار احدى الغرف لزبون وفي الاساس كانت مستأجرة فتظهر له رسالة تنبيه .. اعتذر على الاطالة اخي قاسم جزاكم الله خيرا على الاهتمام والمساعدة ممكن حضرتك توضح المشاكل الموجودة في النموزج حتى اتفادى اي مشاكل مستقبليه حيث قلت (تحفظك على النمزوزج) انا ضعيف في الاكسيس وبحاول اخرج ببرنامج يعمل بدون مشاكل ويساعدني في شغلي وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر سبتمبر 15, 2021 مشاركة قام بنشر سبتمبر 15, 2021 اخي العزيز .. انا قصدت ان النموذج المسمى (العملاء ) هو نموذج الايجار (renting).. نحتاج هنا في راس النموذج الى اسم العميل وبياناته وفي النموذج الفرعي نحتاج لرقم العميل والمخزن (مربع تحرير وسرد) والى الحالة (status) والتي تكون (نعم /لا).. وحينما نذهب لايجار جديد لزبون معين ونختار مخزن كانت اخر مرة لحالته (نعم) تظهر لنا رسالة بان المخزن مؤجر رابط هذا التعليق شارك More sharing options...
kanory قام بنشر سبتمبر 15, 2021 مشاركة قام بنشر سبتمبر 15, 2021 1 ساعه مضت, ahmedabuzena said: السلام عليكم اخي kanory جزاكم الله خيرا على الاهتمام والرد انا نسخت الكود ولكن لم يعمل ممكن اكون نسخته بطريقه خاطئه للتوضيح كما تفضل الاستاذ qassim جزاه الله خيرا هو قريب من نظام الفندق المخازن المؤجره للعميل لا اقدر ان اؤجرها لعميل اخر طالما status=renting مجرد العميل يترك المخازن وتكون status=not renting فتصبح المخازن حرة واقدر اعطيها لعميل اخر فهو اعتقد كود شرطي مرتبط بحاله العميل ان كان renting or not renting وعدد المخازن التى يؤجرها تكون على حسب حالة العميل مشغوله او فارغه ارجو ان اكون اوضحت المسأله وجزاكم الله خيرا على الاهتمام والمساعدة مرفق النموزج بعد لصق الكود لتصحيح النموزج وجزاكم الله خيرا تفضل جرب >>>>>>>> warehouse31.accdb 2 1 رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر سبتمبر 16, 2021 الكاتب مشاركة قام بنشر سبتمبر 16, 2021 8 ساعات مضت, kanory said: تفضل جرب >>>>>>>> warehouse31.accdb 1.06 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 6 downloads السلام عليكم اخي الكريم شكرا على تعبك واهتمامك فى مشكله بعد التجربه وجدتاني اختار مخزن غير مستخدم ولكن يعطي رساله انه مستخدم واذا اخترت مخزن مستخدم يعطي الرساله فقط ولكن يسمح بالتكرار واذا اخترت حاله العميل not renting يسمح بتاجير المخازن لعميل جديد ولكن اذا غيرت العميل القديم الى renting مرة اخرى يسمح بالتكرار عادي شكرا على مساعدتك 10 ساعات مضت, Eng.Qassim said: اخي العزيز .. انا قصدت ان النموذج المسمى (العملاء ) هو نموذج الايجار (renting).. نحتاج هنا في راس النموذج الى اسم العميل وبياناته وفي النموذج الفرعي نحتاج لرقم العميل والمخزن (مربع تحرير وسرد) والى الحالة (status) والتي تكون (نعم /لا).. وحينما نذهب لايجار جديد لزبون معين ونختار مخزن كانت اخر مرة لحالته (نعم) تظهر لنا رسالة بان المخزن مؤجر اخي العزيز ممكن تنفزها عملي حتى تتضح الصوره جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
kanory قام بنشر سبتمبر 16, 2021 مشاركة قام بنشر سبتمبر 16, 2021 تفضل >>>>> warehouse3.accdb 2 1 رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر سبتمبر 17, 2021 الكاتب مشاركة قام بنشر سبتمبر 17, 2021 في ١٦/٩/٢٠٢١ at 14:35, kanory said: تفضل >>>>> warehouse3.accdb 1.17 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads اخي kanory شكرا على مجهودك وتعبك النموزج اشتغل تمام بس متبقي مشكله واحدة اذا العميل ترك مخزن وتم تأجيره لعميل اخر لان حالة العميل الاول غير مستأجر فيشتغل النموزج تمام وميش مشكله المشكله تظهر لو العميل الاول اراد ان يستأجر المخزن مره اخرى فقط بتغيير حالته الى مستأجر نجد انه كرر المخزن مرتين ياريت لو في حل لهذة المشكله وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر سبتمبر 17, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 17, 2021 تفضل >>>>>> warehouse3.accdb 5 رابط هذا التعليق شارك More sharing options...
ahmedabuzena قام بنشر سبتمبر 18, 2021 الكاتب مشاركة قام بنشر سبتمبر 18, 2021 تسلم جزاك الله خيرا ربنا يبارك في علمك رابط هذا التعليق شارك More sharing options...
kanory قام بنشر سبتمبر 18, 2021 مشاركة قام بنشر سبتمبر 18, 2021 حياك اخي الكريم ..... بالتوفيق 1 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان