Access 2016 64 Bit Yüklü Hiç Bir Uygulamayı Açamıyorum.

Access 2016 64 Bit Yüklü Hiç Bir Uygulamayı Açamıyorum. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access 2016 64 Bit Yüklü Hiç Bir Uygulamayı Açamıyorum. (/konu-access-2016-64-bit-yuklu-hic-bir-uygulamayi-acamiyorum.html)

Sayfalar: 1 2 3

Cvp: Access 2016 64 Bit Yüklü Hiç Bir Uygulamayı Açamıyorum. Yardım edebilecek varmı ? - REKOR MÜHENDİSLİK - 27/12/2017

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.

[Resim: hQC9jE.jpg]

Cvp: Access 2016 64 Bit Yüklü Hiç Bir Uygulamayı Açamıyorum. Yardım edebilecek varmı ? - C*e*l*o*y*c*e - 27/12/2017

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

Cvp: Access 2016 64 Bit Yüklü Hiç Bir Uygulamayı Açamıyorum. Yardım edebilecek varmı ? - REKOR MÜHENDİSLİK - 28/12/2017

Link verebilirmisiniz acaba ?

Cvp: Access 2016 64 Bit Yüklü Hiç Bir Uygulamayı Açamıyorum. Yardım edebilecek varmı ? - REKOR MÜHENDİSLİK - 28/12/2017

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.
[Resim: Ce8bVr.jpg]

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

Cvp: Access 2016 64 Bit Yüklü Hiç Bir Uygulamayı Açamıyorum. - ozanakkaya - 30/12/2017

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

Cvp: Access 2016 64 Bit Yüklü Hiç Bir Uygulamayı Açamıyorum. - REKOR MÜHENDİSLİK - 30/12/2017

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