+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması (/konu-32-bit-x86-yapilan-programlarin-64-bit-x64-calistirilmasi.html)
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - ozanakkaya - 17/01/2018
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.
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - ugurarslan - 18/01/2018
(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.
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - ugurarslan - 18/01/2018
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.
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - C*e*l*o*y*c*e - 18/01/2018
Modülleri kontrol edin
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - ugurarslan - 24/01/2018
(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).
Cvp: 32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması - C*e*l*o*y*c*e - 24/01/2018
madem özel,özelden linki gönder bakalım