اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

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

 

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

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

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

 

وشكرا لكم

رابط هذا التعليق
شارك

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

 

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

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


جعفر

  • Like 1
رابط هذا التعليق
شارك

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

    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

 

  • Like 2
رابط هذا التعليق
شارك

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

 

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

 

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

 

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

 

C:\Users\arapo\Documents\Reports

 

المجلد اسمه Reports

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

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

رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

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

 

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

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

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

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

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

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

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

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

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

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

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

 

تم تعديل بواسطه مسفر
  • Like 1
رابط هذا التعليق
شارك

جرب هذا الان 

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

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

 

حفظpdf.accdb

تم تعديل بواسطه مسفر
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

اقتباس

 

مجرد فكره 😎

  • Like 2
رابط هذا التعليق
شارك

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

 

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

 

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

رابط هذا التعليق
شارك

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

 

هكذا تحصل على رسالة بأن الملف موجود مسبقا (قمت بعمل بحث في مساعد الاكسس بكلمة 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 على سبيل التجربة بدأت الرسالة المقيتة التي ظهرت أول مرة في اول موضوعي للظهور مرة أخرى !!

واذا أبقيت 

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

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

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

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

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

 

جعفر

رابط هذا التعليق
شارك

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

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

هل هذا يمكن ؟

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

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

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

 

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

 

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

 

رابط هذا التعليق
شارك

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

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

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

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

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

 

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

 

جعفر

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information