علي المصري

اريد ان يفتح التقرير معي بحجم معين اي العرض = .......... الارتفاع = ............ اي مقاس يعني مثلا 500 .

شكرا استاذنا : محمد ايمن انا معاك في الكلام اللي قلته ولكن لو طرحنا هذا الكود للسؤال يعتبر عملية تفكير ويا ريت نتحصل عليه لان الكود يعمل بدون البرامج المذكورة وانا جربته في الاكسل بل بالعكس عند استخدام الكود يعطى نتيجة في حفظ pdf ذات جودة عالية من البرنامج وعلى فكرة اوفيس 2010 من ميزاته ممكن يحفظ الملف على شكل pdf سواء الورد أو الاكسيل

إليكم ملف الاكسيل المستخدم به هذا الماكرو تعليم الكبار.rar

الكود السابق في اكسيل يكتب مع زر الأمر أو زر يعمل مع الماكرو ولكن هناك كود أساسي يوضع في موديول خاص به وهو كالتالي Option Explicit Function RDB_Create_PDF(Myvar As Object, FixedFilePathName As String, _ OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String Dim FileFormatstr As String Dim Fname As Variant If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _ & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then If FixedFilePathName = "" Then FileFormatstr = "PDF Files (*.pdf), *.pdf" Fname = Application.GetSaveAsFilename("", filefilter:=FileFormatstr, _ Title:="Create PDF") If Fname = False Then Exit Function Else Fname = FixedFilePathName End If If OverwriteIfFileExist = False Then If Dir(Fname) <> "" Then Exit Function End If On Error Resume Next Myvar.ExportAsFixedFormat _ Type:=xlTypePDF, _ FileName:=Fname, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=OpenPDFAfterPublish On Error GoTo 0 If Dir(Fname) <> "" Then RDB_Create_PDF = Fname End If End Function

اخ محمد ايمن الموضوع المشار إليه هو موضوعي والمشاركة الخاصة بك رقم 14 أعرفها جيدا وانا عندي Nitro pdf Pro ولكن الكود السابق في الاكسيل لا يحتاج اي برامج فأود أن نحول هذا الكود من اكسيل إلى كود أكسيس ليستفيد به الجميع ولنجعلهة مشرعنا في رمضان كل عام وانتم بخير بمناسبة الشهر الكريم

السلام عليكم ورحمة الله وبركاته الملف المرفق به تقريران R1 و MainTable اردت أن اعمل إحصائية في كل منهما عن الجنسيات المتاحة مثلا إذا وجد في التقرير الاجنسيات التالية مصري - إماراتي - أردني - سوري - فلسطيني - باكستاني فان ذلك يكون في نهاية التقرير على شكل جدول الجنسية وامامها عدد الطلاب بهذه الجنسية حاولت كثرا ولم افلح لاني مبتدئ في الاكسيس لكم جزيل الشكر AliAbdalla22.rar

إخواني الكرام لقد تعبت من كثرة البحث على كود يمكنني من الطباعة مباشرة على شكل Pdf وبعد التفكير وجد انه لدي ماكرو يفعل ذلك ولكن في اكسيل وليس أكسيس إليكم هذا الماكرو Sub RDB_PrintArea_Range_To_PDF() On Error Resume Next Dim FileName As String Dim rng As Range On Error Resume Next Set rng = Range(AliElbasry2.PageSetup.PrintArea) If Not rng Is Nothing Then Debug.Print rng.Address(external:=True) rng.Select FileName = RDB_Create_PDF(AliElbasry2, "", True, True) If FileName = "" Then Else Sheets("Data").Select Range("D3:L3").Select Exit Sub End If End If Sheets("Data").Select Range("D3:L3").Select End Sub وعلى من يستطيع تحويله ليعمل مع الأكسيس يفعل ذلك خدمة للجميع وله الثواب والخير من الله عز وجل

ابو خليل هل يمكن ان نجعل التقرير يفتح بابعاد ثابته مثل height =500 Width = 600 مثلا

يالتيني شوفته قبل كدا ما كنت زهقت من التجريب ممتاز ولك الشكر

لسه هشوفه الحين

السلام عليكم ورحمة الله وبركاته عن طريق التجربة توصلت إلى التالي اعمل زر أمر واكتب الامر التالي جربوه Private Sub Print_R1_Click() DoCmd.OpenReport "r1", acViewPreview DoCmd.RunCommand acCmdPrint End Sub

وأنا كذلك ............ لم يفلح

شكرا جزيلا لك اخي : احمد خلف 2012 جزاك الله خير وجعله في ميزان حسناتك ولكن استفسار بسيط اخي هل يمكن جعل امر الطباعة يقوم باظهار قائمة باسماء الطابعات المثبته ومنا يستطيع الفرد اختيار الطابعة التي يريدها شكرا مرة اخرى واعذرني لكثرة الاسئلة ( فما زلت اتعلم )

شكرا للجميع

السلام عليكم ورحمة الله وبركاته قاعدة البيانات المرفقة توصلت إليها بفضل الله ثم مساعدات الإخوة الكرام في المنتدى - لأني بدأت اعلم نفسي من خلال موقعكم الكريم الحين تقريبا اكتملت ولكن باقي عملية الطباعة في النموذج frm1 عملت زر طباعة ولكن لم يعمل ويعطيني رسالة خطأ أزلت البرمجة الخاصة به فارجوا لو تساعدوني في عمل كود متكامل للطباعة بحيث اتمكن من خلاله أيضا ً اختيار الطابعة التي اريدها من قائمة الطابعات على جهازي وهل يوجد كود لجعل الطباعة على شكل pdf وأخيرا : شاهدت بعض قواعد البيانات تعمل ولكن لا يظهر منها غير النموذج الأساسي وعند\ الضغط على زر يتم استدعاء المطلوب ثم العود إلى الشاشة الأساسية فهل استطيع طلب ذلك ... ولعل من يقدم لي هذه الخدمة ... أرجو من الشرح حتى يتسنى لي بعد ذلك القيام بها شكرا لكم واعذروني لأني جديد في الاكسيس ولا أعلم عن البرمجة كثيرا ً شكرا AliAbdalla.rar

شكرا أخي الكريم محمد أيمن التعديل الذي قمت به هو ما كنت أتمناه فعلا ً شكرا لك كما شكرا لأخ محمد ايمن والأخ أحمد خلف 2012 على نصائحكم سوف اعمل بنصيحتكم وأحول أسماء الجداول إلى اللغة الانجليزية

السلام عليكم ورحمة الله وبركاته بفضل الله ثم الاخ ابو خليل قمت بعمل قاعدة البيانات المرفقة اضفت زر لحذف بيانات الجدول الأساسي ولكن يتم الحذف بدون تحذير ارجو من حضراتكم تعديل هذا الكود ليعطى تحذيرا ما قبل الموافقة على الحذف Ali2 (3).rar

شكرا وجزاك الله خيراً

شكرا ابو خليل ولكن قصدى في السؤال كيف يمكن اظهار عدد الطلاب في نهاية التقرير ( تزييل الصفحة )

كيف يمكن اظهار عدد الطلاب في نهاية التقرير

شكرا لك اخي ابو خليل

أولا : شكرا ابو خليل على سعة صدرك وردك السريع المبهر ثانيا ً : أرجوا ان كان ممكنا ارسال كتيب به هذه الدوال التي تستخدم مع الاكسيس ملحوظة للفائدة : يمكنك اختصار النماذج الاربعة والتقارير الاربعة في نموذج واحد وتقرير واحد لاستخراج النتيجة نفسها كيف يمكن عمل ذلك ؟

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

شكرا جزيلا جزاك الله خيرا

السلام عليكم ورحمة الله وبركاته الاخ الفاضل / أبو خليل معذرة عند طباعة التقرير احصل على مسلسل الاسماء مثلا 2 ، 5 ، 24 ، 6 هل يمكن تعديله بحيث يكون متسلسل 1-2-3-4 وهكذا ولكم جزيل الشكر مرفق الملف بعد إضافة ( طباعة حسب الجنسية ) وبعدها سوف اكمل الباقي ان شاء الله Copy of Ali.rar