64 bit hatası

[ozuberk]

Merhaba aşağıdaki kodu 32 bit Excel’de çalışıyor ama 64 bit olan Excel’de hata alıyorum. Kodları nasıl 64 bit olarak düzenleyebilirim.

Public db As DAO.Database
Public rs As DAO.Recordset
Public sql As String
Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

 

[Haluk]

API kısmını şöyle düzeltin ...

#If Win64 Then
    Public Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
                                           (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#Else
    Public Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
                                           (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#End If

.

 

[ozuberk]

Merhaba söylemiş olduğunuz gibi kodu değiştirdiğimde aşağıdaki kodlarda hata alıyorum. Excel 2013

Set db = OpenDatabase(ActiveWorkbook.FullName, False, False, "Excel 8.0")
Set rs = db.OpenRecordset(sql)

 

[ozuberk]

Merhaba söylemiş olduğunuz gibi kodu değiştirdiğimde aşağıdaki kodlarda hata alıyorum. Excel 2013

Set db = OpenDatabase(ActiveWorkbook.FullName, False, False, "Excel 8.0")
Set rs = db.OpenRecordset(sql)

 

[Haluk]

Hata mesajı nedir?

Değişkenlerin deklare edildiği bölümü eklemişmiydiniz?

.

 

[ozuberk]

DAO 3.6 64 bit Office'te çalışmadığından hata alıyorum sanırım. İlginiz için teşekkür ederim, kolay gelsin.