مساعدة في الفلترة والتلوين

[MO87]

السلام عليكم

اقوم بتصميم برنامج لمركز طبي خيري  لتسجيل مواعيد الاطباء وقد انجزت كل شي عادا هذة النقطتين

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

لو سمحتم في نموذج frmCalendar_Large مطلوب الفلترة حسب المجموعة في حقل الوحدة وبعد الاختيار يتحدث التقويم مباشرة  وكذلك حقل اسم الطبيب ونوع الشفت عند الضغط علية يعطي hightlight مميز وتتحدث في التقويم

حيث حاولت للفلترة لانها ماخوذة من الجدول الرئيس صممت استعلام ولم استطيع كتابة الكود صحيح في 

Public Sub DisplayMeetings

وشكرا مقدما 

MOMO.rar

[MO87]

السلام عليكم 

انا اسف على الازعاج وأني ما انتظرت و لكن للضرورة القصوى .

 مبدئيا لو أمكن مساعده في كود جلب البيانات استبدال الجدول للنموذج frmCalendar_Largeالي استعلام وبعدها انا هقدر اعمل الفلتره 

اسف مره اخري علي الازعاج 

 

[MO87]

السلامة عليكم 

اسف على الازعاج 

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

ياريت لو مساعده في الفلتره 

وأنا اسف على الازعاج مره اخري

[MO87]

السلام عليكم 

لو سمحتم انا جربت كل شي حتي جمل sql ماظبطت معي غير اني اصمم استعلام ونموذج لكل وحدة وده هحتاج 9 نموذج و9 استعلام لو في طريقة تنفيذ الاستعلام ياريت حد يساعدني وجزاه الله خير

وشكرا لحضراتكم

 

MOMO2.rar

[Eng.Qassim]

السلام عليكم اخي الكريم ...

صدقني قرأت مقالتك عدة مرات ولم افهم ماتريد ..لان برنامج الاستاذة زهرة شغال معاك تمام ويظهر المواعيد

واي فلترة تتحدث عنها ؟

ارجوا ان تبدأ سؤالك من جديد وياريت تدعمنا بالصور لماتريد

تحياتي لك

[MO87]

@Eng.Qassim شكرا لرد حضرتك 

ساشرح لحضرتك باختصار 

يوجد اكثر من وحده group 1 الي group 9

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

لما بكتب جمل في الاستعلام بيظهر أخطاء ليه مثلا 

Forms!emp!unit

بكتبها المعيار في الاستعلام النموذج لايفتح ويعطي أخطاء 

وكذلك عند عمل زر للبحث وكتابه اي معيار في الاستعلام يظهر أخطاء في النموذج 

لقد حاولات اني اعمل جدول اسمه sql وكتابه سطر لكل مجموعهجمل sql في جدول واستدعيها dlookup كذلك تعطيني خطا 

حاولت الفلتره بالكود اشتغل لكن لا يعطي تحديث للنموذج. 

حاليا المعيار االي يعمل في الاستعلام فقط مثلا "group1" لحقل unit وده هحتاج انشاء ٩ استعلام +٩ نموذج 

المطلوب اني عند اختيار مجموعه يقوم بتحديث البيانات في التقويم حسب كلمه البحث مثلا اختيار group 1 يظهر  في نموذج التقويم group 1فقط 

وشكرا لحضرتك 

[Eng.Qassim]

فهمت قصدك اخي الكريم

وحاولت ان اغير بحلقة الدوران للروتين DisplayMeetings بحيث يتضمن اختيار ال unit من مربع التحرير والسرد لكني لم افلح 

سوألك جميل وياريت احد الاخوة من الاساتذة مساعدتنا

انا كبرت في دماغي ولازم اوصل لحل 😢

[MO87]

منذ ساعه, Eng.Qassim said:

فهمت قصدك اخي الكريم

وحاولت ان اغير بحلقة الدوران للروتين DisplayMeetings بحيث يتضمن اختيار ال unit من مربع التحرير والسرد لكني لم افلح 

سوألك جميل وياريت احد الاخوة من الاساتذة مساعدتنا

انا كبرت في دماغي ولازم اوصل لحل 😢

@Eng.Qassim😭 انا حاولت كتير وغيرت الكود اكثر من مره ونفس الخطأ اخر مره اعطني خطا رقم2450 انه مش لاقي المرجع لفتح النموذج  المشكله في الكود عند الفتح تقريبا 

وصلت لكود بحث ولكن لا يحدث البيانات في النموذج 

شكرآ لاهتمامك

ان شاءالله هتتحل

[MO87]

5 دقائق مضت, Rockjone33 said:

راجع موضوع @Moosak للتقويم..  🙂

حجز المواعيد خطأ.. ☝ 

ابني صح ابدى من جديد..  

كمثل صرف الادوية اضغط حقل لعرض نموذج منبثق فرعي للبحث بعدد حقول غير محدوده يبني البحث بعد البحث بحقل الاخر متوفر مواضيع @Moosak عند ضغط الدواء يضافة الى حقل صرف الدواء والاضافة من غير استعلام..  🙂

اذا توفر الوقت ارفق مرفق او اعدل مرفق..  ⏳

 

 

