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 IsNull(rs!brmarsvdvryil) Then
GeciciDeviryil = 0
Else
GeciciDeviryil = rs!brmarsvdvryil
End If
If IsNull(rs!brmarsvsklmsure) Or rs!brmarsvsklmsure = "SÜRESİZ" Then
Gecicibrmarsvsklmsure = "0"
Else
Gecicibrmarsvsklmsure = rs!brmarsvsklmsure
End If
If Gecicibrmarsvsklmsure = "SÜRESİZ" Then
GeciciMetin35 = "0"
Else
GeciciMetin35 = Abs(GeciciDeviryil) + Abs(Gecicibrmarsvsklmsure)
End If
If rs!krmarsvsklmsure = "SÜRESİZ" Then
Gecicikrmarsvsklmsure = "0"
Else
Gecicikrmarsvsklmsure = rs!krmarsvsklmsure
End If
If Gecicibrmarsvsklmsure = "SÜRESİZ" Then
GeciciMetin37 = "0"
Else
GeciciMetin37 = Abs(GeciciDeviryil) + Abs(Gecicikrmarsvsklmsure)
End If
rs!notlar = IIf(Abs(GeciciDeviryil) > 0 And rs!brmarsvsklmsure = "SÜRESİZ", "İmha Edilemez", IIf(Format(Now(), "yyyy") >= Abs(GeciciDeviryil) And Format(Now(), "yyyy") <= Val(GeciciMetin35), "Birim Arşivinde Saklanacak", IIf(Format(Now(), "yyyy") >= Val(GeciciMetin35) And Format(Now(), "yyyy") <= Val(GeciciMetin37), "Kurum Arşivinde Saklanacak", IIf(Gecicibrmarsvsklmsure = "SÜRESİZ" And Gecicikrmarsvsklmsure = "SÜRESİZ", "İmha Edilemez", "İmha Edilecek"))))
rs.Update
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
MsgBox ("işlem tamamlandı")
hata:
MsgBox (rs!listeno & " numaralı kayıtta boş olmaması gereken veri var kontrol ediniz.")
Dim rsa As Object
Set rsa = Me.Recordset.Clone
rsa.FindFirst "[listeno] = " & str(Nz(rs!listeno, 0))
If Not rsa.EOF Then Me.Bookmark = rsa.Bookmark
Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.