ถ้าเราจะให้เล่นในฟอร์มโดยใช้ตัวเล่น ของ WindowsMediaPlayer ได้ไหมครับ แต่ตัวไฟล์เสียงจะแยกออกมาจากตัวโปรแกรม
โดยกำหนด ตำแหน่งของไฟล์เสียงครับผมลองทำแบบง่ายๆ ได้ดังนี้


ตัวอย่างคำสั่ง
Private Sub Form_Current()
Call PlaymusicOnForm
End Sub
Sub PlaymusicOnForm()
Dim LinkAddress As String
LinkAddress = "C:\Sound\SleepAway.mp3" 'กำหนดตำแหน่งไฟล์เสียง
Me.WindowsMediaPlayer.URL = LinkAddress
Me.WindowsMediaPlayer.Visible = False
End Sub

ลองสร้างโฟลเดอร์ Sound ไปไว้ที่ Drive C: แล้วเอาไฟล์เสียงใส่ลงไป แล้วไปกำหนดตำแหน่งของเสียงตรง LinkAddress = "C:\Sound\ชื่อไฟล์......mp3"  แล้วลองเปิดฟอร์มดูครับ

ส่วนวิธีการแบบอื่นๆ ลองปรึกษาอาจารย์ TTT อาจารย์สันติสุขดูครับพี่

ขออนุญาติ ตอบแทน อาจารย์นะครับ

Form_Current  คือกดไปที่คุณสมบัติฟอร์มครับ ตรงแท๊บเหตุการณ์ แล้วกดตามลูกศรที่ผมชี้ไว้เพื่อใส่ Code ครับ


ส่วน Bound Objects คือ ชื่อของกรอบวัตถุที่ท่านได้กำหนดไว้ (จากที่ดูตัวอย่าง ชื่อว่า "รูป" ครับ)
ส่วนการกำหนด Control ก็ใส่ได้ประมาณนี้ครับ

Private Sub Form_Current()
รูป.SetFocus
รูป.AutoActivate = 1
End Sub

หมายเหตุ การกำหนดชื่อ Control ผมคิดว่าควรตั้งเป็นภาษาอังกฤษดีกว่าครับ เพื่อไม่ให้มีปัญหาภายหลัง

ถ้าจะให้อัตโนมัติ ก็เอาไปใส่ที่ Event: After Update ของคอนโทรลสุดท้าย

สำหรับคำถามที่ 2 นี่คือไฟล์ตัวอย่างครับ
https://www.dropbox.com/s/1j6ov0iebl1hq98/InventoryCutting.accdb?dl=0

ต้องทำไงครับ ในตารางข้อมูลสินค้า จำนวนที่มี ไม่ยอดลด แล้วทำไงครับ ให้ทราบว่าแต่ละเดือนขายได้เท่าไร

1. การจะให้ข้อมูลลดลงตามจำนวนที่ขายออกไป ต้องใช้ Update Query โดยกำหนดเงื่ิอน Where ให้เป็นเลขรหัสสินค้า ส่วนจำนวนก็คือ จำนวนเดิม-จำนวนขาย
2. ต้องการทราบว่าแต่ละเดือนขายไปเท่าไหร่ ต้องทำคิวรีระหว่างตาราง "หัวใบเสร็จ" กับ "Table5" แล้วกำหนดเงื่อนไขด้วย Month(วันที่ขาย)

ขออนุญาตแนะนำอีกอย่าง ชื่อตาราง ชื่อฟิลด์ ชื่อคอนโทรล ไม่ควรตั้งเป็นภาษาไทยครับ จัดการยาก แถมเปลี่ยน Version แล้วปัญหาเกิดง่ายมาก