اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

التحكم بعدد الادخالات


afa
إذهب إلى أفضل إجابة Solved by afa,

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

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

اسعد الله اوقاتكم بكل خير

 

لدي نموذجين نموذج1 لاستخدام المدير ونموذج 2 لاستخدام الموظف. كيف اجعل المدير يتحكم بعدد مرات الادخال للموظف بتاريخ محدد. مثلا لايسمح للموظف بادخال اكثر من عشرة طلبات ليوم السبت بتاريخ 18/01/2014 مثلا وباقي الايام مسموح للموظف بادخال الطلبات التي يحتاجها. علما ان النموذجين مربوطين لنفس الجدول.

 

جزاكم الله خير على الجهد والوقت

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

حتى تكون الطريقة مرنة ويمكن التحكم بالسجلات المطلوبة فلا بد من انشاء جدول يحتوي على  حقل للتاريخ وحقل لعدد السجلات المطلوبة ومن خلال النموذج يمكن للمدير تحديد التاريخ وعدد السجلات

 

انظر المرفق يوضح الفكرة

db44.rar

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

جزاك الله خير اخي ابو خليل

حاولت اطبق مثالك ولم انجح

 

برنامجي يتمحور حول مكانين, الاول عياده طبيه والاخر مكتب نوظيف. فعندما ياتي طالب الوظيفه لمكتب التوظيف يقومون بادخال بياناته وحجز موعد للفحص الطبي . ولعدم ارباك الاطباء ومواعيد المرضي , فاني اريد السماح لمكتب التوظيف بحجز عدد معين من المواعيد كل يوم وليكن 10 مواعيد, ولكن في بعض الايام نسمح لهم بزيادة العدد الى 15 مثلا تماشيا مع زيادة عدد المتقدمين للوظائف. انا في العيادة واريد التحكم بعدد الحجوزات التي يمكن لمكتب التوظيف ان ياخذها لكل يوم. فمثلا يمكن لمكتب التوظيف ان يدخل بيانات عدد لامحدود في يوم 01/01/02014 ولكن لايستطيع الحجز للفحص الطبي لاكثر من عشرة اشخاص في 01/01/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.

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

×   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