ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_97&Number=218215

เขาต้องการเปิดไฟล์ PowerPoint เมื่อผู้ใช้เปิดแล้ว ต้องการจะเปิดไฟล์ใหม่ก็ให้ใช้โปรแกรม PowerPoint ตัวเดิม ไม่ต้องเปิดหลายๆ อัน

ผมแนะนำให้เขาใส่ MS Web Browser ActiveX ใน Form เลย จะได้ไมยุ่งยาก
สลับไปมาระหว่าง Access กับ PowerPoint

วิธีทำนั้น ให้ลองค้นในเว็บบอร์ดนี้ดูนะครับ ด้วยคำว่า Web Browser

หรือจะใช้โค้ดนี้เปิดก็ได้

Sub StartPPT()

On Error Resume Next
Dim PPT As Object, Doc As Object

' Check if PowerPoint is running or not.
Set PPT = GetObject(, "Powerpoint.Application")

If Err.Number <> 0 Then
' If not.
Err.Clear
Set PPT = CreateObject("Powerpoint.Application")
End If

PPT.Visible = True
Set Doc = PPT.Presentations.Open("j:\equipment.ppt")
With Doc.SlideShowSettings
.StartingSlide = 1
.EndingSlide = 3
.Run
End With

End Sub