Alıntı:hata veriyor.
Öncelikle;ifadenize yönelik olarak;
Daha ayrıntılı bilgilendirmelerde bulunmanız yerinde olur.çünkü;hangi işlem gerçekleştiği anda veya olay yordamı söz konusu olduğunda nasıl bir hata aldığınıza dair,bu hatanın oluştuğu esnayı gösteren ekran görüntüsünü dahil etmeniz faydalı olurdu yorumların ve yönlendirmelerin paylaşılması adına.
Tahmini olarak bir ihtimal,şu husustan kaynaklı olduğunu düşünüyorum,kendi adıma naçizane.
Module1 adlı modül içeriğinde yer alan ve 32 Bit / 64 Bit ayrımı olmaksızın hazırlanan uygulamanın sürümüne dair ilk etapta oluşturulduğu için dahil edilmemiş olabilir düşüncesi ile,bu modüldeki DECLARE edilmiş olan Fonksiyonların bu ayrıma göre yeniden düzenlenmesi gerekmektedir.
Sizin de yapabileceğiniz şu işlemi gerçekleştiriniz lütfen.
1) Uygulamayı,SHIFT tuşuna basılı tutup tam olarak açılana kadar bırakmaksızın bu şekilde açınız.
2) Uygulama açıldıktan sonra,ALT + F11 tuşları ile kod sayfasına geçiniz ve Modüle1 adlı modülü aktifleştiriniz.
3) Bu modüldeki tüm kodları iptal edip (temizleyip) yerine aşağıdaki kodları olduğu gibi dahil ediniz ve üzerine kaydediniz.
Option Compare Database
Option Explicit
'**********************************************************
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.
#If Win64 Then
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As LongLong, _
ByVal nCmdShow As LongLong) As LongLong
#Else
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
#End If
#If VBA7 Then
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As LongPtr, _
ByVal nCmdShow As LongPtr) As LongPtr
#Else
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
#End If
'**********************************************************
' This function is to be called as such:
' Call fSetAccessWindow (argument)
' The arguments are as follows;
' SW_HIDE - this hides the Access database window
' SW_SHOWMAXIMIZED - this maximizes the window
' SW_SHOWMINIMIZED - this minimizes the window
' SW_SHOWNORMAL - this just shows (as normal) the window
Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function
Bilginize…iyi çalışmalar,saygılar.
