Butonun tıklandığında olayındaki kodları aşağıdaki ile değiştirerek deneyiniz.
Private Sub btn_tumukontrol_Click()
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) + Abs(rs!brmarsvsklmsure)
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 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
GeciciSiraNo = rs!listeno
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
End Sub