زر حفظ باسم عقدني

[الساحة البريدية]

السلام عليكم ورحمة الله وبركاته

عندي نموذج فيه سجلات 

وعملت زر لحفظ السجل بصيغة pdf بداخل مجلد على سطح المكتب لان ملفات الpdf هذي انا ارسلها لشخص على ايميله

المطلوب ان ملف الpdf يتم حفظه باسم العميل ، طبعا ياخذ الاسم المخزن في حقل اسم العميل 

الأكواد اللي حاولت فيها هي :

Dim X As String
X = Me.m_name & ".pdf"
DoCmd.OutputTo acSelection, X, acFormatPDF

 

طبعا Me.m_name هو اسم حقل اسم العميل 

بعد الضغط على الزر يتم التنفيذ وتظهر لي نافذة الحفظ وينزل اسم العميل في خانة اسم الملف وكل شي تمام ، ولكن لما اضغط على زر الحفظ تظهر لي رسالة الخطأ التالية 

 

أكيد في حل ان شاء الله ولكني عجزت تماما حل المشكلة 

 

وشكرا لكم

[jjafferr]

وعليكم السلام 🙂

 

يجب ان تكتب مسار حفظ الملف على الكمبيوتر ، مجرد اسم العميل لا يكفي 🙂
مثلا:

Dim X As String
  
X = Environ("USERPROFILE") & "\Desktop"  	'Desktop path
X = X & "\" & Me.m_name & ".pdf"
DoCmd.OutputTo acSelection, X, acFormatPDF

جعفر

[د.كاف يار]

تفضل هذه المشاركة من طرفي

    Dim fldrname, fldrpath, MyFile As String
        Set fso = CreateObject("scripting.filesystemobject")
          fldrpath = CurrentProject.Path & "\" & "Files"
          If Not fso.FolderExists(fldrpath) Then
             fso.createfolder (fldrpath)
          End If

            MyFile = CurrentProject.Path & "\Files\" & Me.m_name & ".pdf"
            DoCmd.OutputTo acOutputReport, "اسم التقرير", "PDFFormat(*.pdf)", MyFile, False, "", , acExportQualityPrint

 

[الساحة البريدية]

أشكركم على سرعة التجاوب والرد

 

مساعدة الأستاذ ( جعفر ) تم حفظ السجل بصيغة pdf مع استمرار ظهور رسالة الخطأ 

 

أما الاستاذ كاف يار ، طبقت الكود ولكن لم يعمل

 

بالمناسبة هذا هو مسار المجلد الذي يتم حفظ ملفات الpdf به :

 

C:\Users\arapo\Documents\Reports

 

المجلد اسمه Reports

تم تعديل مايو 17, 2021 بواسطه الساحة البريدية

[الساحة البريدية]

ايضا اكتشفت شي غريب ، كود الاخ جعفر عند الضغط على الحفظ تظهر رسالة الخطأ نفسها ، ولكن يظهر ان الملف تم حفظه في مجلد الوصول السريع ، لكن فعليا لا يوجد ملف محفوظ ( شيء غريب ) !!

[jjafferr]

منذ ساعه, الساحة البريدية said:

وعملت زر لحفظ السجل بصيغة pdf بداخل مجلد على سطح المكتب

السؤال هنا، شو الكائن اللي تريد حفظه ، هل هو تقرير او استعلام او نموذج !!

 

[الساحة البريدية]

سجل في نموذج طال عمرك

السجل الحالي 

تم تعديل مايو 17, 2021 بواسطه الساحة البريدية

[jjafferr]

جرب هاي التعديل

Dim X As String
  
X = "C:\Users\arapo\Documents\Reports"
X = X & "\" & Me.m_name & ".pdf"
DoCmd.OutputTo acForm, Me.name, acFormatPDF, X, True, , , acExportQualityPrint

 

جعفر

[الساحة البريدية]

الله يحفظك هذا الكود يحفظ لي النموذج بكامل سجلاته والمطلوب السجل الحالي فقط 

 

حاولت ابدل كلمة acForm بكلمة  acSelection ظهرت عندي نفس رسالة الخطأ في الرد الاول

تم تعديل مايو 17, 2021 بواسطه الساحة البريدية

[jjafferr]

3 دقائق مضت, الساحة البريدية said:

هذا الكود يحفظ لي النموذج بكامل سجلاته والمطلوب السجل الحالي فقط

