ابو جودي

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

بعد اذن اخوانى الكرام واساتذتى العظماء اذا انا قدرت افهم اصح هذه تجربتى بالمرفق ده لو كنت فهمت صح يعنى ملحوظة انا حذفت جدول sub_tbl لان انا لا ارى له اى اثر ولا اى فائدة اصلا على الاقل طبقا للمرفق الاتى اختنا الغالية @safaa salem5 راجعت الاكواد قدر المستطاع وحسب ما ترائى لى قمت بسد كل الثغرات التى قد تضيف سجلات فارغة او ينتج عنها اخطاء باستخدام كود تصيد الاخطاء وذلك حسب الخطوات فقط التى كنت اقوم بتجربتها اذا فى المرفق الفائدة اولا من تحقيق طلبك برجاء مراجعة الاكواد قمت بالعديد من الاضافات والتغييرات كذلك باتت القاعدة لن تحفظ اى بيانات الا بالضغط على زر الامر حفظ lab8.zip

تم ايقاف دعم الاصدارات القديمة من مايكروسوفت طبعا انتقل لتواكب التطور تتنقل لاى اصدار انت قرر حسب متطلباتك وفقا للمقارنة الاتية... Microsoft Access Version Office 365 2021 2019 2016 2013 2010 2007 2003 2002 (XP) 2000 97 95 2.0 1.1 1.0 Original Release Date 2021 Oct 2021 Oct 2018 Sep 2015 Sep 2013 Feb 2010 Jul 2007 Jan 2003 Nov 2001 May 1999 Jun 1997 Jan 1995 Aug 1994 Apr 1993 May 1992 Nov Version Number 16.0 15.0 14.0 12.0 11.0 10.0 9.0 8.0 7.0 2.0 1.1 1.0 Latest Service Pack continuous -- -- -- SP1 SP2 SP3 SP3 SP3 SP3 SR2 -- 2.5 -- -- Minimum RAM 32 Bit: 2GB 64 Bit: 4GB 32 Bit: 1GB 64 Bit: 2GB 256 MB 256 MB 128 MB 72 MB 16 MB 16 MB 8 MB 4 MB -- -- Part of Microsoft Office Free Runtime Version Runtime Version Download Same as 365 Same as 365 Download Download Download Download Office Developer Edition 2003 Office Developer Edition 2002 Office Developer Edition 2000 Office Developer Edition 97 Access Developer's Toolkit 7.0 Access Developer's Toolkit 2.0 Access 1.1 Distribution Kit -- 64-bit Version Office 365 Installation Database Formats and Security Office 365 2021 2019 2016 2013 2010 2007 2003 2002 2000 97 95 2.0 1.1 1.0 Database Formats ACCDB & MDB ACCDB & MDB ACCDB & MDB ACCDB & MDB ACCDB & MDB ACCDB & MDB ACCDB & MDB MDB MDB MDB MDB MDB MDB MDB MDB MDB Format 2003 2003 2003 2003 2003 2003 2003 2003 2000 2000 97 2.0 2.0 1.1 1.0 Compiled MDE ACCDB Format Compiled ACCDE Jet Database Engine (DAO) ACE ACE ACE ACE ACE ACE ACE 4.0 4.0 4.0 3.5 3.0 2.0, 2.5 with SP 1.1 1.0 Access Database Engine (ACE) 16.0 Download 14.0 14.0 Download 12.0 Sandboxed ACE Workgroup Security (MDB format) ActiveX Data Objects (ADO) Record Locking, Unicode Storage Digital Signatures (MDB only) Does not support current code signing certificates Trusted Locations (Directories) Database Encryption (ACCDB) Data Macros (ACCDB) ODBC connection retry logic Access Data Projects (ADP) connected to SQL Server Access Web Apps (AWA) SharePoint 2013 SQL Server Office 365 SharePoint 2013 SQL Server SharePoint 2010 Lists Programming Office 365 2021 2019 2016 2013 2010 2007 2003 2002 2000 97 95 2.0 1.1 1.0 VBA Programming Language (VBA) Shared IDE with Visual Basic 6.0 Temporary Variables TempVars (ACCDB) Access Basic Programming Language Database Container Office 365 2021 2019 2016 2013 2010 2007 2003 2002 2000 97 95 2.0 1.1 1.0 Navigation Pane and Search Database Window Windows XP Themes Tabbed Interface Quick Access Toolbar Ribbons Change Office Theme Linked Tables Office 365 2021 2019 2016 2013 2010 2007 2003 2002 2000 97 95 2.0 1.1 1.0 Dataverse Enhanced Linked Table Manager Salesforce and Dynamics 365 365 Excel *.xlsx Format (ACCDB only) Saved Import/Export Specifications dBase Tables Lotus 1-2-3 Spreadsheets Paradox Tables Field Data Types Office 365 2021 2019 2016 2013 2010 2007 2003 2002 2000 97 95 2.0 1.1 1.0 Hyperlinks Link to SharePoint Lists Attachment Fields (ACCDB) Multi-value Fields (ACCDB) Memo Fields with History (ACCDB) Memo Fields as HTML (ACCDB) SQL Server BigInt 365 Date/Time Extended 365 Features Office 365 2021 2019 2016 2013 2010 2007 2003 2002 2000 97 95 2.0 1.1 1.0 ActiveX Controls Form Conditional Formatting of Fields Report Output to PDF Report View Alternating Row Colors Datasheet Totals Datasheet Multi-Select Column Filtering Simplified "Smart" Datasheet/Form Filtering Form Navigation Caption Form Buttons with Text and Image Form Object Anchoring and Resizing Date Picker Web Browser Control Image Control with Control Source Split Forms Navigation Forms Image Gallery (Shared Resources) Modern Charts Property Sheet sorting Enhanced Zoom Box 365 365 Add Tables Task Pane Highlighted Active Tab Dark Theme Support Query Designer, SQL and Relationship View Enhancements Command Bars Data Access Pages (DAP) Pivot Charts / Pivot Tables Smart Tags Visual SourceSafe Integration Upsizing Wizard Package Solution Wizard Data Collection Emails Microsoft References Office 365 2021 2019 2016 2013 2010 2007 2003 2002 (XP) 2000 97 95 2.0 1.1 1.0 New Features 2021 2019 2013 2010 Discontinued Features 2013 Windows Version Office 365 2021 2019 2016 2013 2010 2007 2003 2002 2000 97 95 2.0 1.1 1.0 Windows 11 * * * * Windows 10 * * * Windows 8.0/8.1 * * * Windows 7.0/SP1 * * Windows Vista SP1 * * Windows XP SP3 SP2 Windows 2000 SP3 Windows 98 Windows NT 4.0 SP6 SP2 SP2 Windows NT 3.51 SP5 Windows 95 Windows 3.1 Windows 3.0

ولا تزعلى نفسك سهله ان شاء الله اتفضلى يا افندم غيرى الكود السابق بالكود اللاحق 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 On Error GoTo ErrorHandler 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) ExitHandler: Exit Sub ErrorHandler: Select Case Err.Number Case Is = 94: pname.Requery: Resume ExitHandler Case Else MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description Resume ExitHandler End Select End Sub وغيرى الكود الخاص بزر امر الاضافة الى الكود الاتى Private Sub Add_cmd_Click() On Error GoTo Err_NewRec DoCmd.Requery DoCmd.GoToRecord , , acNewRec Exit_Err_NewRec: Exit Sub Err_NewRec: MsgBox Err.Description Resume Exit_Err_NewRec End Sub وهذا مرفقكم بعد التعديل lab3(2).zip

اكيد كود المريض الذي تريدين جلب بياناته غير موجود 🫣

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

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

طيب مبدئيا عندى اعتراضين 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