biskra
-
Posts
274 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه biskra
-
-
3 ساعات مضت, الحلبي said:
السلام عليكم ورحمة الله وبركاته
المرفق هذا : بداخله مثال مبسط الى نموذج فيه اخفاء شاشة اكسس وعند البحث يظهر نتيجة البحث
المطلوب : عند فتح التقرير يظهر لنا فى حالته الطبيعية وغير منكمش (كما تراه فى المثال)
المطلوب الثانى : ان نصدر هذا التقرير الى صيغة PDF بشرط ان يفتح التقرير و PDF معا (مع بعض) ويفتح لنا PDF فى الحال بمجرد الضغط على زر الفتح الخاص بـ PDF
وياريت ياريت ياريت اعرف سبب لهذا الانكماش الذى اتعبنى كثير ووصلت الى درجة التعصب
جزاكم الله كل خير
جرب الكود التالي فقط عدل في مسار ملف الحفظ لأنه لا يمكنك فتح التقرير بامتداد pdf دون ان تتم عملية التصدير الى صيغة pdf أولا و إذا نجحت معك عدل على الكود بالنسبة لبقية السؤال
DoCmd.OpenReport "t1", acViewPreview DoCmd.OutputTo acOutputReport, "t1", acFormatPDF, "مسار ملف الحفظ", True-
2
-
-
بعد فتح التقرير في وضعية التصميم هذه الخطوات المتتالية للوصول للأداة، أرجو أن لا تواجهك مشطلة اللغة، جرب و أخبرنا
-
1
-
-
محاولة عن طريق أداة أداة 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 ضمن علامة التبويب أخرى في مربع خصائص عناصر التحكم.
-
2
-
-
21 دقائق مضت, سامي الحداد said:
السلام عليكم اخي @biskra
هذا الملف انا الذي عملته والاخ السائل قد كتب كلمة قائمة ..... في التقرير اعتقدت انه يريد فقط إضافة الطلاب والعمال بدون كلمة قائمة لانها موجودة
على العموم حصل حير .
وهذا تعديل على حسب ما فهمت
تحياتي
معذرة الأخ سامي عن الخلط في الإسم، و الفضل يعود لك في الحل،
-
1
-
-
-
-
1
-
-
أمسح هذا السطر من الكود و سوف يشتغل عادي
Sleep 2000مثال مرفق للكود يشتغل عادي
جرب بالضغط على زر H
جرب ثانية بالضغط على H من لوحة المفاتيح سوف يشتغل كذلك
-
-
1
-
-
تم تجربة الكود باسم الجدول و الحقل كما ورد في السؤال و فعلا لم يشتغل قمت بتغيير اسم الجدول فاشتغل عادي يظهر أن اسم الجدول ربما من الأسماء المحجوزة
-
2
-
-
جربت الكود يشتغل عادي من خلال زر على النموذج
-
1
-
-
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 -
مصال قديم ممكن تستفيد منه و تعدل عليه
-
1
-
-
منذ ساعه, jjafferr said:
اخي biskra ، النموذج المطلوب منبثق مشروط (Popup=Yes, Modal=Yes) ، وهذه هي المشكلة
في هذه الحالة أحسن جواب هو :
ربما ليكون السؤال أكثر وضوحا هل يريد فتح نفس النموذج أكثر من مرة أم هناك نماذج أخرى يريد فتحها؟
-
مثال بسيط ثلاث طرق مختلفة لفتح نماذج متعددة من نموذج واحد. و تقبل التعديل على أي من هذه النماذج المفتوحة " منقول "
-
في خصائص النموذج عند الفتح On open
استعمل الكود التالي
application.runcommand accmdrecordsgotolast -
المشكلة عند تصغير النموذج لا يمكنك استرجاعه طريقة أخرى لكبير و تصغير النموذج بواسطة زر واحد
للتصغير يمكنك تجربة الكود بواسطة زر
DoCmd.Maximize -
تعديل على ملف الأخ أبو ماجد، حيث تمت لإضافة استعلام حذف السجلات بعد نقلها، فقط الحدف يتم من الجدول TABLE2 حسب ما فهمت
كما أضيف لك مثال آخر لطريقة أرشفة السجل بواسطة زر ربما يفيدك
-
تفضل الملف بعد إضافة جدول و نموذج جديد باسم Table2 ,
-
محاولة متواضعة في المثال المرفق، من خلال النموذج ندخل التاريخ و السعر و الحال، و بواسطة الآستعلام يظهر التاريخ الجديد و الثمن الجديد بزيادة 10% عن السنة الجديدة
-
1
-
-
برنامج يعتمد نفس الكود منقول للتجريب
-
1
-
-
كل ما عليك فعله هو وضع الكود في النموذج المرتبط بالجدول الذي تريد تتبعه و تغير فقط في اسم الحقل في الكود
Private Sub Form_BeforeUpdate(Cancel As Integer) Call AuditTrail(Me, هنا تضع اسم الحقل) End Sub
فتح تقرير غير منكمش اى اظهار ما بداخله وتصدير التقرير الى صيغة PDF
في قسم الأكسيس Access
قام بنشر
أخي Moosak أحرجتني بأمر لا يتطلب منك الإعتذار