الحمدلله وصلنا الى حل 🙂

الله يطول عمرك ان شاء الله ، الاكسس ما عنده امر بحفظ سجل فقط بين سجلات !!

فيا تعمل نموذج لسجل واحد فقط (وتستعمل acForm في امر الطباعة) ، او تقرير acReport ، او استعلام acQuery ، وبعدين تستعمل الامر اعلاه وتصدر الملف 🙂

والخيار بين ايدكم سيدي 🙂

 

جعفر

[الساحة البريدية]

الله يجزاك خير ما قصرت

 

طيب مافي حل اخر مثل استخدام دالة docmd.PrintOut بدل من DoCmd.OutputTo ويكون نسق الملف pdf على ان يكون اسم الملف هو me.m_name

[jjafferr]

في النموذج على حدث "الحالي" ، اجعل استعلام او تقرير يأخذ قيمة من هذا السجل ، ويعمل تصفية سجلات للإستعلام او التقرير او حتى نموذج آخر فردي ، واستعمل اسم هذا الكائن في الامر اللي عندك ، الموضوع في غاية السهولة 🙂

 

جعفر

[مسفر]

فيه حل وسهل جدا 

بإمكانك حفظ وتصدير الملف بما تريد من الأسماء 

وتضعه في أي مجلد يتم إنشاه مسبقا وتحديد من البرنامج وهو يحفظ تلقائي بضغطت زر في نفس المجلد 

ارفق القاعدة حتى يتم التعديل عليها 

 

 

تم تعديل مايو 17, 2021 بواسطه مسفر

[الساحة البريدية]

حفظpdf.accdb

 

ارفقت الملف المطلوب لو في حلول ياليت تساعدوني فيها وشكرا لكم

[jjafferr]

تفضل 🙂

 

عملت لك نموذج للتصدير 🙂

 

جعفر

1371.حفظpdf.accdb.zip

[مسفر]

جرب هذا الان 

أنشئ مجلد على قرص دي أوي أي قرص ولكن غير الارتباط في جدول aa 

ثم اضغط زر pdf   في نفس النموذج ثم اذهب إلى المجلد تجد الملف بالاسم انظر في جدول aa  تجد  المسار واسم المجلد 

 

حفظpdf.accdb

تم تعديل مايو 17, 2021 بواسطه مسفر

[kha9009lid]

5 ساعات مضت, الساحة البريدية said:

حفظ السجل بصيغة pdf بداخل مجلد على سطح المكتب لان ملفات الpdf هذي انا ارسلها لشخص على ايميله

مشاركة مع الاساتذة الكرام

ربما هذا الموضوع يفيدك بدلا تصدير السجل الى pdf ثم ارساله عن طريق الايميل

يمكنك عمل تقرير وارسالة للعميل او المورد مباشرة من اكسس بدون الحاجة الى تصديره

مع الشكر لاخي @د.كاف يار 👇

اقتباس

 

مجرد فكره 😎

[د.كاف يار]

تفضل التعديل

سيتم انشاء مجلد بإسم Files

حفظpdf.zip

تم تعديل مايو 18, 2021 بواسطه د.كاف يار

[الساحة البريدية]

أشكركم جميعا يا اساتذتي ( جعفر - كافيار - مسفر - kha ) جميعكم أضاف أروع إضافة جزاكم الله خيرا

 

الاستاذ جعفر : تعديلك الأخير تمام لكن هل في طريقة لو مثلا في ملف باسم : سعيد عادل ، محفوظ من السابق في المجلد ، وجيت احفظ بنفس الاسم ، تظهر لي رسالة الوندوز المعتادة : الاسم موجود هل تريد الحفظ فوقه 

 

لان الوضع الحالي يحفظ فوقه بدون اشعاري بأنه يوجد ملف محفوظ بنفس الاسم !

[jjafferr]

نصيحتي لك هي ان تجمع جميع افكار الخبراء (واقعا هذه الكلمة قليلة في حق هؤلاء الكرماء) اعلاه وتخرج بفكرة وبرنامج افضل 🙂

 

