السلام عليكم ورحمه الله وبركاته
اثناء محاول عمل نظام لحجز مواعيد للمرضى بالمستشفى عن طريق برنامج الاكسس هناك جزء لم اتمكن من معرفته ، كيفيه اظهار علامه او ضوء احمر اذا كان هناك تعارض بأوقات الحجز لنفس الدكتور مثلاً
لمى حجزت موعد لدى الدكتوره منى الساعه ٨ صباحاً
فأتت ليلى وارادت حجز موعد لدى الدكتوره منى الساعه ٨ صباحاً فيجب على النظام اظهار علامه حمراء بخانه الوقت حتى يتبين لـ ليلى بأن الدكتور محجوز بهذا الوقت لدى مريض اخر ويتوجب عليها تغير الوقت ، نرجوا المساعده
لنفرض أن جدول المواعيد مكون على النحو التالي
appointment( start_time , end_time)
حيث سنعطي كل موعد وقت للبدء ووقت للانتهاء
عندها عليك بعمل الاستعلام التالي :
select *
FROM appointment
WHERE ((([x]) Between [appointment].[start_time] And [appointment].[end_time]));
حيث x هو الموعد المراد إدخاله
الاستعلام سيعيد عدد المواعيد التي تتعارض مع الموعد المدخل
بعد ذلك نذهب للفورم الخاص بحجز المواعيد , لنفرض أن الخانة الخاصة لإدخال الموعد هي Text0 , نقوم بكتابة الكود التالي في الزر الخاص بعملية حجز الموعد
Private Sub Command2_Click()
Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim rst As DAO.Recordset
Set db = CurrentDb
Set qd = db.QueryDefs("Query1")
qd.Parameters("x") = Forms!Form1!Text0
Set rst = qd.OpenRecordset()
m = rst.RecordCount
If m > 0 Then
Text0.BackColor = 112233
MsgBox "Not Avialable"
End If
End Sub
__________
هذه فكرة مبسطة , قد تكون هناك حلول أفضل لكن المعذرة فلم أعمل على الأكسس منذ ما يزيد عن الخمس سنوات
يعطيك العافيه وجزاك الله خيراً
لكن كيف اربط وقت الحجز مع اسم الدكتور بحيث لا يتعارض اذا كان موجود حجز مسبقاً ؟
يجب أن نضيف حقل لاسم الدكتور في جدول المواعيد ولنسمه مثلًا doctorID ثم نعدل الاستعلام على النحو التالي
SELECT *
FROM appointment
WHERE (appointment.doctorID=[doc] and(([x]) Between [appointment].[start_time] And [appointment].[end_time]));
ثم نضيف textbox لاسم الطبيب على الفورم ولنفرض أنه Text3 (الأفضل طبعًا جعله combobox يقوم بسرد أسماء الأطباء )عندها نضيف السطر التالي على زر أم الحجز الموجود على الفورم
qd.Parameters("doc") = Forms!Form1!Text3
بعد هذا السطر :
qd.Parameters("x") = Forms!Form1!Text0
عندها سيتوجب على المراجع ادخال اسم الطبيب والموعد المحدد والاستعلام سنببه إن كان هذا الموعد محجوز مسبقًا
الخطوة التالية هي إضافة جملة Else وتنفيذ عملية الحجز تحتها
يعطيك العافيه طيب لو سمحت ممكن تعيد لي الخطوات مره ثانيه مرتبه لاني بديت اضيع بترتيب الخطوات ، بالاضافه الى هل اسوي استعلام واحد فقط ام استعلامين ؟
يعطيك العافيه وفي ميزان حسناتك
الله يعافيك
الخطوات : أولًا إنشاء جدول للمواعيد يحتوي على اسم الدكتور ووقت بداية الموعد ووقت نهايته
ثم ننشئ استعلام واحد فقط هو الاستعلام الموجود في ردي الثاني
ثم نعمل فورم نضع فيه خانة للموعد وخانة لاسم الطبيب وزر لتنفيذ عملية الحجز نضع فيه الكود التالي
Private Sub Command2_Click()
Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim rst As DAO.Recordset
Set db = CurrentDb
Set qd = db.QueryDefs("Query1")
qd.Parameters("x") = Forms!Form1!Text0
qd.Parameters("doc") = Forms!Form1!Text3
Set rst = qd.OpenRecordset()
m = rst.RecordCount
If m > 0 Then
Text0.BackColor = 112233
MsgBox "Not Avialable"
End If
end sub
هذا الكود يقوم بتنفيذ الاستعلام بعد أن يضع فيه الوقت المطلوب واسم الطبيب وفي حالة وجود تعارض سيقوم بتغيير لون خانة المواعيد وإظهار رسالة خطأ
الله يعطيك العافيه ويرزقك الجنه راح اعمل بالخطوات وان شاءالله يضبط وماراح انساك من الدعاء جزاك الله خير ورحم الله والديك
الله يعطيك العافيه دخلت الاكواد بس ماتفعلت بالزر !
هل اقدر اتواصل معاك برا الموقع مثلاً ايميل عشان ارسل لك اللي سويته ممكن تعرف الخطأ اللي صار وسبب عدم تفعيل الزر ، وتساعدني اعدله رحم الله والديك
التعليقات