Access belgemde bir forma rapor önizleme_ac komutuna tıkladığımda rapor önizleme açılıyor
fakat sorunum şu ki ben acces pencersini gizlemek için aşağıdaki kodları yazdım ve bunun sonucunda benim form'um bir sonraki sefere açıldığında rapor_önizleme dediğimde raporum ekranda değilde benim gizlemiş olduğum access penceresinde açılıyor rapor sayfasının özelliklerini acılan ve kalıcı evet olarak gözüküyor bu problemi nasıl halledebiliriz yardımlarınızı bekliyorum ?
Private Sub R_ONİZLE_Click()
On Error GoTo Err_R_ONİZLE_Click
Dim stDocName As String
stDocName = "YAZDIR-GELİR"
DoCmd.OpenReport stDocName, acPreview
Exit_R_ONİZLE_Click:
Exit Sub
Err_R_ONİZLE_Click:
MsgBox Err.Description
Resume Exit_R_ONİZLE_Click
End Sub
bir modül içerisinde şu kodlar yazılı :
------------------------------------
Option Explicit
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
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then
If nCmdShow = SW_HIDE Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function
----------------------------
fakat sorunum şu ki ben acces pencersini gizlemek için aşağıdaki kodları yazdım ve bunun sonucunda benim form'um bir sonraki sefere açıldığında rapor_önizleme dediğimde raporum ekranda değilde benim gizlemiş olduğum access penceresinde açılıyor rapor sayfasının özelliklerini acılan ve kalıcı evet olarak gözüküyor bu problemi nasıl halledebiliriz yardımlarınızı bekliyorum ?
Private Sub R_ONİZLE_Click()
On Error GoTo Err_R_ONİZLE_Click
Dim stDocName As String
stDocName = "YAZDIR-GELİR"
DoCmd.OpenReport stDocName, acPreview
Exit_R_ONİZLE_Click:
Exit Sub
Err_R_ONİZLE_Click:
MsgBox Err.Description
Resume Exit_R_ONİZLE_Click
End Sub
bir modül içerisinde şu kodlar yazılı :
------------------------------------
Option Explicit
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
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then
If nCmdShow = SW_HIDE Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function
----------------------------