AccessTr.neT

sayın volkangok,

bahsettiğiniz sorunun direkt tam çözümü için,
aşağıda bağlantısı bulunan konunun 2.mesajındaki sayın mehmet demiral bey tarafından paylaşılan bilgi yazısını okuyabilirsiniz.

32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması

bilginize...iyi çalışmalar,saygılar.

Sayın atoz112 size konuyla ilgili linki vermiş ancak belki zamanınız olmaz diye kodları ben düzeltilmiş olarak yayınlayayım. O satırları şu şekilde düzeltiniz:

Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As Long
Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long

Eğer hem 32 bitte hem de 64 bitte çalışsın derseniz o zaman şöyle yapın:

#If VBA7 Then
Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As Long
Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long

#Else

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
#End If

(21/09/2015, 23:22)mehmetdemiral yazdı: [ -> ]Bitiyor bitiyor. Ufak tefek şeyler kaldı.

İstanbul'u sel aldı tamam da Hocam,
Yoksa Çarşambayı'da mı sel aldı.....

"Çarşamba'yı da mı" yazılması gerekiyordu

Çarşamba'da iş yerim  olduğunu nereden biliyorsunuz? Merak ettim de..