AccessTr.neT

zahmet olmazsa kod olarak ekleyebilir misiniz, ben yapamadım.

sadece bas_gizle modülündeki kırmızı renkli 2 fonksiyonda var onları silip aşağıdaki kodu yazıp dener misiniz?

#If VBA7 And Win64 Then    '64 bit için

Private Declare PtrSafe Function IsWindowVisible Lib "User32" (ByVal hWnd As Long) As Long

Private Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hWnd As Long, _

ByVal nCmdShow As Long) As Long

#Else                                 '32 bit için

Private Declare Function IsWindowVisible Lib "User32" (ByVal hWnd As Long) As Long

Private Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, _

ByVal nCmdShow As Long) As Long



#End If

Konu çözülmüş sanırım.