ابو جودي

دى عاوزلها روقان واحلى سطل شااى بس والله عجبتنى الفوكيرة دى واوعدك افكر فيها

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

طيب مبدئيا عندى اعتراضين 1- الافضل وضع بيانات المريض فى جدول منفضل بحيث لا تتكرر مع كل تحليل ومع كل زيارة اومااااااااااال 2- بسبب امكانية تكرار الاسم مع المرضى لا احبذ استخدام الاسم لجلب البيانات ولكن سوف اضع الاجابة على كل حال اولا مربع السرد اسم المريض يجب تامينه فى حالة وجود بيانات سابقة لا يجب تعديل الاسم وذلك بوضع الكود الاتى فى مربع سرد اسم المريض قبل التحديث Private Sub pname_BeforeUpdate(Cancel As Integer) If Not NewRecord Then Me.Undo: Cancel = True: Exit Sub End Sub ولجلب البيانات بوضع الكود الاتى فى مربع سرد اسم المريض بعد التحديث Private Sub pname_AfterUpdate() If Not NewRecord Then Exit Sub Dim strDLookupFlds As String Dim stLinkCriteria As String Dim MyVariable As String Dim Arry() As String MyVariable = Me.pname stLinkCriteria = "[pname] ='" & MyVariable & "'" '|String strDLookupFlds = DLookup("[pname] & '|' & [code] & '|' & [ptitle] & '|' & [bdate] & '|' & [gender] & '|' & [phone] & '|' & [mobile] & '|' & [adress] & '|' & [email] & '|' & [wt] & '|' & [ht]", "[reservation_tbl]", stLinkCriteria) Arry = Split(strDLookupFlds, "|") Me.code = Arry(1) Me.ptitle = Arry(2) Me.bdate = Arry(3) Me.gender = Arry(4) Me.phone = Arry(5) Me.mobile = Arry(6) Me.adress = Arry(7) Me.email = Arry(8) Me.wt = Arry(9) Me.ht = Arry(10) End Sub بالنسبة للعمر يفضل استخدام دالة حساب العمر بناء على تاريخ الميلاد نظرا لزيادة العمر بعد ذلك واخيرا المرفق lab3.zip

وهنا من الاصدار 2021 الامتداد Mdb انتهى الى الاصدار 2003 لذلك ومع بداية الاوفيس 2007 وبداية التنسيق Accdb يكون فورمات قاعدة البيانات 2007 ومع التطور وكما أخبر استاذى الجليل ومعلمى القدير الاستاذ @شايب

طيب من فضلك لو حضرتك مش عارفه تحقيقها موضوع جديد بسؤال جديد حفاظا على قوانين المنتدى

جزانا الله واياكم كل الخير وامة محمد صل الله عليه وسلم ان شاء الله واتفضلى جربى اسف مشغول ولم يكن التركيز على القدر الكافى اعتذر لم انتبه لموضع اعادة الظهور كل التحاليل مرة أخرى عند اضافة مريض جديد الان لن يتم استخدام الترتيب اليومى اكثر من مرة فى نفس تاريخ الزيارة لن يتم حفظ اى بيانات غير مكتملة وهى الاسم الترتيب اليومى كود المريض التحاليل المطلوبة عند محاولة اختيار اى تجاليل للن يقبل الا بعد تسجيل التريب اليومى واسم المريض طبعا وضعت الحلول والافكار لحلول القصور الناتج عن المشاكل التى انتبهت اليها عند التجربة خللى بالك وخليكى فاكرة واوعى تنســــى انا كده يبقى لى خصم 200% على أول زيارة وطبعا مش حوصيكى نتيجة التحاليل ديلفرى lab (7).zip

واتفضلى يا استاذة @safaa salem5 هذا تعديل جديد على القائمة الاولى testlist والخاصة بأسماء التحاليل التعديل كالاتى بسبب كثرة التحاليل اى نعم قمت بوضع شرط فى استعلام الاضافة لتدارك و منع تكرار اضافة تحليل تم اختيارة من قبل ولكن لم يملئنى الرضا فقمت بالتعديل الاتى وهو اخفاء التحليل من قائمة التحاليل عندما ينتقل الى قائمة المريض والعكس التعديل تم كما اشرت فى رأس الموضوع على مربع القائمة testlist فى مصدر بياناته وهو جملة الاستعلام تم التعديل بهذا الشكل باضافة استعلام اخر من داخل جملة Sql ليتم الربط بين الجدولين من خلال كود الاستعلام واضافة معيار لاخفاء التحاليل طبقا للقائمة تحاليل المريض SELECT test_tbl.test, test_tbl.tcode, test_tbl.patient_price, test_tbl.sub FROM test_order_tbl AS qryList2 RIGHT JOIN test_tbl ON qryList2.tcode = test_tbl.tcode WHERE (((test_tbl.sub) Like "*" & [Forms]![reservation_frm]![S1]) AND ((qryList2.tcode) Is Null)); واعتقد هذا هو طلبك بالتمام كما تريدين واخيرا المرفق lab (6).accdb

