แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - ปิ่นณรงค์

หน้า: 1 ... 21 22 23 [24]
369
ถ้าเราจะให้เล่นในฟอร์มโดยใช้ตัวเล่น ของ WindowsMediaPlayer ได้ไหมครับ แต่ตัวไฟล์เสียงจะแยกออกมาจากตัวโปรแกรม
โดยกำหนด ตำแหน่งของไฟล์เสียงครับผมลองทำแบบง่ายๆ ได้ดังนี้


ตัวอย่างคำสั่ง
โค๊ด: [Select]
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 อาจารย์สันติสุขดูครับพี่
โพสต์นี้ได้รับคำขอบคุณจาก: สิทธิพร วิเชียรโชติ

370
สามารถกำหนดได้ดังนี้คับ สมมุติว่ามีตัว combobox อยู่ชื่อว่า cmbtype และฟอร์มชื่อ Formreport
ที่ตัว Query  ตรง Column ชื่อว่า type ใส่ criteria ว่า [Forms]![Formreport]![cmbtype]
แล้ว สร้างปุ่มซักตัว ใส่คำสั่ง  Docmd.Openreport.............. เพื่อไว้เปิดรายงานครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

371
ถ้าจะแก้ไขเกี่ยวกับ Form ต้องไปตั้งค่าที่ ฟอร์มครับไม่ใช่ไปตั้งค่าที่ตัว Control  กดตามนี้ครับ

โพสต์นี้ได้รับคำขอบคุณจาก: สิทธิพร วิเชียรโชติ

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

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


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

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

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

373
สวัสดีครับ มีตัวอย่างไหม เผื่อผมแก้ให้ได้
โพสต์นี้ได้รับคำขอบคุณจาก: TaroKung Ichimura

หน้า: 1 ... 21 22 23 [24]