تصدير سجل محدد من التقرير

[نسيم الروح الروح]

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

لدي نظام فواتير وعند تصدير فاتورة من التقرير التي هي سجل فيتم تصدير كل السجلات علما اني اضع هذا الكود

"DoCmd.OutputTo acOutputReport, "2invoiceh"
وعندما وضعت هذا الكود بغرض تحديد سجل محدد التي هنا فاتورة

DoCmd.OutputTo acOutputReport, "2invoiceh", , "[operation_code]=Forms![invoiceh]![operation_code]"
لكن الكود فيه مشكلة

هل من كود يصدر لي سجل محدد من مجموعة سجلات؟

[jjafferr]

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

 

تفضل

'رقم operation_code اذا كان الحقل
DoCmd.OpenReport "2invoiceh", acViewPreview, , "[operation_code]=" & Forms![invoiceh]![operation_code]

'نص operation_code اذا كان الحقل
DoCmd.OpenReport "2invoiceh", acViewPreview, , "[operation_code]='" & Forms![invoiceh]![operation_code] & "'"

 

جعفر

[نسيم الروح الروح]

14 ساعات مضت, jjafferr said:

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

 

تفضل

'رقم operation_code اذا كان الحقل
DoCmd.OpenReport "2invoiceh", acViewPreview, , "[operation_code]=" & Forms![invoiceh]![operation_code]

'نص operation_code اذا كان الحقل
DoCmd.OpenReport "2invoiceh", acViewPreview, , "[operation_code]='" & Forms![invoiceh]![operation_code] & "'"

 

جعفر

شكراً لك اخي جعفر على مساعداتك لي .. لكن يا اخي اردت كود لتصدير سجل معين وليس لعرضه أو فتحه او طباعته (اقصد بالتصدير بصيغة pdf مثلاً)

فما هو كود لتصدير سجل معين؟

تم تعديل ديسمبر 30, 2017 بواسطه نسيم الروح الروح

[jjafferr]

5 ساعات مضت, نسيم الروح الروح said:

(اقصد بالتصدير بصيغة pdf مثلاً)

 

شكرا على التوضيح

 

الامر OutputTo لا يحتوي على طريقة لعمل التصفية للسجل المطلوب ،

فعليه ، اليك الطريقة التي يمكن ان تستعملها لتحقيق هدفك:

1. اعمل نسخة من التقرير 2invoiceh ، ولنسميه 2invoiceh_2 ،

2. اعمل استعلام ، واجعله مصدر بيانات هذا التقرير ، 

3. في الاستعلام ، وفي الحقل operation_code ، اكتب هذا المعيار : Forms![invoiceh]!operation_code

4. فيصبح كود التصدير الى pdf هكذا

DoCmd.OutputTo acOutputReport, "2invoiceh_2", acFormatPDF, "C:\Temp\myPDF.pdf"

.

حيث سيتم تصدير الملف myPDF.pdf الى المجلد C:\Temp

 

جعفر

[نسيم الروح الروح]

شكراً لك اخي الكريم على مساعدتك هذه و على مساعداتك السابقة لي ... هذا هو المطلوب فعلاً

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

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

 

Public Sub ExportFilteredReportToPDF()

Dim reportName As String

Dim fileName As String

Dim criteria As String

reportName = "rptYourReportName"

fileName = "C:\tmp\report_export_file.pdf"

criteria = "SomeTextField = 'ABC' AND SomeNumberField = 123"

DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden

DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName

DoCmd.Close acReport, reportName, acSaveNo

End Sub

تم تعديل ديسمبر 30, 2017 بواسطه نسيم الروح الروح

[jjafferr]

هناك دائما اكثر من طريقة لعمل المطلوب ، ولكننا نتخذ قرارا لعمل المطلوب بطريقة معينة لسبب او لآخر ،

وبعض الاوقات لا توجد طريقة افضل من اخرى ،

واحيانا يكون هناك الكثير من الاشياء التي تلزمك بعمل شيء بطريقة معينة ، وانت تعرف ان هذه الطريقة ليست الافضل ، ولكن لا يوجد مجال لإختيار الافضل هنا.

 

فالجواب ، تعددت الاسباب والموت واحد

اذا الطريقة سهلة لك ، واهم الشيء ان النتائج صحيحة ، فلا تهتم بشيء آخر

 

جعفر

[نسيم الروح الروح]

8 دقائق مضت, jjafferr said:

هناك دائما اكثر من طريقة لعمل المطلوب ، ولكننا نتخذ قرارا لعمل المطلوب بطريقة معينة لسبب او لآخر ،

وبعض الاوقات لا توجد طريقة افضل من اخرى ،

واحيانا يكون هناك الكثير من الاشياء التي تلزمك بعمل شيء بطريقة معينة ، وانت تعرف ان هذه الطريقة ليست الافضل ، ولكن لا يوجد مجال لإختيار الافضل هنا.

 

فالجواب ، تعددت الاسباب والموت واحد

اذا الطريقة سهلة لك ، واهم الشيء ان النتائج صحيحة ، فلا تهتم بشيء آخر

 

جعفر

لا يا اخي اشكرك على مساهماتك وانا لا افضل طريقة عن اخرى ولكن للمعرفة لا اكثر اخي الكريم

واشكرك مرة اخرى