(08/02/2017, 00:52)hknct yazdı: sayın ozanakkaya, kayıtları azalttım. tabloda elle tarihleri değiştirdim ki notlar bölümündeki yazı değişiyor mu diye, değiştirmedi. aynı şekilde önceki kayıt kalıyor. benim için önemli olan yer burası çünkü burda yazan yazıya göre raporlama yapıyorum. işlem tamamlandı. diye uyarı veriyor. sonrasında da msgbox kısmında hata verdi.

Merhaba, benim düzenlediğim kodlar, önceki örneğinizdeki "bitimtarih" metin kutusunun güncelleştirme sonrasında olayına yazılı kodlara göre düzenlenmişti.

Son örneğinizde bu kod yapısını değiştirmiş, mevzuya "DEVİR" olayını eklemişsiniz.

Kod bu yüzden çalışmıyor olabilir.

Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM Tliste")





If Not (rs.EOF And rs.BOF) Then

    rs.MoveFirst

    Do Until rs.EOF = True



        rs.Edit

            If rs!brmarsvsklmsure = "SÜRESİZ" Or rs!brmarsvsklmsure = "DEVİR" Then

                GeciciMetin35 = "0"

            Else

                GeciciMetin35 = Abs(rs!brmarsvdvryil) + Abs(rs!brmarsvsklmsure)

            End If



            If rs!brmarsvsklmsure = "SÜRESİZ" Or rs!brmarsvsklmsure = "DEVİR" Then

                GeciciMetin37 = "0"

            Else

                GeciciMetin37 = Abs(rs!brmarsvdvryil) + Abs(rs!krmarsvsklmsure)

            End If

        

        

   

            If Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "SÜRESİZ" Then

                rs!notlar = "İmha Edilemez"

            ElseIf Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "DEVİR" Then

                rs!notlar = "Devir Edildi."

            ElseIf Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "SÜRESİZ" Then

                rs!notlar = "İmha Edilemez"

            ElseIf Format(Now(), "yyyy") >= Abs(rs!brmarsvdvryil) And Format(Now(), "yyyy") <= Val(GeciciMetin35) Then

                rs!notlar = "Birim Arşivinde Saklanacak"

            ElseIf Format(Now(), "yyyy") >= Val(GeciciMetin35) And Format(Now(), "yyyy") <= Val(GeciciMetin37) Then

                rs!notlar = "Kurum Arşivinde Saklanacak"

            ElseIf rs!brmarsvsklmsure = "SÜRESİZ" And rs!krmarsvsklmsure = "SÜRESİZ" Then

                rs!notlar = "İmha Edilemez"

            Else

                rs!notlar = "İmha Edilecek"

            End If

        

        

 

        rs.Update



        rs.MoveNext

    Loop

End If







rs.Close

Set rs = Nothing



MsgBox ("işlem tamamlandı")