+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: ERKANDA RAPOR ÖNİZLEME GÖZÜKMÜYOR (/Konu-ERKANDA-RAPOR-ONIZLEME-GOZUKMUYOR)
ERKANDA RAPOR ÖNİZLEME GÖZÜKMÜYOR - ferda23 - 19-03-2018
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
----------------------------
Cvp: ERKANDA RAPOR ÖNİZLEME GÖZÜKMÜYOR - dsezgin - 19-03-2018
Form açılma olay yordamında ki docmd.maximize satirini, rapor açılma olay yordamına taşıyın.
Rapor gösterilme seçeneği yazdırma görünümü olarak ayarlayın.
RE: ERKANDA RAPOR ÖNİZLEME GÖZÜKMÜYOR - mustafa.sogutlu - 14-08-2023
Merhaba. Aynı hata bendede var. Dediklerinizi yapıyorum fakat şift tuşu ile açtığımda rapor açılıyor tam ekran olarak ama pencere gizliyken açtığımda OpenReport Eylemi iptal edildi hatası alıyorum. Yardımcı olabilir misiniz?
RE: ERKANDA RAPOR ÖNİZLEME GÖZÜKMÜYOR - dsezgin - 15-08-2023
(14-08-2023, 19:25)mustafa.sogutlu demiş ki: Merhaba. Aynı hata bendede var. Dediklerinizi yapıyorum fakat şift tuşu ile açtığımda rapor açılıyor tam ekran olarak ama pencere gizliyken açtığımda OpenReport Eylemi iptal edildi hatası alıyorum. Yardımcı olabilir misiniz?
Raporu acma satirini
Visual Basic
- DoCmd.OpenReport stDocName, acPreview, , , acWindowNormal
gibi degistirin
Rapor acilma olay yordamina docmd.maximize yazin
RE: ERKANDA RAPOR ÖNİZLEME GÖZÜKMÜYOR - mustafa.sogutlu - 17-08-2023
Merhaba;
Aynen dediğiniz gibi yaptım. şift tuşu ile açtığımda rapor açılıyor fakat pencere gizleme aktifken OpenReport Eylemi iptal edildi hatası veriyor yine.
rapor açılma kodu
On Error GoTo Err_sozlesmeyazdir_Click
DoCmd.OpenReport "SOZLESME_VAE_BR", acPreview, , , acWindowNormal
Exit_sozlesmeyazdir_Click:
Exit Sub
Err_sozlesmeyazdir_Click:
MsgBox Err.Description
Resume Exit_sozlesmeyazdir_Click
Rapor açıldığında kodu
docmd.maximize
RE: ERKANDA RAPOR ÖNİZLEME GÖZÜKMÜYOR - dsezgin - 17-08-2023
(17-08-2023, 09:29)mustafa.sogutlu demiş ki: Aynen dediğiniz gibi yaptım. şift tuşu ile açtığımda rapor açılıyor fakat pencere gizleme aktifken OpenReport Eyl[color=#666666]emi iptal edildi hatası veriyor yine.
Rapor içindeki kodlar ve eylem hatası olduğundan, olaylara bakmalı. Bir başka access dosyasında ayni hatayı almakta misiniz? Uygulamanızda tek rapor mu var? Diğerlerinde de ayni hata gerçekleşiyor mu?
Örnek eklenirse bakılır.
docmd.maximize
satırından sonra
odaklanmak için
DoCmd.SelectObject acReport, "Rapor Adi", True
yazılabilir.