Skip to main content

AccessTr.neT


wav Sound modul 32 bit

wav Sound modul 32 bit

Çözüldü #1
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

Cevapla
#2
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
hocam denedim olmadı
Cevapla
#4
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
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

Cevapla
#6
ç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
Son Düzenleme: 06/04/2016, 09:14, Düzenleyen: macyrz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task