Girilen Kayıdı Önizleme Yaptırmak

09/03/2009, 13:27

sinan55

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.
09/03/2009, 13:40

C*e*l*o*y*c*e

formda her iki konunu da arat,iki tarih arası olarak örnekler var,
09/03/2009, 14:50

sinan55

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.
09/03/2009, 14:50

Seruz

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.
09/03/2009, 18:17

sinan55

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