Formdaki yazdır butonunun tıklandığında olayındaki kodları aşağıdaki ile değiştiriniz.

Dim Varmi, OncekiTarih, RaporAdi As String



RaporAdi = Me.RaporCins



If RaporAdi = "Rpr_gunsonu_gelir" Then

    Varmi = Nz(DLookup("[ID]", "tbl_masabılgılerıaktar", "[Giristarihi]< " & Format([Tarih], "yyyymmdd")), 0)

    OncekiTarih = Dlookup ("[Giristarihi]", "tbl_masabılgılerıaktar", "[ID]= " & Varmi)

    

    If OncekiTarih < Me.Tarih Then

        MsgBox (OncekiTarih & " tarihinin raporu alınmamış")

        Me.Tarih = OncekiTarih

        Exit Sub

    Else

    

        If MsgBox("rapor yazdırılsın mı?", vbInformation + vbYesNo) = vbYes Then

            DoCmd.OpenReport RaporAdi, acNormal

            DoCmd.RunSQL "DELETE Giristarihi FROM tbl_masabılgılerıaktar WHERE (((Giristarihi)=[Formlar]![frm_gelir_gider_Rapor]![Tarih]));"

        End If

    End If



ElseIf RaporAdi = "Rpr_gunsonu_gıder" Then



    DoCmd.OpenReport RaporAdi, acNormal



End If

Ayrıca,
Form, rapor, tablo adları ile tablo, form ve raporlardaki alan adları Türkçe Karakter içermemelidir.