ผมเคยมีของเก่าทำไว้นานแล้ว
โหลดที่นี่ครับ
https://drive.google.com/drive/folders/0B01VbQMkl0SFTmlqQTFZNlF5RE0?usp=sharing

ลองโหลดมาแล้ว แต่มันใช้งานคำสั่งไม่ได้ครับ พอคลิ๊กมันก็เด้งไปที่ หน้า code ครับ

ลองเปิดโดยการกด Shift ค้างไว้แล้วเปิดไฟล์ครับ เข้าไปดูในส่วนของ Form Frm_Report ครับ

https://drive.google.com/drive/folders/0B01VbQMkl0SFTmlqQTFZNlF5RE0

เดี๋ยวจะลองศึกษาและทำดู ขอบคุณมากครับ

ผมลองนำไปใช้และดัดแปลงได้ตามโค้ดด้านล่างแต่ยังติดปัญหาดังนี้ครับ
1.เวลารายงานปริ๊นท์เป็น pdf. แล้วข้อมูลมันโชวร์ทั้งหมด คือผมต้องการให้โชว์เฉพาะที่เลือกครับ
2.เวลาปริ๊นท์ pdf. แล้วถ้าชื่อซ้ำอยากให้ถามก่อนว่าจะให้เซฟทับหรือเปล่า คือตอนนี้มันจะทับไปเลย

รบกวนด้วยครับ


Private Sub SendMail_Outlook_Click()
Dim filepath As String
Dim filenanme As String
Dim PathAndFileNew As String

FileName = "Specification issuing" & "_" & Me.Materials & "_" & Me.txtProjectNo
filepath = "D:\SpecIssuing\" & FileName & ".pdf"
DoCmd.OutputTo acOutputReport, "R_SpecIssue", acFormatPDF, filepath

Set oMail = CreateObject("Outlook.Application")
Set oItem = oMail.CreateItem(0)

With oItem
.To = "[email protected]"
.CC = "[email protected]"
.BCC = ""
.Subject = "Specification Issuing" & "_" & Me.Materials & "_" & Me.txtProjectNo
.attachments.Add filepath
.Body = "Dear Sir" & Chr(13) & _
"Kindly receive the specification as attached" & Chr(13) & _
"Best regards"

.Display
End With
Set oItem = Nothing
Set oMail = Nothing

MsgBox "Operation completed successfully"
DoCmd.GoToRecord , , acNewRec
End Sub

ตอนนี้ลองทำแล้วยังไม่ได้เลยครับติดปัญหาตามนี้เลยครับ

1.เวลารายงานปริ๊นท์เป็น pdf. แล้วข้อมูลมันโชวร์ทั้งหมด คือผมต้องการให้โชว์เฉพาะที่เลือกครับ
2.เวลาปริ๊นท์ pdf. แล้วถ้าชื่อซ้ำอยากให้ถามก่อนว่าจะให้เซฟทับหรือเปล่า คือตอนนี้มันจะทับไปเลย

รบกวนอาจารย์และเพื่อนๆ ช่วยชี้แนะด้วยครับ

ขอบคุณครับ

1.R_SpecIssue นี่คือชื่อรายงานใช่ไหมครับ ถ้าเราเปิดในรายงานเลยข้อมูลออกมาทั้งหมดหรือเปล่าครับ
2.ลองค้นด้วยคำว่า FileSystemObject ผมว่าใช้ตรวจสอบไฟล์ได้นะครับ

ใช่ครับ เดี๋ยวจะลองทำดู ขอบคุณมากครับ

ตัวอย่างที่ลองตรวจสอบไฟล์ด้วย Scripting.FileSystemObject


Private Sub Command5_Click()
On Error Resume Next
   If CheckFile("D:\SpecIssuing\11.pdf") = True Then
            MsgBox ("ไฟล์นี้มีอยู่แล้ว")
    Else
            MsgBox ("ไม่พบไฟล์")
   End If
End Sub

'************************************************************************

Function CheckFile(filespec) As Boolean
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists(filespec) Then
        CheckFile = True
    Else
        CheckFile = False
    End If
End Function

หลังจากที่ตรวจสอบไฟล์ได้แล้วก็มาต่อตรงจุดที่เราต้องการให้ถามก่อนว่าทับไฟล์เก่าหรือไม่


Private Sub Command5_Click()
On Error Resume Next
Dim LResponse As Integer
   If CheckFile("D:\SpecIssuing\12.pdf") = True Then
            LResponse = MsgBox("มีไฟล์นี้อยู่แล้ว " & vbCrLf & "Do you wish to continue?", vbYesNo, "Continue")
            'MsgBox ("แทนที่ไฟล์สำเร็จ")
            If LResponse = vbYes Then
                        MsgBox "Completed !"
            Else
                        MsgBox "ยกเลิกเขียนทับไฟล์เก่า"
            End If
    Else
            MsgBox ("ไม่พบไฟล์")
   End If
End Sub


รบกวนอีกรอบครับ จาก code ด้านบนของผม ผมควรจะเอา code ที่ให้มาไปแทรกไว้ตรงใหนครับ