نعم استاذى الجليل ومعلمى القدير و والدى الحبيب اتفق معكم تمام انا فقط اوضحت نفطة هامة من واقع تجربة شخصيية فى العمل على سبيل المثال الشخص X اجريت له جراحة فى 5/12/2023 سوف يعود الى العمل فى تاريخ 10/5/2024 فى هذه الحالة لن يأخذ رصيج الاجازات تبعا للدرجة كاملا ولكن يوف يخصم منها فترى ال 5 اشهر وكذلك العارضة لذلك اوضحت وجود حقلين فى جدول بيانات العاملين الاول للاجازات الاعتيادية والاخر للعارضة ليتم تسجيل الرصيد المستحق للعام الحالى اما الجدول الفرعة افضل تسجيل الاجازات بجميع انواعها فيه سجل لكل يوم يعنى لو ان الموظف X يريد 7 أيام اجازة يتم تسجيل 7سجلات على ان يبدأ السجل الاول بأول تاريح وهكذا وان اردتم اشاركم قاعدة بيانات انا بصدد تطويرها ان شاء الله على ان اضع بين اياديكم جزئية جزئية منها اثناء اعادة البناء

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

كل شئ سليم معادا شئ واحد بس هذا الخطأ قبل التعديل وهذا التعديل الصحيح واخيرا المرفق و ياريت نركز شوية علشان نبقى شطار اكتر lab5.accdb

بعد اذن استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل تم تدارك عدم اضافة اسم الاختبار عند الضغط اكثر من مرة على اسمه من القائمة الاولى فلا يتم تكراره مرة أخرى فى القائمة الثانية تم اضافة باقى البنود ومجموع السعر كذلك lab4.accdb

اتفضلى يا استاذة ان شاء الله يكون فى المرفق التالى كل طلباتك lab4.accdb

العفو منكم يا دكتور انت فى مقام الوالد اسال الله تعالى ان يرزقكم البركة فى العمر والعمل 🤲 جزاكم الله خيرا

اتفضل مم.accdb

اتفضل يا بيه

هو شغال يا دكتور ولكن على كل حال هذا كود بطريقة أخرى With Me.Recordset If Not IsNumeric(x) Then MsgBox "Not numeric...": .MoveFirst: Exit Sub .FindFirst "catcods=" & Me.x If .NoMatch Then MsgBox "Not found" End With وهذا المرفق بحث منفرد (2).accdb

استاذى الجليل تأمر يا أفندم If Not IsNumeric(x) Then MsgBox "Not numeric..." Else With Me.Recordset .FindFirst "catcods=" & Me.x If .NoMatch Then MsgBox "Not found" End If End With End If

شفاكم الله وعافاكم... طهور ان شاء الله -- واتفضلى يا استاذه هذه افكارى علها ان شاء الله تنال رضاكم وتلبى رغباتكم List To List (2).accdb

طيب فضلا وكرما وليس امرا ضع افكارك فى مرفق عملى لنتعلم نحن طلاب العلم من اساتذنا الكرام

اتفضلى يا افندم جربى List To List.accdb

انا عمرى الان 43 عام شوف انت بقه

الذى كنت اعرفه انها توقفت عند الاصدار 2003 ولكن بعد ذكر حضرتك للموضوع وبالبحث توصلت اليها https://support.microsoft.com/en-us/office/create-and-use-a-switchboard-f8b3d607-8f1f-4ecf-9979-79b1565f5471

بعد اذن استاذى الجليل ومعلمى القدير الاستاذ @أبو إبراهيم الغامدي ممكن توضيح لتلك الجزئية .. كيف يمكن عمل ذلك

اتفضل يا استاذ جو Familty_Tree Colors(3).accdb

جزاكم الله خيرا يا دكتور على دعواتكم الطيبة لوالداى اسال الله تعالى ان يتقبلها ويرزقكم وكل المسلين فضلها واجرها يارب العالمين امين امين امين 🤲