ابو جودي

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

طيب وحتى لا يقال اننى ناقل عن الاستاذ @ناقل لن اقوم بتعديل الاكواد انا معقد و افضل العمل دائما وفق مرونة واحترافية بقدر الامكان وفقا لذلك هذه طريقتى اولا عمل موديول باسم : basExportReportToPDF الاكواد فى الموديول Option Compare Database Option Explicit ' Function to create directories if they do not exist Public Function CreateDirectoryIfNotExists(ByVal path As String) If Dir(path, vbDirectory) = "" Then MkDir path End If End Function ' Function to export report to PDF Public Function ExportReportToPDF(ByVal patientID As String, ByVal patientName As String, ByVal visitCode As String, ByVal reportName As String, ByVal outputFileName As String) Dim baseFolderPath As String Dim resultsFolderPath As String Dim patientFolderPath As String Dim visitFolderPath As String Dim outputFilePath As String ' Get the base folder path of the current database baseFolderPath = CurrentProject.path ' Define the path for the results folder resultsFolderPath = baseFolderPath & "\results" ' Create the results folder if it does not exist CreateDirectoryIfNotExists resultsFolderPath ' Define the path for the patient folder patientFolderPath = resultsFolderPath & "\" & patientID & "_" & patientName ' Create the patient folder if it does not exist CreateDirectoryIfNotExists patientFolderPath ' Define the path for the visit folder visitFolderPath = patientFolderPath & "\" & visitCode ' Create the visit folder if it does not exist CreateDirectoryIfNotExists visitFolderPath ' Define the output file path outputFilePath = visitFolderPath & "\" & outputFileName & ".pdf" ' Export the report to PDF DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, outputFilePath ' Notify the user MsgBox "Report has been exported to: " & outputFilePath, vbInformation End Function ثانيا زر امر فى النموذج على ان يكون الكود داخل زر الامر كالاتى Dim patientID As String Dim patientName As String Dim visitCode As String Dim reportName As String Dim outputFileName As String ' Set the values for the parameters patientID = "12345" patientName = "Moh3sam" visitCode = "2024-06-11" reportName = "rptTest" outputFileName = "YourOutputFileName" ' Call the function to export the report to PDF ExportReportToPDF patientID, patientName, visitCode, reportName, outputFileName وطبعا تحياتى وكل تقدير لاستاذى الجليل ومعلمى القدير الاستاذ @ناقل قطعا بدأت مشاركتى بمداعبة استاذى القدير . وهذه قاعدة البيانات بالتطبيق export report to PDF.accdb

ممكن نفكر بصوت عالى انا موافق بعمل الاتى فى المجلد الاساسى الحالى لقاعدة البيانات يتم عمل مجلد باسم results وبداخل المجلد results يتم عمل مجلد ID لكود المريض مع اسم المريض وبداخل مجلد ID يتم عمل مجلد بكود الزيارة او بالتاريخ لسهولة تتبع التقارير مستقبلا من المجلدات حتى وبدون فتح قاعدة البيانات ايه راي حضرتك يا دكتور ؟؟ واعتقد اسم التقرير فقط مجموعة التحاليل يكون افضل

نصيحتى اليك لا تسعى ان يقدم احد اليكم الحل ولكن اسعى جااهدا لتعلم كيف يتم الحل لا تطلب سمكة بل اطلب ان تتعلم كيف تصطادها بنفسك

انظر الى القاعدة الان هذا البناء الافضل اكمل باقى الجداول على هذا المنوال ومن ثم نكمل المراد خطوة بعد خطوة برنامج الحد الادنى (V. 2) .accdb

اليك النصائح الاتية وهى مهمه طالما انت فى البدايات 1- اختر للجداول دائما وباقى العناصر والكائنات اسماء مختصرة تدل على وظيفتها 2-استعمل اختصارات البادئات المتعارف عليها قدر الامكان مثل Table=tbl Form=frm Query=qry Module=bas وسوف ارفق لك ملف كنت حاولت جاهدا تجميعه قبل فترة هذه الاختصارات اثناء التعامل مع الاكواد تجعلك على دراية بما تتعامل معه بسهولة وتجعل اى مطور نظم ان كنتم تعملون فى مجموعة عمل سهولة فهم الية الاكواد وتتبع المشروع ومعك انت شخصيا انت الان وقت التصميم تكون على دراية بكل صغيرة وكبيرة ولكن بعد فترة سوف تنسى كل شئ هذه البادئات تجعلك دائما على دراية مع ماذا تتعامل من العناصر والكائنات المختلفة فتسهل عليك مراجعة وتتبع وتذكر الاكواد والية العمل 3- دائما لا تبخل على نفسك فى استخدام الجداول المساعدة التى تغنيك عن فتح التصميم مستقبلا لاضافة شئ او حذف وتعديل شئ على سبيل المثال وليس الحصر الاولى بك فى قاعدتك الحالية عمل جدول للوظائف بدلا من كتابة الوظائف فى حقل واحد بهذه الطريقة مستقبلا لو اردت تغير اسم وظيفه او اضافتها لابد لك من الدخول الى التصميم وناهيك عن المشاكل التى لا حصر لها لو اردت تغير مسمى مثلا وانت تعتمد فى الاكواد على هذا المسمى دعنى اعيد بناء قاعدتك بالشكل الامثل من وجهة نظرى المتواضعة وانت اكمل باقى خطاك فى هذا الدرب بناء على ما اقدمه اليكم اولا اليك الاختصارات المتعارف عليها بين مطورى النظم والمبرمجين فى ملف نصى prefix.zip

