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
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.
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.
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
ç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