حجز مواعيد لعيادة طبية لعدد محدد في اليوم

[elhadi]

السلام عليكم

انا في مرحلة صناعة مشروع حجز مواعيد لعيادة طبية و اريد من الاخوة الكرام طلب و هو كالتالي

عملية الحجز اليومي هو 50 مريض و في خانة تاريخ الموعد اريد ان يتم الانتقال لليوم الموالي بمجرد امتلاء المواعيد لهذا اليوم و المقدرة بـ50 مع مراعاة ايام العطل كالجمعة و السبت

 

[.Azhar]

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

الالوان باللون الاخضر هي اسم جدولك واسم حقل تاريخ اليوم ويجب ان يكون ذاتياً ورقم ID معرف السجل لديك .

Private Sub Form_BeforeUpdate(Cancel As Integer)

  Dim CountOfTodaysEntries As Integer
  CountOfTodaysEntries = DCount("YourFieldID", "YourTable", "YourDateField = Date() AND YourUserID = " & Me.UserID)
  If CountOfTodaysEntries >= 50 Then
    MsgBox "الادخالات اليومية بلغت حدها الاقصى "
    Cancel = True
  End If

End Sub

تم تعديل سبتمبر 28, 2014 بواسطه .Azhar

[.Azhar]

اذا لم يعمل عندك الكود استبدل السطر هذا

If CountOfTodaysEntries >= 50 Then

بهذا السطر بمعنى استخدم دالة IIf والغاء علامة = والابقاء على علامة الاكبر من فيصبح بهذا الشكل .

IIf CountOfTodaysEntries > 50 Then

انا لم اجرب هذا على مثال حاول انت ان تجربه واعطني النتائج .

اتمنى لك النجاح .

[elhadi]

بارك الله فيك اخي Members-2

ممكن اخي تطبيقه على المثال من فضلك

[elhadi]

بارك الله فيك اخي Members-2

هذا تالتفصيل المراد من الطلب

انا في طور اعداد برنامج عيادة طبية و عند محاولي اعطاء مواعيد للمرضى لكل باختصاصه و لكل عدد محدد في اليوم

عند فتح البرنامج في الواجهة الرئيسية و من تحديث المواعيد ثم اختيار أي اختصاص  لاظافة موعد جديد اريد طريقة لكي يعرض لي آخر تاريخ و عدد المرضى المسجلين بذالك التاريخ في قاعدة البيانات الرئيسية  من جدول MALADE  به قبل اعطاء موعد جديد لمريض جديد مع العلم انه كل اختصاص يقبل 40 موعد في اليوم

ممكن تطبيق الدالة على البرنامج و شكرا

BD.rar