ERKANDA RAPOR ÖNİZLEME GÖZÜKMÜYOR
#7
(19-03-2018, 15:03)ferda23 demiş ki: 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

----------------------------
ARKADAŞIM YAPMAN GEREKENLERİ SÖYLEYEYİM
RAPORUN YÜKLENME SECENEĞİNE 

Private Sub Report_Load()
Call fSetAccessWindow(3)
End Sub

KAPANMA SECENEĞİNE 


Private Sub Report_Unload(Cancel As Integer)
Call fSetAccessWindow(0)
End Sub

BUNU YAZACAKSIN

SONRA RAPOR ÖZELLİKLERİNDEN
AÇILAN=EVET
VARSAYILAN GÖRÜNÜM=BASKI ÖNİZLEME 

BUNLARI YAPINCA GELMESİ GEREKİYOR DENEMESİNİ YAPTIMSmile



  Alıntı
Bu mesajı beğenenler:
#8
Rapor açılma olay yordamına docmd.maximize yazıp, deneyin.



  Alıntı
Bu mesajı beğenenler:
#9
(05-07-2024, 12:13)dsezgin demiş ki: Rapor açılma olay yordamına docmd.maximize yazıp, deneyin.

selamın aleyküm ustam raport arka planda görünüyor fakat ön plana getiremedim bunun için ne yapmam lazım raporu önde gösterebilmek için şimdiden teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#10
merhaba formun özelliklerinde 
açılan =evet,kalıcı =evet yap,



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk. adnnfrm 4 200 26-12-2023, 03:42
Son Mesaj: adnnfrm
  [VBA] Alt Rapor Içeren Bir Rapor Her Personel Için Ayrı Excel Sayfasına Atılabilir Mi? abkbek 12 626 29-01-2023, 13:29
Son Mesaj: abkbek
  [RAPOR] Rapor Alt Bilgisinde Rapor Alanındaki Satır Sayısını Gösterme bobili 6 406 23-02-2022, 13:37
Son Mesaj: bobili
  [RAPOR] Pdf,Xps, önizleme Ahmet51 4 578 07-02-2020, 08:23
Son Mesaj: Ahmet51
  [RAPOR] Raporları Baskı önizleme Ve Yazdırma (birden çok) sefersanli 1 547 15-11-2019, 23:42
Son Mesaj: sefersanli
  [RAPOR] rapor ekranında iki rapor kayaae 3 1.030 15-03-2019, 13:37
Son Mesaj: kayaae
  [RAPOR] Önce rapor önizleme sonra yazdırma ayarları ve sonra yazdırma yapmak. axionvb 1 1.085 26-03-2018, 15:18
Son Mesaj: dayday
  [RAPOR] access rapor bazı veriler gözükmüyor onury 1 1.080 07-11-2017, 15:50
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi