أرجو المساعدة فى برنامج حجز مواعيد العيادات

البرنامج جميل جدا هل لي سؤال كيف تم عمل القائمة المنسدلة وربطعها مع النماذج

الأخ فجر الربيع

القائمة المنسدله غير مرتبطة ، و بها جملة إستعلام SQL فى مصدر الصف ، و هى جملة إستعلام عادية جداً لإختيار قيم القائمة المنسدلة من حقل محدد فى جدول معين

و بعد ذلك يتم وضع كود برمجى بسيط VBA

Private Sub clinic_name_combo_AfterUpdate()
	Me!clinic_id.SetFocus

	If Not IsNull(Me!clinic_name_combo) Then
		DoCmd.FindRecord Me!clinic_name_combo
	End If
End Sub

مع تغيير ما يلزم

______________

الاخوة المشرفين

أرجو المساعدة فى حل المشكلة

للرفع

أخي الفاضل

تابع الرابط

/index.ph...amed+nada\

شكراً أستاذ محمد فؤاد تركى

لكن

برنامجى مختلف

فهو يعمل مع عيادات كثيرة

و نظام حجز المرضى مختلف تماماً

للرفع

الموضوع قديم .. لكن بنعمل له تجديد :

والأستفسار واضح والطريقة سهلة ...

هل صاحب الموضوع معنا أو أنتهى ؟!؟!؟

helmy_foad كتب:

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

شوف يا أستاذي العزيز حلمي فؤاد الحل سهل جدا وبسيط ولكن تابع الخطوات التالية:-

1- في جدول tbl_clinic قم بإضافة حقل رقمي تخصصه للحد الأقصى من المرضى

2- قم بوضع هذا الحقل في Form1 تمهيدا لأن تكتب فيه الحد الأقصى المسموح به على كيفك في كل عيادة

3- قم بعمل فورم منبثق مقاسه صغير جدا وبدون حدود ولونه لون Form1 وليكن إسمه مثلا Chek_number وهذا الفورم يكون مصدر السجل له هو إستعلام يحدد عدد الحالات الحالي داخل العيادة النشطة طبعا بوضع المعايير اللازمة داخل الاستعلام وناتج هذا الاستعلام يكون في تكست بوكس في هذا الفورم وقم بجعل هذا التكست غيير مرئي

4- كل ما عليك الآن هو وضع كود في حدث قبل التحديث في فورم tblAppointments subform مهمة هذا الكود هو فتح فورم Chek_number وإخفاؤه ومقارنة ناتج التكست بوكس فيه والمعبر عن العدد الحالي للحالات بالرقم المسموح به لعدد الحالاات في Form1 والتصرف على هذا الأساس فإن كان أقل من الرقم مثلا لا يفعل شيء سوى غلق نموذج Chek_number وإذا كان مساوي للرقم الموجود بالحد الأقصى يتم إظهار رسالة وإلغاء الحدث أو غلق النموذج أو الصعود مرة أخرى للكمبو بوكس الخاص بإسم العيادة أو أي شيء على كيفك ولا تنسى إغلاق نموذج Chek_number

علما بأنك إذا قمت بضبك خصائص الفورم Chek_number إلى منبثق ولونه لون ال Form1 وحجمه صغيير وبدون حدود وبدون محددات سججلات أو أزرار تنقل لن يشعر المستخدم نهائيا بفتحه أو مشاهدته لأنك سوف تخفيه بمجرد فتحه وسوف تتم العملية وكأنها لم تحدث من الأساس وجرب