(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ış.İşlemi nasıl yaptığınızı gösterebilirmisiniz kodu nasıl ve nereye yazıyoruz...
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
Compile error in hidden module hatası çözümü nedir?
Bu Konudaki Yorumlar |
Compile error in hidden module hatası çözümü nedir? - Yazar: mehami - 10/10/2015, 19:10
Cvp: Compile error in hidden module hatası çözümü nedir? - Yazar: ozanakkaya - 10/10/2015, 20:38
Cvp: Compile error in hidden module hatası çözümü nedir? - Yazar: yorum70 - 10/10/2015, 20:43
Cvp: Compile error in hidden module hatası çözümü nedir? - Yazar: mehami - 10/10/2015, 20:54
Cvp: Compile error in hidden module hatası çözümü nedir? - Yazar: KRTAERYA - 13/12/2018, 09:51
Cvp: Compile error in hidden module hatası çözümü nedir? - Yazar: ozanakkaya - 13/12/2018, 10:20
|
Konuyu Okuyanlar: 1 Ziyaretçi