Dostlar merhabalar;

Sayın simendifer tarafından aşağıdaki link 9.iletiye eklenen dosyayı, Windows 8 64 bit ve Office 2013 çalıştırabilen var mı?

https://accesstr.net/konu-apartman-yonet...t=Apartman

Resimdeki hata iletisini alıyorum. Sorunun çözümü konusunda değerli düşünce ve görüşlerinizi öğrenmek istiyorum.

Yardım ve katkılarınız için önceden teşekkürler.

windows8 ve ofis 2013 kullanmıyorum ama resimden gördüğüm kadarıyla

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

kodunun aşağıdaki gibi değiştirilmesi gerekiyor.

#If VBA7 Then

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

#Else

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

#End If

bu şekilde düzeltirsen 32 bit ve 64 bitte sorunsuz çalışır.

Sayın Ozan Akkaya,

İnceliğiniz ve yoğunluğunuz arasında verdiğiniz yanıt için teşekkürler üstadım.

Kodlarınızı yukarıdaki dosyaya uygulamaya çalıştım. Başaramadım.

Sevgi ve saygılar.

sadece

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

kodunu kullanınca hata veriyor mu ?

Evet...

Sayın Ozan Akkaya,

Günaydın.

Dosyanın Vba penceresindeki kodları yukarıdaki gibi değiştirdikten sonra "Kaydet" e tıklayınca, nasıl oluyor bilmiyorum. Penceredeki kodlar tekrar değişiklik öncesi kodlara dönüşüyor.

Ayrıca, dosyayı açmak istediğimde de "Could not load an object because it is not available on this machine." ileti penceresi çıkıyor.

Sizlerin değerli zamanınızı almak istemiyorum. Windows 8 64 bit ile uyumsuz olan bir durum olmalı!

İlginiz için teşekkürler. Konuyu şimdilik kaldırabiliriz üstadım...

Sevgi ve saygılar.