هكذا تحصل على رسالة بأن الملف موجود مسبقا (قمت بعمل بحث في مساعد الاكسس بكلمة msgbox ، وفي اسفل الشرح كان هذا الكود, والذي استعمله في برامجي) :

    Dim X As String
  
    'X = Environ("USERPROFILE") & "\Desktop"     'Desktop path
    X = "C:\Users\arapo\Documents\Reports"
    X = X & "\" & Me.m_name & ".pdf"

    If Dir(X, vbNormal) = "" Then
        DoCmd.OutputTo acForm, "frm_data_main", acFormatPDF, X, True, , , acExportQualityPrint
    Else
        
        Dim Msg, Style, Title, Response
        Msg = "الملف موجود مسبقا، هل تريد النسخ عليه"    ' Define message.
        Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
        Title = "الرجاء الانتباه"    ' Define title.
                ' context.
                ' Display message.
        Response = MsgBox(Msg, Style, Title)
        If Response = vbYes Then    ' User chose Yes.
            DoCmd.OutputTo acForm, "frm_data_main", acFormatPDF, X, True, , , acExportQualityPrint
        Else    ' User chose No.
            MsgBox "تم الغاء عملية الحفظ"
        End If

        
    End If
    

 

جعفر

[الساحة البريدية]

جميعكم خبراء وجميعكم رائعين 

ويبدوا اني اثقلت عليكم ( سامحوني ) 

لكن هناك أمور تحصل غريبة جدا

قمت بنسخ كل ما كتبته لي أخي جعفر ، وبالضغط على الزر قام بعمله في المرة الأولى

 

وبعد ذلك أصبح الزر ل يعمل ولا تظهر عنه أي نتيجة

وبعدما قمت بحذف السطر : On Error Resume Next على سبيل التجربة بدأت الرسالة المقيتة التي ظهرت أول مرة في اول موضوعي للظهور مرة أخرى !!

واذا أبقيت 

تم تعديل مايو 18, 2021 بواسطه الساحة البريدية

[jjafferr]

1. ابداً لا تستعمل On Error Resume Next ، إلا في حالات جدا جدا ضيقة ، وكودك ليس من هذه الحالات ،

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

3. اذا لم تكن قد خلطت اكواد اخرى مع آخر كود اعطيتك ، فالمفروض ان الكود يعمل ، لأني جربته. واما اذا عملت تغيير/اضافة عليه ، فرجاء ارفاق الكود كاملا ،

4. من المشاركات السابقة ، يتضح ان الخطأ يكون في المسار.

 

جعفر

[الساحة البريدية]

المسار نفس المسار والمثال نفس المثال

بدأت اشك أن هناك وحدات نمطية مسجلة لدي أو غير مسجلة قد يكون لها تأثير على الدالة

هل هذا يمكن ؟

تم تعديل مايو 18, 2021 بواسطه الساحة البريدية

[الساحة البريدية]

نظام مكروسوفت اكسس فيه ( زر حفظ ) جاهز عبارة عن ماكرو ، لكن يفتقد ( حفظ باسم ) علشان نثبت الصيفة غلى pdf 

الطريقة اللي تعتبر فعالة زر طباعة ، ومن خيارات الطباعة نثبت pdf ونكتب اسم الملف يدويا يقوم بالحفظ ، ولو كان نفس اسم الملف موجود في المجلد تظهر رسالة وندوز بأن الملف موجود

 

كنت حاب ابتكار طريقة تقلل الخطوات ، يعني بمجرد الضغط على الزر يقوم بحفظ الملف بصيغة pdf باسم الشخص وفي حال الاسم موجود في المجلد تظهر رسالة تنبيه 

 

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

 

[jjafferr]

اخي الفاضل ، ان قلت:

11 ساعات مضت, الساحة البريدية said:

الاستاذ جعفر : تعديلك الأخير تمام لكن هل في طريقة لو مثلا في ملف باسم : سعيد عادل ، محفوظ من السابق في المجلد ، وجيت احفظ بنفس الاسم ، تظهر لي رسالة الوندوز المعتادة : الاسم موجود هل تريد الحفظ فوقه 

لان الوضع الحالي يحفظ فوقه بدون اشعاري بأنه يوجد ملف محفوظ بنفس الاسم !

وهذا معناه ان الكود كان شغال عندك قبل ان تستعمل كود التأكد من وجود الملف ، صح ؟

 

فإذا كان الامر كذلك ، فالمشكلة عندك في الكود الاخير ، فرجاء ترفقه لنا حتى نشوف اذا فيه خلل 🙂

 

جعفر