afa قام بنشر يناير 15, 2014 قام بنشر يناير 15, 2014 السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير لدي نموذجين نموذج1 لاستخدام المدير ونموذج 2 لاستخدام الموظف. كيف اجعل المدير يتحكم بعدد مرات الادخال للموظف بتاريخ محدد. مثلا لايسمح للموظف بادخال اكثر من عشرة طلبات ليوم السبت بتاريخ 18/01/2014 مثلا وباقي الايام مسموح للموظف بادخال الطلبات التي يحتاجها. علما ان النموذجين مربوطين لنفس الجدول. جزاكم الله خير على الجهد والوقت
ابوخليل قام بنشر يناير 16, 2014 قام بنشر يناير 16, 2014 لحل المسألة ارى انك تحتاج الى عدة ضوابط واكواد ارفق مثالا بالمطلوب للتعديل واحرص ان يكون على امتداد mdb
afa قام بنشر يناير 16, 2014 الكاتب قام بنشر يناير 16, 2014 السلام عليكم ورحمة الله وبركاته مرفق المثال مع التحيه reserv.rar
ابوخليل قام بنشر يناير 17, 2014 قام بنشر يناير 17, 2014 حتى تكون الطريقة مرنة ويمكن التحكم بالسجلات المطلوبة فلا بد من انشاء جدول يحتوي على حقل للتاريخ وحقل لعدد السجلات المطلوبة ومن خلال النموذج يمكن للمدير تحديد التاريخ وعدد السجلات انظر المرفق يوضح الفكرة db44.rar
afa قام بنشر يناير 23, 2014 الكاتب قام بنشر يناير 23, 2014 جزاك الله خير اخي ابو خليل حاولت اطبق مثالك ولم انجح برنامجي يتمحور حول مكانين, الاول عياده طبيه والاخر مكتب نوظيف. فعندما ياتي طالب الوظيفه لمكتب التوظيف يقومون بادخال بياناته وحجز موعد للفحص الطبي . ولعدم ارباك الاطباء ومواعيد المرضي , فاني اريد السماح لمكتب التوظيف بحجز عدد معين من المواعيد كل يوم وليكن 10 مواعيد, ولكن في بعض الايام نسمح لهم بزيادة العدد الى 15 مثلا تماشيا مع زيادة عدد المتقدمين للوظائف. انا في العيادة واريد التحكم بعدد الحجوزات التي يمكن لمكتب التوظيف ان ياخذها لكل يوم. فمثلا يمكن لمكتب التوظيف ان يدخل بيانات عدد لامحدود في يوم 01/01/02014 ولكن لايستطيع الحجز للفحص الطبي لاكثر من عشرة اشخاص في 01/01/2014. آمل ان اكون قد اوصلت الفكرة . جزاكم الله خيرا
تمت الإجابة afa قام بنشر يناير 26, 2014 الكاتب تمت الإجابة قام بنشر يناير 26, 2014 نعم الفكرة جميلة والكاتب اجمل حاولت ومشى الحال ولكن لايمكن اضافة اكثر من تاريخ واحد!! فهل من الممكن اضافة اكثر من تاريخ في الجدول لاتمكن من اختيار التاريخ الذي اريد؟ الكود الذي ااستخدمته كالتالي: Private Sub Text15_AfterUpdate() Dim max_num_res As Integer Dim max_res_date As Date max_num_res = DLookup("MaxNumReserv", "reservation_dates_max") max_res_date = DLookup("MaxNumDate", "reservation_dates_max") If max_res_date = Text15.Value Then Text13 = max_num_res Else Text15.Value = Date Text13.Value = 3 End If End Sub ودمتم بخير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.