فتح تقرير غير منكمش اى اظهار ما بداخله وتصدير التقرير الى صيغة PDF

[الحلبي]

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

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

المطلوب : عند فتح التقرير يظهر لنا فى حالته الطبيعية وغير منكمش (كما تراه فى المثال)

المطلوب الثانى : ان نصدر هذا التقرير الى صيغة PDF بشرط ان يفتح التقرير و PDF  معا (مع بعض) ويفتح لنا PDF  فى الحال بمجرد الضغط على زر الفتح الخاص بـ PDF

وياريت ياريت ياريت اعرف سبب لهذا الانكماش الذى اتعبنى كثير ووصلت الى درجة التعصب

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

فتح تقرير غير منكمش.accdb

[Barna]

54 دقائق مضت, الحلبي said:

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

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

المطلوب : عند فتح التقرير يظهر لنا فى حالته الطبيعية وغير منكمش (كما تراه فى المثال)

وياريت ياريت ياريت اعرف سبب لهذا الانكماش الذى اتعبنى كثير ووصلت الى درجة التعصب

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

طيب بالنسبة للتقرير عشان تروح العصبية عشان نتفاهم على المطلوب الثاني بعدها .....

في حدث عند فتح التقرير ضع هذا ......

DoCmd.Maximize

[TQTHAMI]

 

 

تم تعديل ديسمبر 18, 2022 بواسطه TQTHAMI
اجابة خاطئة

[Moosak]

2 ساعات مضت, الحلبي said:

وياريت ياريت ياريت اعرف سبب لهذا الانكماش

بالإضافة إلى ما قاله أخي محمد البرناوي 🙂 

ضع هذه الإعدادات للتقرير :

ثم ضع هذين السطرين عند الفتح :

DoCmd.Maximize
DoCmd.Restore

جرب الآن فتح التقرير .. سيظهر عندك بهذه الصورة :

