hata giderme

[kardelen79]

Option Explicit
Public Declare Function sndPlaySound32 _
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub Sesli(ByVal WhatSound As String)
If Dir(WhatSound, vbNormal) = "" Then

WhatSound = Environ("SystemRoot") & "\Media\" & WhatSound
If InStr(1, WhatSound, ".") = 0 Then
WhatSound = WhatSound & ".wav"
End If
If Dir(WhatSound, vbNormal) = vbNullString Then
Beep
Exit Sub
End If
Else
(hata veren yer Function burası )

 

[kardelen79]

bu nu daha önce kullanıyordum ama şimdi açtığımda FUNCTİON yazan yer makroda orayı gösteriyor sanırım hata yı gösteriyor

 

[YUSUF44]

Declare Function kelimelerinin arasına Ptrsafe ekleyip deneyin:

Declare Ptrsafe Function

gibi.