סאונד באקסס לא פועל

[אבי]

הפעלת סאונד פשוטה באקסס מוציאה שגיאה כזו:

קוד:

#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

כל עזרה תתקבל בברכה, תודה.

111.rar

פורסם במקור בפורום CODE613 ב27/10/2014 22:01 (+02:00)

[macroshadow]

תשנה את המופעמים של Public ל Private והכל על מקומו יבוא בשלום.

פורסם במקור בפורום CODE613 ב27/10/2014 22:45 (+02:00)

[אבי]

תודה רבה.
מוזר שניסיתי את זה כבר קודם, וזה לא עבד, ועכשיו כן...

פורסם במקור בפורום CODE613 ב27/10/2014 23:33 (+02:00)