قم بتغيير حجمه بالطريقة التي تريده أن يظهر بها .. ثم اضغط على ( Ctrl + S ) من الكيبورد ( أي حفظ الوضعية التي عليها الآن :

بعدها سوف يظهر لك التقرير دائما بهذه الصورة 🙂☝

[biskra]

3 ساعات مضت, الحلبي said:

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

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

المطلوب : عند فتح التقرير يظهر لنا فى حالته الطبيعية وغير منكمش (كما تراه فى المثال)

المطلوب الثانى : ان نصدر هذا التقرير الى صيغة PDF بشرط ان يفتح التقرير و PDF  معا (مع بعض) ويفتح لنا PDF  فى الحال بمجرد الضغط على زر الفتح الخاص بـ PDF

وياريت ياريت ياريت اعرف سبب لهذا الانكماش الذى اتعبنى كثير ووصلت الى درجة التعصب

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

فتح تقرير غير منكمش.accdb 484 kB · 10 downloads

جرب الكود التالي فقط عدل في مسار ملف الحفظ لأنه لا يمكنك فتح التقرير بامتداد pdf دون ان تتم عملية التصدير الى صيغة pdf أولا و إذا نجحت معك عدل على الكود بالنسبة لبقية السؤال

DoCmd.OpenReport "t1", acViewPreview
DoCmd.OutputTo acOutputReport, "t1", acFormatPDF, "مسار ملف الحفظ", True

 

تم تعديل ديسمبر 18, 2022 بواسطه biskra

[Moosak]

3 ساعات مضت, الحلبي said:

المطلوب الثانى : ان نصدر هذا التقرير الى صيغة PDF بشرط ان يفتح التقرير و PDF  معا (مع بعض) ويفتح لنا PDF  فى الحال بمجرد الضغط على زر الفتح الخاص بـ PDF

وبالنسبة لطلبك الثاني ضع هذا الكود في زر فتح ال PDF :

Dim DesktopPath As String
DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

DoCmd.OpenReport "t1", acViewReport
DoCmd.OutputTo acOutputReport, "t1", "*.pdf", DesktopPath & "\t1.pdf", True, , , acExportQualityPrint

 

تم تعديل ديسمبر 18, 2022 بواسطه Moosak

[Moosak]

والعذر منك أخي @biskra لم أر ردك إلا لاحقا 🙂🌹

[biskra]

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

[الحلبي]

استاذى / @Barna

انا وضعت هذا الكود من قبل اثناء محاولاتى ولكن لن يؤدى الغرض

والله العظيم انا راحت منى العصبية بمجرد ان رأيت مداختك واسمك معنا

استاذى الجميل / @Moosak

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

وعند الضغط فى وسط التقرير تظهر البيانات شئ بشئ يعنى عند الضغطه الاولى يظهر اسم الصنف وعند الضغطه الثانية يظهر السعر وهكذا

اما بالنسبة لفتح ملف pdf فهو فعلا يفتح ولكن ليس الاصناف المختارة بل يظهر جميع الاصناف

عموما ان كان لديك الوقت ولم اعطلك فى شئ جرب حضرتك بنفسك وطبق على المثال وشوف النتيجة--

 

استاذنا الكبر قوى / @biskra

انه لشرف عظيم جدا جدا ان ارى مدخلة حضرتك معنا 

ولكنى للاسف كود حضرتك لم يؤدى بالغرض أسف جدا لحضرتك

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

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

جزاكم الله جميعا كل خير وجعله فى ميزان حسناتكم ورحم الله والديكم 

 

 

[الحلبي]

6 ساعات مضت, rockjone33 said:

لم انظر الى المرفقك.. 

للاسف لم يتغير شئ او اجد ضالتى

الشرح الواضح يعلم اى مبتدئ مثلى بدل ان تضع له الحل جاهز انا مؤمن بهذه النظرية تمام ولانى معلم مادة كبيرة ـ اقوم فى بعض الاحيان بوضع الحل الجاهز دون شرح

فياريت حضرتك تطبق ما اشرت به فى الشرح على المثال المرفق 

انا شاكر لحضرتك وجزاك الله كل خير

[ابوخليل]

بالنسبة لانكماش التقرير

من الخصائص / لسان التبويب : تنسيق

قم بتغيير خاصية .. تغيير حجم تلقائي الى : ( لا ) بدلا من نعم

 

 

[ابوخليل]

بعد اجابتي اعلاه لاحظت ان الاستاذ موسى سبق وقد وجه الى تعديل هذه الخاصية .

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

الاستنتاج : قد يكون هناك خللا آخر عندك انت فقط في قاعدة البيانات

 

[الحلبي]

ا

48 دقائق مضت, ابوخليل said:

الاستنتاج : قد يكون هناك خللا آخر عندك انت فقط في قاعدة البيانات

استاذنا ومعلمنا ابو خليل فعلا طلع الخلل من عندى واجابة الاستاذ / موسى صحيحة فاسمح لى ان اضع افضل اجابه له

جزاك الله كل خير معلمنا وشيخنا ابو خليل وجعله فى ميزان حسناتك واطال الله فى عمرك

بهذا اكون وصلت الى الحل وشاكر جدا لكل من ساهم معى وشارك فى الحل

[سامي الحداد]

السلام عليكم 

مشاركة مع أساتذتي جزاهم الله خيرا

21 دقائق مضت, ابوخليل said:

الاستنتاج : قد يكون هناك خللا آخر عندك انت فقط في قاعدة البيانات

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

وهذه محاولتي بالنسبة لباقي السؤال.. زيادة مني شوي ..😄 

اليك الكود.

Private Sub Command17_Click()
On Error Resume Next

Dim strPath          As String
Dim strFileName      As String
Dim strReport        As String
Dim OutPath          As String

    strReport = "T1"
    strPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "T1" & "  " & Format(Date, "dd-mm-yyyy")
    If Dir(strPath, vbDirectory) = "" Then
    MkDir strPath
    
        OutPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "T1" & " " & Format(Date, "dd-mm-yyyy") & " " & ".PDF"
        MsgBox "  تم عملية انشاء المجلد مع تصدير الملف الى سطح المكتب", vbInformation, " تأكيد "
        strFileName = CurrentProject.Path & "\T1\" & strFileName

        DoCmd.OpenReport "t1", acViewReport, , "itemid=" & itemid & ""
        DoCmd.OutputTo acOutputReport, "t1", acFormatPDF, strPath & "\T1" & " " & Format(Date, "dd-mm-yyyy") & " " & ".PDF", True, , , acExportQualityPrint
        DoCmd.Close acReport, strReport
Else
    If strPath > 0 Then
    DoCmd.CancelEvent

    MsgBox " الملف موجود مسبقا بهذا الاسم والتاريخ " & vbCrLf & _
    "T1" & " " & Format(Date, "dd-mm-yyyy"), vbInformation + vbMsgBoxRight, "تم إلغاء العملية"
Exit Sub
End If
End If
End Sub

أخي الدكتور محمد كنت قد سألتني عن ثلانة اشياء في هذه المشاركة 

https://www.officena.net/ib/topic/117397-طباعة-محتويات-النموذج-على-ان-يكون-اسم-الملف-المطبوع-هو-تاريخ-اليوم-تلقائيا-عند-غلق-النموذج/

هل هذا هو المطلوب في هذه المشاركة ايضا ام لا ؟

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

تحياتي للجميع

فتح تقرير غير منكمش.accdb

[الحلبي]

3 ساعات مضت, سامي الحداد said:

هل هذا هو المطلوب في هذه المشاركة ايضا ام لا ؟

نعم اجابه شافيه جمليه وعبقرية  استاذ / سامى      ولكن ينقصها شئ بسيط جدا

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

ويحتوى هذا الملف على ملفات البرنامج يختلف باختلاف التاريخ فقط ـ يعنى مهما طبعت فى اليوم الواحد يسجل داخل الملف طالما التاريخ لم يختلف وعند الطباعة فى تاريخ اخر يزداد عدد الملفات  داخل المجلد لان التاريخ اختلف

شاكر جدا لحضرتك وجزاك الله خيرا وزادك الله علما نافعا ـ وكم انا سعيد بحرصك الشديد على تعليم المبتدئين مثلى ومساعدتهم

رحم الله والديك فى الدنيا والاخره 

كل الاحترام والتقدير لشخصكم الكريم

تم تعديل ديسمبر 19, 2022 بواسطه الحلبي

[سامي الحداد]

 كل الود والاحترام لشخصكم الكريم اخي محمد الحلبي 

  

2 ساعات مضت, الحلبي said:

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

وهو  كذلك .. بحيث في حالة وجود الفولدر والملف بنفس التاريخ سوف تظهر رسالة بوجود اسم وتاريخ الملف وسيتم الغاء الحفظ.

انظر للصورة .

انا عملت على زر فتح ملف PDF فقط. وتأكدت  من الكود ايضا يعمل بصورة صحيحه.

ارجو التجربة من جديد ومسح الملفات القديمة . بانتطارك اخي العزيز.

تحياتي

 

 

[Moosak]

شكرا لك عمي @الحلبي 🙂🌹 .. تأخرت عليك في الرد ولما رجعت وجدت كل شيء جاهز 😅 ..

 

[الحلبي]

40 دقائق مضت, سامي الحداد said:

ارجو التجربة من جديد ومسح الملفات القديمة . بانتطارك اخي العزيز.

الله عليك استاذى الجميل / سامى 

نعم هو المطلوب اثباته

جزاكم الله كل خير وزادك الله علما كثيرا ـ احييك من كل قلبى على هذا الحل الجميل

الشكر والتقدير لكم

10 دقائق مضت, Moosak said:

تأخرت عليك في الرد ولما رجعت وجدت كل شيء جاهز 😅 ..

 

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

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

تم تعديل ديسمبر 19, 2022 بواسطه الحلبي

[سامي الحداد]

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

الله عليك استاذى الجميل / سامى 

نعم هو المطلوب اثباته

جزاكم الله كل خير وزادك الله علما كثيرا ـ احييك من كل قلبى على هذا الحل الجميل

الشكر والتقدير لكم

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

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

دكتورنا الحبيب محمد  الشكر لله  عز وجل وللاساتذة الذين تعلمنا وما زلنا نتعلم منهم الله يجزيهم كل الخير . 

 تحياتي وبالتوفيق