wav Sound modul 32 bit

04/04/2016, 16:05

macyrz

arkadaşlar kullanıdığım Access programında ses modülü var bu modül sadece 32 bit Access te çalışmakta, ben bu modülü hem 32 hemde 64 bit Access te çalıştırmam için başına hangi kodu yazmam gerekiyor. şimdiden çok teşekkürler.



Kod:
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 fu11 path and file name.


                                                                

                
                        
If apisndPlaySound(sWavFile, 1) = 0 Then


MsgBox "The Sound Did Not Play!"


End If


End Function
04/04/2016, 16:12

atoz112

sayın macyrz,

bahsettiğiniz talebinize yönelik olarak;

Kod:
Option Compare Database

kod satırının altındaki fonksiyon ifadesini iptal edip yerine

Kod:
#If VBA7 Then
    Private Declare PtrSafe Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long
#Else
     Private Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long
#End If

kod satırlarını kullanmayı deneyiniz.bilginize...iyi çalışmalar.saygılar.
05/04/2016, 19:58

macyrz

hocam denedim olmadı
05/04/2016, 20:39

atoz112

sayın macyrz,

Alıntı:...denedim olmadı...

sadece yukarıdaki ifadeyi yazmak yerine lütfen daha geçerli ve net açıklamalar olması adına,daha ayrıntılı bilgilendirmeler ile geri bildirimde bulunmanız yerinde olurdu.

gerekirse,olası sorun veya hatanın ekran görüntüsünü ekleyiniz.fakat öncesinde,lütfen örnek uygulamanızı içeriğinde farazi gerçek dışı veriler ve sonuçları görmek adına da birkaç kayıt olacak şekilde ekleyiniz.

bilginize...iyi çalışmalar,saygılar.
05/04/2016, 21:08

ozanakkaya

Alttaki kodu modüle kaydedince 32 bit ve 64 bitte sorunsuz olarak çalıştı.

Option Compare Database



#If VBA7 Then

Declare PtrSafe Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
    (ByVal filename As String, ByVal snd_async As Long) As Long

#Else

Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
    (ByVal filename As String, ByVal snd_async As Long) As Long

#End If
  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

06/04/2016, 09:13

macyrz

çok teşekkür ederim atoz112 ve ozankaya, modül hem 32 bitte hem 64 bitte çalıştı. Bu modül hakkında kısa bir açıklama  wav formatındaki sesleri accesste çalıştırabilirsiniz. örnek verecek olursak modülü Access te kayıt ettikten sonra formun açılışı ses olayına aşağıdaki kodu yapıştırırsak form açılışında load.wav sesi çalar. 

 
Private Sub Form_Open(Cancel As Integer)

PlaySound ("C:\load.wav")
End Sub