kkhalifa1960

تفضل المرفق بعد التعديل . saad-3.rar

تفضل أخي @2saad الشرح والمرفق بعد التعديل . saad-2.rar

تفضل لستاذ @2saad حسب مافهمت .. saad-1.rar

كله تمام لكن وضح طلبك بالتفصيل

تفضل أخي @husseinharby مع التحفظ عليه .... كود من مايكروسوفت . Private Sub UserForm_Initialize() On Error Resume Next End Sub

بالنسبة للسجلات السابقة يمكن تعديلهم بسهولة وبعدة طرق أما السجلات اللاحقة فيجب ضبط القيم الافتراضية للحقلان كما بالشرح إما يدوياً .. أو فقط اضغط على الزر الاحمر كما بالشرح ... اليك الشرح والمرفق . test-112.rar

استاذ @فؤاد الدلوي هل هذا ماتبحث عنه .... ادخل سنة البحث 2025 وطالع الناتج .. ووافني بالرد . test-111.rar

اليك أخي @ahmedha هذا المرفق كنت سويته أحد الزملاء يمكن يساعدك اقرأة جيدا واذا احتاجت مساعدة حاضرين . GavanDB.rar

اليك أخي @moho58 المرفق بعد التعديل ...... Limousine Programe-1.rar

تفضل استاذ @moho58 اليك احدي الحلول لأنك لم ترفق مرفق !!! الحل الأول: ضبط إعدادات الطباعة يدويًا باستخدام VBA يمكنك تغيير إعدادات الطابعة عبر VBA قبل طباعة التقرير بحيث يتم تصغير المحتوى ليلائم حجم الورقة A4. الكود: Private Sub PrintReportA4() Dim rpt As Report Dim strReportName As String strReportName = "اسم_التقرير" ' استبدل باسم تقريرك ' فتح التقرير في وضع المعاينة DoCmd.OpenReport strReportName, acViewPreview ' التأكد من أن التقرير مفتوح If SysCmd(acSysCmdGetObjectState, acReport, strReportName) <> 0 Then Set rpt = Reports(strReportName) ' ضبط إعدادات الطابعة للطباعة على ورقة A4 مع تصغير الحجم With rpt.Printer .PaperSize = acPRPSA4 ' ضبط حجم الورقة إلى A4 .Orientation = acPRORLandscape ' (اختياري) ضبط الاتجاه أفقي أو عمودي End With ' طباعة التقرير بعد ضبط الإعدادات DoCmd.PrintOut ' إغلاق التقرير بعد الطباعة DoCmd.Close acReport, strReportName End If End Sub الحل الثاني: تصغير التقرير تلقائيًا عند الطباعةالكود لحفظ التقرير كـ PDF ثم الطباعة: إذا كان التقرير يحتوي على عناصر تتجاوز حجم A4، يمكنك تعديل خاصية التكبير والتصغير (Zoom) للطباعة بدون قص الأجزاء الكبيرة. استخدم إعدادات Fit to Page في الطابعة، ولكن يتم ذلك عبر إعدادات الطابعة وليس VBA مباشرة. الحل الثالث: حفظ التقرير كملف PDF ثم الطباعة إذا كان هناك مشاكل في الطباعة المباشرة، يمكنك حفظ التقرير بصيغة PDF ثم طباعته بالحجم المطلوب. الكود لحفظ التقرير كـ PDF ثم الطباعة: Private Sub ExportAndPrintPDF() Dim strReportName As String Dim strFilePath As String strReportName = "اسم_التقرير" ' استبدل باسم تقريرك strFilePath = "C:\Temp\ReportOutput.pdf" ' مسار حفظ التقرير ' تصدير التقرير إلى PDF DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, strFilePath ' طباعة الملف المحفوظ Shell "cmd /c start /min " & Chr(34) & strFilePath & Chr(34), vbHide End Sub ملحوظات: تأكد من ضبط إعدادات الطابعة الافتراضية للطباعة على A4. إذا كان التقرير يحتوي على عناصر كبيرة جدًا، قد تحتاج إلى إعادة تصميمه بحيث يكون قابلًا للطباعة على A4 بشكل أوضح. تأكد من تجربة الطباعة أولًا عبر المعاينة (acViewPreview) قبل الطباعة الفعلية.

اين المرفق لمساعدتك ؟؟؟؟

تفضل استاذ @ابو هاله النبلسي المرفق . ووافني بالرد . DDNabulsi-1.rar

ابشر

تفضل استاذ @ابو هاله النبلسي المرفق . ووافني بالرد . DDNabulsi.rar

تفضل استاذ @ازهر عبد العزيز المرفق بعد التعديل بطلبك حسب مافهمت . ووافني بالرد . borrow.rar

تفضل استاذ @ازهر عبد العزيز المرفق بعد التعديل بطلبك حسب مافهمت . ووافني بالرد . borrow.rar

املأ الجداول بأكثر من موظف وأنا بسوي التقرير .

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

انشاء الله غدا بعد الافطار .... حاضرين.⚘️

تفضل استاذ @2saad المرفق بعد التعديل حسب مافهمت . 2استدعاء الغائب وله دور ثان-2.rar

من وجهة نظري يمكن عمله لكن محتاج وقت .............. مبدئياً هذه هي الجداول بالمرفق . هل نكمل ؟؟؟؟؟........... أكمل طلباتك ... DDNabulsi.rar

مشاركةً مع اساتذتي .... تفضل استاذ @mostafaelshnawy5 مرفق متكامل بطلباتك حسب ما فهمت .... مجربه وتمام ...... عليك أن تقرأه جيداً ... وأي استفسار أو طاب أنا حاضر . اليك المرفق . DDElshnawy.rar

فضل استاذ @تامر خليفه المرفق بعد التعديل بالجدول الجديد . QR_Code - بتسجيل العناصر بمحرر الأكواد.rar

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

ممكن تتم الموضوع بتمت الاجابة .