
mrb arkadaslar arama yaptım fakat bulamadım acaba access'e müzik ekleyebilirmiyiz ? forma girince mesela müzik çalsın
Option Compare Database
Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
(ByVal filename As String, ByVal snd_async As Long) As Long
Function PlaySound(sWavFile As String)
' Purpose: Plays a sound.
' Argument: the full path and file name.
If apisndPlaySound(sWavFile, 1) = 0 Then
MsgBox "The Sound Did Not Play!"
End If
End Function
PlaySound=CurrentProject.Path & "\Hacel Obasını.wav"
Benim eklediğin örnekte ise aşağıdaki kodda Hacel obası olanı kendi eklediğiniz mp3 adı ile değiştiriniz.Private Sub Form_Load()
Dim Hata As Long
Dim HataMesaji As String * 128
Hata = mciSendString("open " & Chr$(34) & CurrentProject.Path & "\Hacel Obasını.mp3" & Chr$(34) & " alias YeniSes", 0, 0, 0)
mciGetErrorString Hata, HataMesaji, 128
End Sub
Private Sub Form_Load()
Dim Hata As Long
Dim HataMesaji As String * 128
Hata = mciSendString("open " & Chr$(34) & CurrentProject.Path & "\Hacel Obasını.mp3" & Chr$(34) & " alias YeniSes", 0, 0, 0)
mciGetErrorString Hata, HataMesaji, 128
End Sub