Merhaba,
Bu kodları yazmayacaksınız. Modüldeki kodlarda  Declare Function şeklinde kod yazılmış ise bu koda ptrsafe kodu ekleyeceksiniz.

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

kodu 

Declare ptrsafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

şeklinde olacak.

Modülün 64 bit ve 32 bitte çalışabilmesi için ise kod,

#If VBA7 Then

    Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _

  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

#Else

    Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _

  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

#End If

şeklinde düzenlemesi yapılması gerekiyor.  Siz declare içeren tüm kodları yukarıdaki örnekteki gibi düzeltmelisiniz.

Yapamazsanız, çalıştıramadığınız, hata veren uygulamayı yeni konu açarak ekleyin. Yardımcı olmaya çalışalım.

(17/01/2018, 17:06)ozanakkaya yazdı: Merhaba,
Bu kodları yazmayacaksınız. Modüldeki kodlarda  Declare Function şeklinde kod yazılmış ise bu koda ptrsafe kodu ekleyeceksiniz.

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

kodu 

Declare ptrsafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

şeklinde olacak.

Modülün 64 bit ve 32 bitte çalışabilmesi için ise kod,

#If VBA7 Then

    Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _

  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

#Else

    Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _

  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

#End If

şeklinde düzenlemesi yapılması gerekiyor.  Siz declare içeren tüm kodları yukarıdaki örnekteki gibi düzeltmelisiniz.

Yapamazsanız, çalıştıramadığınız, hata veren uygulamayı yeni konu açarak ekleyin. Yardımcı olmaya çalışalım.

Teşekkürler ozanakkaya bey,
Kodları düzenlemede sıkıntı yok bunu daha önce yapmıştım üzerinden 3-4 yıl geçti unuttum. Sorun bu kodların yeri. Kodları düzenleyeceğimiz yeri bulamadım. Bu konu hakkında yardım istiyorum.

Modülleri kontrol edin

(18/01/2018, 15:04)C*e*l*o*y*c*e yazdı: Modülleri kontrol edin

Hocam merhabalar, 

biz başka birinin 32 bit acceste yazmış olduğu hazır maaş programı kullanıyoruz. Office 2016 64 bit lisanslı ürüne geçmek istememiz nediyle program 64 bitte hata vermektedir. Yukarıda belirtilen kodları accessin veya programın hangi sütununa, dizininde düzeltme yapacağımızı belirtirseniz sorunumuz çözülecektir. İsterseniz programın linkini de sizinle paylaşabiliriz(e-posta aracılıgı ile).

madem özel,özelden linki gönder bakalım