AccessTr.neT

Office 2013 yüklü pc.de uygulama açılışında şu hata ile karşılaşıyorum..Sebebi ve çözümü konusunda yardım ve önerilerinizi bekliyor saygılar sunuyorum..

[Resim: do.php?img=5109]

Gizmele modülündeki kod aşağıdaki gibidir..

Option Compare Database

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
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

-referanslarda missing yazan referans var mı?
-debug/compile yaptığınızda hata veren satır var mı?

64 Bit hatası olabilir mi ? Declare'den sonra ptrsafe eklemeniz gerekebilir. Tabi, pc 64 bit ise..Değilse hocanın belirttiği üzere referanslarda missing yazan yer var ise çentiği kaldırın..Hiçbiri ise; hocanın 2. şıkkından devam edin.

İlginize çok tşk ederim..İşletim sistemi ve Office 2013 64 bit..sanırım bundan kaynaklıymış.
Yorum70 hocamın 64 Bit hatası olabilir mi ? Declare'den sonra ptrsafe eklemeniz gerekebilir,demesine istinaden koda uyguladım ve sorun ortadan kalktı..

Çok tşk ederim..

Konu taşınabilir.

Kodun Son Şekli Şu Şekilde;

Option Compare Database





#If VBA7 Then



Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

Dim dwReturn As Long

#Else

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

Dim dwReturn As Long

#End If



Const SW_HIDE = 0

Const SW_SHOWNORMAL = 1

Const SW_SHOWMINIMIZED = 2

Const SW_SHOWMAXIMIZED = 3



Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long

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

(10/10/2015, 20:54)mehami yazdı: [ -> ]İlginize çok tşk ederim..İşletim sistemi ve Office 2013 64 bit..sanırım bundan kaynaklıymış.
Yorum70 hocamın 64 Bit hatası olabilir mi ? Declare'den sonra ptrsafe eklemeniz gerekebilir,demesine istinaden koda uyguladım ve sorun ortadan kalktı..

Çok tşk ederim..

Konu taşınabilir.

Kodun Son Şekli Şu Şekilde;

Option Compare Database





#If VBA7 Then



Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

Dim dwReturn As Long

#Else

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

Dim dwReturn As Long

#End If



Const SW_HIDE = 0

Const SW_SHOWNORMAL = 1

Const SW_SHOWMINIMIZED = 2

Const SW_SHOWMAXIMIZED = 3



Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long

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

İşlemi nasıl yaptığınızı gösterebilirmisiniz kodu nasıl ve nereye yazıyoruz...

(13/12/2018, 09:51)KRTAERYA yazdı: [ -> ]İşlemi nasıl yaptığınızı gösterebilirmisiniz kodu nasıl ve nereye yazıyoruz...

Sorunuz ile ilgili yeni konu açınız. Konunuzda ayrıntılı bilgi veriniz.

mehami

ozanakkaya

yorum70

mehami

KRTAERYA

ozanakkaya