@Rockjone33شكرا علي اهتمامك المرفق موجود في السؤال 

[MO87]

😭😭😭😭😭😭😭😭😭

ما في حل تعبت من كثر التجربه وصلت لكود يعطيني البحث ولكن لا يحدث البيانات في النموذج 

ياريت مساعده

[ابوبسمله]

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

اتفضل اخى @MO87 حاجه على قد حالى وكما فهمت من السؤال

اشتغلت على اسم الطبيب

عند فتح النموذج ستجد جميع البيانات اختر ادمن 1 او 2 وشوف هل هذا ما تريد ام لا

ان كان اكمل انت الباقى

بالتوفيق

MOMO_1.accdb

[MO87]

@ابوبسمله الف شكرا ربنا يبارك فيك ما شاء الله ده المطلوب  نفذته علي جدول مرتبط وماء شاء الله اشتغل سلمت يدك

ربي يجعله في ميزان حساناتك انت وجميع القائمين والاعضاء علي هذه المنتدي 

ممكن من فضلك كود لو هطبع تقرير يطبع  الفلتره حسب الوحدة  ولو لم اختار وحدة يطبع الكل كما موضح في مثالك لو اخترت admin1 يطبعه فقط ولو لم اختار يطبع الكل

 

ولك مني كل الشكر والاحترام 

تم تعديل ديسمبر 29, 2022 بواسطه MO87

[ابوبسمله]

4 ساعات مضت, MO87 said:

 الف شكرا ربنا يبارك فيك ما شاء الله ده المطلوب  نفذته علي جدول مرتبط وماء شاء الله اشتغل سلمت يدك

ربي يجعله في ميزان حساناتك انت وجميع القائمين والاعضاء علي هذه المنتدي 

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

4 ساعات مضت, MO87 said:

ممكن من فضلك كود لو هطبع تقرير يطبع  الفلتره حسب الوحدة  ولو لم اختار وحدة يطبع الكل كما موضح في مثالك لو اخترت admin1 يطبعه فقط ولو لم اختار يطبع الكل

اتفضل

بالتوفيق

MOMO_2.accdb

[MO87]

@ابوبسمله شكرا جدا لحضرتك لكن عند التنقل بالاسهم علي الاشهر الماضية او الحديثة لا يقوم بالفلترة عند الضغط علي زر طباعة التقرير

[ابوبسمله]

3 ساعات مضت, MO87 said:

@ابوبسمله شكرا جدا لحضرتك لكن عند التنقل بالاسهم علي الاشهر الماضية او الحديثة لا يقوم بالفلترة عند الضغط علي زر طباعة التقرير

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

استبدل الكود اللى فى زر فتح التقرير بالتالى

Dim sWhere  As String

    If Len(Me.Combo170 & "") = 0 Then
        sWhere = "Month([ApptDate])= " & intPubMonth & " AND Year([ApptDate]) = " & intPubMyYear
        
        DoCmd.OpenReport "rpt_qry", acViewPreview, , sWhere
    Else
        sWhere = "DoctorName ='" & [Forms]![frmCalendar_Large]![Combo170] & "'"
        sWhere = sWhere & " And Month([ApptDate])= " & intPubMonth & " AND Year([ApptDate]) = " & intPubMyYear
        
        DoCmd.OpenReport "rpt_qry", acViewPreview, , sWhere
    End If

بالتوفيق

[MO87]

3 ساعات مضت, ابوبسمله said:

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

استبدل الكود اللى فى زر فتح التقرير بالتالى

Dim sWhere  As String

    If Len(Me.Combo170 & "") = 0 Then
        sWhere = "Month([ApptDate])= " & intPubMonth & " AND Year([ApptDate]) = " & intPubMyYear
        
        DoCmd.OpenReport "rpt_qry", acViewPreview, , sWhere
    Else
        sWhere = "DoctorName ='" & [Forms]![frmCalendar_Large]![Combo170] & "'"
        sWhere = sWhere & " And Month([ApptDate])= " & intPubMonth & " AND Year([ApptDate]) = " & intPubMyYear
        
        DoCmd.OpenReport "rpt_qry", acViewPreview, , sWhere
    End If

بالتوفيق

@ابوبسمله الف شكر لحضرتك جربت الكود علي التقرير تمام جربته يفتح نموذج إدخال البيانات لم الضغط علي اليوم في النموذج المستمر ما بيعمل فلتره انا غيرت ويفتح النموذج بدون فلتره بيعرض كل السجلات 

[ابوبسمله]

12 ساعات مضت, MO87 said:

جربته يفتح نموذج إدخال البيانات لم الضغط علي اليوم في النموذج المستمر ما بيعمل فلتره انا غيرت ويفتح النموذج بدون فلتره بيعرض كل السجلات 

اخى الفاضل برجاء مراعاه قوانين المنتدى لكل موضوع سؤال وبما انه تمت الاجابه على الموضوع الاساسى

فبرجاء فتح موضوع جديد للسؤال الجديد وارفاق النماذج التى تخص السؤال حتى يتمكن اخوانك واساتذتنا من مساعدتك

بالتوفيق