kkhalifa1960

VBAaccess ::: خطأ محجوز (-7745) لاتوجد رسالة لهذا الخطأ يبدو أن الخطأ المحجوز (-7745) في Access يشير إلى مشكلة في قاعدة البيانات أو في الاتصال بها. هذا النوع من الأخطاء قد يحدث بسبب تلف في السجلات أو الجداول، أو بسبب مشاكل في الشبكة أثناء الاتصال بقاعدة البيانات. خطوات لحل المشكلة: ضغط وإصلاح قاعدة البيانات: افتح Access. من قائمة "أدوات"، اختر "ضغط وإصلاح قاعدة البيانات". هذا الإجراء يمكن أن يساعد في إصلاح أي تلف بسيط في قاعدة البيانات. التحقق من السجلات التالفة: إذا كنت تستخدم استعلامات VBA، حاول تشغيل استعلام لتحديد السجلات التالفة. يمكنك حذف السجلات التالفة واستبدالها بنسخة احتياطية إذا كانت متوفرة. التحقق من الشبكة: إذا كانت قاعدة البيانات موجودة على خادم، تأكد من أن الاتصال بالشبكة مستقر. أي انقطاع في الشبكة أثناء الكتابة أو القراءة قد يؤدي إلى تلف البيانات. استخدام أداة إصلاح متقدمة: إذا لم تنجح الخطوات السابقة، يمكنك استخدام أدوات مثلDataNumen Access Repair لاستعادة البيانات التالفة. نسخ قاعدة البيانات إلى ملف جديد: قم بإنشاء قاعدة بيانات جديدة. انسخ الجداول والكائنات الأخرى من القاعدة القديمة إلى الجديدة.

تفضل استاذ DDBoAhmed -1.rar

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

للرفع

تفضل المرفق بعد التعديل . 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