(02/10/2015, 20:16)yorum70 yazdı: Biten personel Programı, evde ve işyerimde ki  64 Bit- OFFİCE 2013 de sorunsuz çalışyor.

basOpenfile isimli modüldeki

Declare Function CLTAPI_GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _



  (pOpenfilename As CLTAPI_WINOPENFILENAME) _

As Boolean

 

Declare Function CLTAPI_GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" _

 (pOpenfilename As CLTAPI_WINOPENFILENAME) _

As Boolean

 

Declare Sub CLTAPI_ChooseColor Lib "msaccess.exe" Alias "#53" _

 (ByVal hwnd As Long, rgb As Long)

şeklindeki kodları Mod1 isimli modüldeki gibi düzelterek ptrsafe kodu eklemelisin

#If VBA7 Then



    Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

#Else

     Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

#End If

basOpenfile modülündeki ilgili kodların aşağıdaki gibi olması gerekiyor.

#If VBA7 Then



Declare PtrSafe Function CLTAPI_GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _

  (pOpenfilename As CLTAPI_WINOPENFILENAME) _

As Boolean

  

Declare PtrSafe Function CLTAPI_GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" _

  (pOpenfilename As CLTAPI_WINOPENFILENAME) _

As Boolean

  

Declare PtrSafe Sub CLTAPI_ChooseColor Lib "msaccess.exe" Alias "#53" _

  (ByVal hwnd As Long, rgb As Long)

  

#Else

Declare Function CLTAPI_GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _

  (pOpenfilename As CLTAPI_WINOPENFILENAME) _

As Boolean

  

Declare Function CLTAPI_GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" _

  (pOpenfilename As CLTAPI_WINOPENFILENAME) _

As Boolean

  

Declare Sub CLTAPI_ChooseColor Lib "msaccess.exe" Alias "#53" _

  (ByVal hwnd As Long, rgb As Long)

#End If

Bunlardan başka modüllerde farklı declare kodu var ise aynı şekilde düzeltilmesi gerekiyor.