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.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
#1
VERİTABANI.rar
(Dosya Boyutu: 128,02 KB | İndirme Sayısı: 43)
