(10/02/2017, 09:22)ozanakkaya yazdı: Merhaba, 
@"accessdelisi" nin yazdığı düzenleme veya sizin +1 yapmanız sorunu çözmez, sonraki kayıt +1 değilse kod düzgün çalışmaz. Butonun kodlarını aşağıdaki ile değiştirerek deneyiniz.

On Error GoTo Hata



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" Or rs!brmarsvsklmsure = "BİRLESTİ" Then

                GeciciMetin35 = "0"

            Else

                GeciciMetin35 = Abs(rs!brmarsvdvryil) + Nz(Abs(rs!brmarsvsklmsure), 0)

            End If



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

                GeciciMetin37 = "0"

            Else

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

            End If

            

                If IsNull(GeciciMetin37) Then

                GeciciSiraNo = rs!listeno

                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 Abs(rs!brmarsvdvryil) > 0 And rs!brmarsvsklmsure = "BİRLESTİ" Then

              rs!notlar = "Birleştirildi."

           

            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



Me.notlar.Requery





rs.Close

Set rs = Nothing



MsgBox ("işlem tamamlandı")



Cikis:

Exit Sub



Hata:

MsgBox (GeciciSiraNo & " numaralı kayıtta boş olmaması gereken veri var kontrol ediniz.")

Dim rsa As Object

Set rsa = Me.Recordset.Clone

rsa.FindFirst "[listeno] = " & str(Nz(GeciciSiraNo, 0))

If Not rsa.EOF Then Me.Bookmark = rsa.Bookmark

Resume Cikis

şu anda tam çalıştı çok teşekkürler  sorun çözüldü..