32-64 Bit Sorunu

kolay gelsin arkadaşlar,
eklemiş olduğum Access dosyasını 32 bit bilgisayarda kullanıyorum. sorun yok. 64 bit bilgisayarda açınca hata veriyor.
declare sonrasına ptrsafe ekledim. bu sefer 64 bitte kullanıyorum, 32 bit bilgisayarda sorun yaratıyor.

örnek dosyayı ekledim.
yardımcı olabilirmisiniz?


iyi çalışmalar dilerim.

temel mantık k tanımlamaları 2 defa yapmaktır
örnek kod aşağıdadır kendi kodlarınıza göre düzenleyebilirsiniz?

#If VBA7 And Win64 Then '64 bit için 

    Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

    Private Declare PtrSafe Function diğer  64.........

    '  64.........

#Else '32 bit için

    Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

    'diğer 32'likler......

    '........

#End If

teşekkür ederim, çok sağolasın.

rica ederim
iyi çalışmalar

(07/09/2021, 10:42)berduş yazdı: rica ederim
iyi çalışmalar

merhaba
bahsettiğiniz şekilde yaptım, hata veriyor (kırmızı yaptı)

kırmızı yapması sorun değil 32 bitlikte de diğer yeri kırmızı yapar
hatasız çalışıyor mu o önemli, çalışmasında sıkıntı var mı?