Merhaba, düzenlemeyi sadece 1 kodda yapmışsınız. Declare içeren tüm kodlara uygulanması gerekli.

Option Compare Database



#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



Dim dwReturn As Long



Const SW_HIDE = 0

Const SW_SHOWNORMAL = 1

Const SW_SHOWMINIMIZED = 2

Const SW_SHOWMAXIMIZED = 3

#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

veya

Option Compare Database



#If VBA7 Then

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

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

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

#Else

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

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

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

#End If



Dim dwReturn As Long



Const SW_HIDE = 0

Const SW_SHOWNORMAL = 1

Const SW_SHOWMINIMIZED = 2

Const SW_SHOWMAXIMIZED = 3