(09/02/2017, 23:02)accessdelisi yazdı: GeciciSiraNo = rs!listeno + 1

(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

Kodu Seç

Kodu Kopyala