صباح الخير جميعا
وجمعة مباركة ان اشاء الله للجميع
للأهمية رجاءاً
لدي مشكلة عند استخدام كود حفظ التقرير بنوع PDF
حيث اني استخدمه في نموذج مستمر
وأرغب عند الضغط عليه أن يقوم بحفظ تقرير سجل محدد فقط وليس كامل السجلات..
مرفق المثال مع صورة
http://www.arab4load.info/download150133.html'>http://www.arab4load.info/download150133.html
الكود :
Private Sub Command11_Click()
Dim LResponse As Integer
Dim MyFiLeName As String
If Not NoData Then ' checks for no data event to prevent a mis fire
DoEvents
LResponse = MsgBox("Do you wish to Save the report", vbYesNo, "Save Now or loose it")
If LResponse = vbYes Then
MyFiLeName = "D:\New PDF Forms\" & Format([TabCompName]) & Format(Now, "dd-mm-yyyy hhnnss") & ".pdf"
DoCmd.OutputTo acOutputReport, "TabCompanies", acFormatPDF, MyFiLeName, True
DoEvents
If LResponse = vbNo Then
DoCmd.CancelEvent
Else
End If
End If
End If
End Sub