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
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
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.