הפעלת סאונד פשוטה באקסס מוציאה שגיאה כזו:
קוד:
#If Win64 Then
Public Declare PtrSafe Function sndPlaySound _
Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As LongLong) As LongLong
#Else
Public Declare Function sndPlaySound _
Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#End If
Private Sub פקודה0_Click()
Dim iRetValue As Long
iRetValue = sndPlaySound(CurrentProject.Path + "chimes.wav", &H1)
End Sub
כל עזרה תתקבל בברכה, תודה.
פורסם במקור בפורום CODE613 ב27/10/2014 22:01 (+02:00)