Forma "btn_tumukontrol" adında buton ekledim, tıklandığında olayında
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 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
Exit Sub
If Gecicibrmarsvsklmsure = "SÜRESİZ" Then
GeciciMetin35 = "0"
Else
GeciciMetin35 = Abs(GeciciDeviryil) + Abs(Gecicibrmarsvsklmsure)
End If
If Gecicibrmarsvsklmsure = "SÜRESİZ" Then
GeciciMetin37 = "0"
Else
GeciciMetin37 = Abs(GeciciDeviryil) + Abs(rs!krmarsvsklmsure)
End If
rs!notlar = IIf(Abs(GeciciDeviryil) > 0 And Gecicibrmarsvsklmsure = "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 rs!krmarsvsklmsure = "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.")
End Sub
Kodu yazılı,
Formdaki Metin35 ve Metin37 için geçici tanımlama yaptım,
Ancak,
brmarsvsklmsure, brmarsvdvryil alanlarının dolu olması gerektiği, bazı kayıtlarda boş olduğundan dolayı üstteki kodda bu alanlar boş ise 0 olarak sayması için kod eklendi.
Buton tıklandıktan sonra, Karışık 5-10 kaydı inceleyin, kodun doğru çalışıp çalışmadığını test edin.