biskra

أخي Moosak أحرجتني بأمر لا يتطلب منك الإعتذار

جرب الكود التالي فقط عدل في مسار ملف الحفظ لأنه لا يمكنك فتح التقرير بامتداد pdf دون ان تتم عملية التصدير الى صيغة pdf أولا و إذا نجحت معك عدل على الكود بالنسبة لبقية السؤال DoCmd.OpenReport "t1", acViewPreview DoCmd.OutputTo acOutputReport, "t1", acFormatPDF, "مسار ملف الحفظ", True

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

محاولة عن طريق أداة أداة ocx المرفقة و التي يجب تسجيلها الشرح الموجود أسفله مرفق معها مثال للمطلوب و ما عليك إلا تصميم الحقول و تنسيقها مع الجدول، و يمكنك التعديل على حجم الخلايا حسب رغبتك و ذلك بوضع التقرير في وضع التصميم ثم خصائص كما هو موضح في الصور المرفقة: 1 أضغط على ... 2 درجة ميلان النص مثلا 270 درجة تعطي النص عمودي و 0 درجة يعطي النص عادي 3 اسم الخلية شرح استعمال الأداة منقول افتح المجلد المضغوط واستخرج RotateLabelVer2.ocx إلى مجلد مكتبة المكتب ذات الصلة مثل 😄 \ Program Files \ Microsoft Office \ OFFICE11. الآن افتح التقرير في طريقة عرض التصميم. اذهب إلى أدوات >> ActiveX Controls وانقر على زر التسجيل. تظهر نافذة حوار ملف Windows قياسية. استعرض للوصول إلى أي مجلد قمت بتنزيله ملف RotateLabel.ocx على سبيل المثال 😄 \ Program Files \ Microsoft Office \ OFFICE11. حدد الملف ثم انقر فوق الزر فتح. أغلق مربع قائمة عناصر تحكم ActiveX. انتقل الآن إلى مربع الأدوات العادي وانقر على زر المزيد من عناصر التحكم. ابحث عن RotateLabel وانقر فوقه ، ثم ضعه في تقريرك. قم بتعيين مصدر التحكم ثم العب باستخدام إعدادات HAlignment و VAlignment و Escapement ضمن علامة التبويب أخرى في مربع خصائص عناصر التحكم. RotateLabelocx.rar Database12.rar

معذرة الأخ سامي عن الخلط في الإسم، و الفضل يعود لك في الحل،

تعديل بسيط في التنسيق على الحل المقدم من الأخ TQTHAMI قاعدة.rar

تم التعديل على الكود لتجاهل الخطأ On Error Resume Next Database1.rar

أمسح هذا السطر من الكود و سوف يشتغل عادي Sleep 2000 مثال مرفق للكود يشتغل عادي جرب بالضغط على زر H جرب ثانية بالضغط على H من لوحة المفاتيح سوف يشتغل كذلك chrome.rar

مثال فيه فكرة ممكن تساعدك Test_A2003.zip

تم تجربة الكود باسم الجدول و الحقل كما ورد في السؤال و فعلا لم يشتغل قمت بتغيير اسم الجدول فاشتغل عادي يظهر أن اسم الجدول ربما من الأسماء المحجوزة fff2.rar

جربت الكود يشتغل عادي من خلال زر على النموذج fff2.accdb

Dim objAdb As Object Set objAdb = CreateObject("Access.Application") objAdb.OpenCurrentDatabase ("F:\Revision.mdb") objAdb.DoCmd.OpenReport "revision", acPreview جرب الكود

جرب الكود التالي Dim objAdb As Object Set objAdb = CreateObject("Access.Application") objAdb.OpenCurrentDatabase ("C:\Users\simba\Desktop\اسم و مسار قاعدة البيانات.mdb") objAdb.DoCmd.OpenForm "اسم النموذج أو التقرير"

هل يمكن وضع الكود الذي تستعمله كس نحاول المساعدة

DoCmd.SetWarnings False ثم تضيف الكود التالي لكي تشتغل التنبيهات في حالة وجود أخطاء أخرى DoCmd.SetWarnings True

مصال قديم ممكن تستفيد منه و تعدل عليه Form InstancesEmployees.zip

في هذه الحالة أحسن جواب هو : ربما ليكون السؤال أكثر وضوحا هل يريد فتح نفس النموذج أكثر من مرة أم هناك نماذج أخرى يريد فتحها؟

مثال بسيط ثلاث طرق مختلفة لفتح نماذج متعددة من نموذج واحد. و تقبل التعديل على أي من هذه النماذج المفتوحة " منقول " FormInstances.zip

في خصائص النموذج عند الفتح On open استعمل الكود التالي application.runcommand accmdrecordsgotolast

المشكلة عند تصغير النموذج لا يمكنك استرجاعه طريقة أخرى لكبير و تصغير النموذج بواسطة زر واحد Main menu (1).accdb للتصغير يمكنك تجربة الكود بواسطة زر DoCmd.Maximize

تعديل على ملف الأخ أبو ماجد، حيث تمت لإضافة استعلام حذف السجلات بعد نقلها، فقط الحدف يتم من الجدول TABLE2 حسب ما فهمت fff1 (1).rar كما أضيف لك مثال آخر لطريقة أرشفة السجل بواسطة زر ربما يفيدك twoTable.zip

تفضل الملف بعد إضافة جدول و نموذج جديد باسم Table2 , Access Tables Magic.rar

محاولة متواضعة في المثال المرفق، من خلال النموذج ندخل التاريخ و السعر و الحال، و بواسطة الآستعلام يظهر التاريخ الجديد و الثمن الجديد بزيادة 10% عن السنة الجديدة السعر الجديد.accdb

برنامج يعتمد نفس الكود منقول للتجريب shiftkey2000.mdb

كل ما عليك فعله هو وضع الكود في النموذج المرتبط بالجدول الذي تريد تتبعه و تغير فقط في اسم الحقل في الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Call AuditTrail(Me, هنا تضع اسم الحقل) End Sub