Girilen Kayıdı Önizleme Yaptırmak

Girilen Kayıdı Önizleme Yaptırmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Girilen Kayıdı Önizleme Yaptırmak (/konu-girilen-kayidi-onizleme-yaptirmak.html)

Girilen Kayıdı Önizleme Yaptırmak - sinan55 - 09/03/2009

Merhaba arkadaşlar,
Yaptığım projede bir formda girdiğim kaydı önizleme yaptırmak veya yazıcıdan çıktı almak istediğimde bir önceki formu gösteriyor. önizlemeye bastığımda o an girdiğim son kayıdı nasıl gösterebilirim. birde iki tarih arasında sorgulattığımda tarih girmeden sorgulattığımda veya tarih girerek sorgulattığımda bana önizleme butonuna bastığımda o an listeyi vermesini istiyorum. bunları nasıl yapabilirim. örneği gönderiyorum. ilk giriş formu frmekstraisler.

Şimdiden yardımlarınız ve ilginiz için teşekkür ederim.

Cvp: Girilen Kayıdı Önizleme Yaptırmak - C*e*l*o*y*c*e - 09/03/2009

formda her iki konunu da arat,iki tarih arası olarak örnekler var,

Cvp: Girilen Kayıdı Önizleme Yaptırmak - sinan55 - 09/03/2009

Sayın C*E*L*O*Y*C*E

formdaki diğer örnekleri inceledim. fakat örneklerde direk iki tarih girerek rapor da listeletiyor. ben zaten iki tarih arasında listeliyorum. sadece o formda olan bilgileri listelemesini istiyorum. bir de bilgi giriş formunda bilgileri girdikten sonra yazdır dediğimde o anda girdiğim bilgilerin çıktısını almasını istiyorum. yani benim projemde iki tane rapor var . birisi form çıktısı diğeri liste çıktısı. örneği göndermiştim. ilginiz için teşekkür ederim.

Cvp: Girilen Kayıdı Önizleme Yaptırmak - Seruz - 09/03/2009

Rapor bir önceki kaydı değil, aslında tüm kayıtları gösteriyor çünkü herhangi bir kriter belirtmiyorsunuz.
Son kayıt değil, üstünde olduğunuz kaydı
raporlamak için kodlarınızı kriter ekleyerek şu şekilde değiştirmelisiniz.

Kod:

Private Sub Komut40_Click()

On Error Resume Next

    DoCmd.OpenReport "RprEkstraisler", acPreview, , "FORMNO='" & Me.FORMNO & "'"

End Sub

Private Sub Komut41_Click()

On Error Resume Next

    DoCmd.OpenReport "RprEkstraisler", acNormal, , "FORMNO='" & Me.FORMNO & "'"

End Sub

Tarih olayına gelince;
Siz aslında tarih kriterlerini doğru şekilde koymuşsunuz ama zannediyorum gene şu animasyon uğruna
Sorgula dedikten sonra "frmikitarih2" adlı formu kapatıyorsunuz.

Kod:

Private Sub sorgula_Click()

On Error GoTo Err_Komut5_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "frmEkstraislerlistele"

       DoCmd.OpenForm stDocName, , , stLinkCriteria

    DoCmd.Close acForm, "frmikitarih2"

    DoCmd.Close acForm, "frmEkstraisler"

Exit_Komut5_Click:

    Exit Sub

Err_Komut5_Click:

    MsgBox Err.Description

    Resume Exit_Komut5_Click

 

End Sub

Form kapatıldığı için de girilmiş olan tarih alanları da yok oluyor ve Access raporda değerleri bulamıyor doğal olarak.
Formu kapatmazsanız sorun kalmaz.

Kullandığınız animasyon ilk başlarda çok güzel görünebilir ama çok göz yorduğunu ve bir müddet sonra sıkıcı olacağını belirtmeden geçemeyeceğim.
En fazla 10-15 dk. uğraştım formlarınızla ama şu animasyonunuz gözlerimi rahatsız etti.
Fikrimi sorarsanız eğer; şu animasyon işinden vazgeçin.

Cvp: Girilen Kayıdı Önizleme Yaptırmak - sinan55 - 09/03/2009

Sayın seruz
ilginize ve emeği geçen herkese teşekkür ederim.
sorun çözülmüştür