AccessTr.neT

Farklı bir sıkıntıyı da BU UYGULAMA'DAN YAŞIYORUM.
giriş yapamıyorum. Giriş yapabilmek için içeriği etkinleştir butonuna basabilmek için kullanıcı panelini kapatıyorum. etkinleştiriyorum sonrasında uygulama öylece kalıyor.

makro güvenliğini en düşük seviyeye düşür,bunun için konular var

Link verebilirmisiniz acaba ?

Bu hata kodunu nasıl gidermeliyim sizce ? 
denedim. bu denemiş halim ve düzeltemiyorum arkadaşlar. 
UYGULAMA BU

ALDIĞIM HATA BU. nasıl düzeltmeliyim.

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



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

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

Teşekkür ediyorum. Dernek programını çalıştırdım. sayenizde. Sadece 
Autoexec 2001 hatası geliyor ama gene de çalışıyor program. fAccessWindow ("Hide", False, False) hatası. o makroya gittiğimde de aşağıda gördüğünüz siyah kalın yazıyla ilgili satıra yönlendiriyor. Teşekkür ederim. Emeğinize ve bilginize sağlık
#End If
Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function