AccessTr.neT

mrb arkadaslar arama yaptım fakat bulamadım acaba access'e müzik ekleyebilirmiyiz ? forma girince mesela müzik çalsın

Sn:burak2444
Aşağıdaki örneği inceleyiniz.

WAV dosyaları için function

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

Kullanımı :
PlaySound "çalınacakdosyanınyoluveadı"

Kolay gelsin

sn. okileturc abi verdiğiniz kodlardan tam olarak nereye giricem dosya yolunu

---

ve sn. ogulcan92 abi verdiğiniz örnekteki kodları kendi formumda kullanmak istiyorum fakat değiştrmem ereken yerler neresiii çözemedim

Sn:burak2444
Sn:okileturc hocanın vermiş olduğu kodu formun load olayına yada bir butonun cilck olaynına aşağıdaki şekilde yazınız ve dosyanzın yanına mizik dosyasını ekleyiniz.

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

yok abi ya olmuoyr :S

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

bu kodu form yüklendiğinde kısmına yapıstrdm çalıstırınca Chr$ kısmında hata gösteriyor