ممكن تجرب الكود ده Dim ImagePath As String s1 = Str(Me![رقم الجلوس]) s1 = Right(s1, Len(s1) - 1) ImagePath = "D:\صور\" & s1 & ".jpg" On Error Resume Next Me![Image_Std].Picture = ImagePath If Err.Number <> 0 Then MsgBox "لا توجد صورة مطابقة لرقم الجلوس", vbExclamation, "خطأ" Err.Clear End If On Error GoTo 0 End Sub

هل تريد مجرد الاجابة للوضع الحالى لقاعدتك ام تريد النصيحة لعمل ذلك بالشكل الصحيح و الاحترافى كما ينبغى ان يكون لاضفاء المرونة والاحترافية فى التعامل ومعالجة البيانات ؟! لن اضع الاجابة قبل ردكم

ومشاركة مع اخى الحبيب الأستاذ @Foksh ممكن أيضا مع الحدث "On Key Press" Private Sub Combo4_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub وهذا افضل للمصمم ومطور النظم لان ما تفضل بها اخى الحبيب يمنع الدخول الى محرر الاكواد اثناء فتح النموذج من خلال - الضغط على مفتاحى Alt + F11 من لوحة المفاتيح - او من خلال الضغط علىم فتاحى Ctrl +G من لوحة المفاتيح واحيانا نحتاج الى الدخول الى محرر الاكواد بدون اغلاق النموذج لانه احيانا نستخدم امر الطباعة Debug.Print فى الاكواد لتتبع الاكواد وسير الكود لطباعة النتائج فى نافذة Immediate مش قولت لك هافوق لك يا حاج @Foksh كده انا افضل اجابة بالعند فيك

انا اسف لم انتبه وفقدت التركيز تم التعديل حفظ وتعديل (4).accdb

لو ده شكلك وانت بتبص ع الاكواد دا كان شكلى وانا باكتبها وافكر فيها

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

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

طيب لو فاكر يا دكتور انا قلت وبعد ذلك سوف اخبركم برأى فى الاخر وهذا هو رأى عمليا فى المرفق الاتى نموذج غير منضم وحقول غير منضمة ايون زيمبئولك كده فعلا نموذج غير منضم اصلا ومن خلاله نستعرض البيانات ونتحرك بين السجلات ونعدل البيانات ونحذف البيانات ونضيف سجل جديد مش انت عاوز تذاكر كلمة مرور التعديل : 123 كلمة مرور الحذف : 000 حفظ وتعديل (3).accdb

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

دا انا هادوس بالجامد

يا استاذ @Foksh من النظرة الأولى واعتذر لان اليوم انا عند والدتى كانت نظرة سريعة العمل ماشاء الله تبارك الرحمن تسلم ايدك ولكن هل تسمح بالمراجعة والتعديلات على الاكواد

تمام يا استاذ @Foksh تم الان اضافة المرفق النهائى الى رأس الموضوع

والشئ بالشئ يذكر يا استاذ @Foksh انظر الى هذه المضوع لانه مهم جدا جدا ان اردت تقديم اى قاعدة بيانات مشفرة فيما بعد

يلا ارفع وهات بسرعه انت بطئ كده ليه

انت بتستعماني يا هرم لا وبتقول لى صديقى كمان النسخة الأخيرة Salawat 2024.accde والرابط ده بتاع الصوت يا عسل اسأل الله تعالى الرحمة والمغفرة لكم ولوالديكم ولأبى وأمى ولكل المسلمين طبعا انا بهزر معاك يا عسل بلاش شغل التلت ورقات وهات المرفق المفتوح بالتى هى احسن

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

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

ما شاء الله بجد يا باش مهندسة @hanan_ms روعة تسلم ايدك وأفكار قمة في الابداع

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