sanırım sen çözmüşsün lakin ben yinede konuyu açıp cevap vereyim dedim
bu senin sorunun tam çözümü

Private Sub Komut1_Click()
On Error GoTo Err_Komut1_Click
Dim kontrol As Integer
Dim kontrol1 As Integer
kontrol1 = 1
For kontrol = 1 To 4
If IsNull(Me("I" & kontrol).Value) Then
MsgBox Me("I" & kontrol) & "şimdi gideceğiniz alanı boş geçemezseniz", , "UYARI"
Me("I" & kontrol).SetFocus
Exit Sub
End If
Next kontrol
ekle
Exit_Komut1_Click:
Exit Sub

Err_Komut1_Click:
MsgBox Err.Description
Resume Exit_Komut1_Click
End Sub

Function ekle()
Dim msg, Style, Title, Help, Ctxt, Response, MyString
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "UYARI"
Help = "DEMO.HLP"
Ctxt = 1000
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim strsql As String
strsql = "SELECT * From Oturanlar "
strsql = strsql & "WHERE tür Like '" & Me.I1.Column(0) & "' "
rs.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs1.Open "YonetimGelirleri", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF = True Then
MsgBox "seçtiğiniz türe ait oturanlar tablsounda kayıt yok başka bir tür seçin."
Else
msg = "Seçtiğiniz" & vbCrLf & Me.I1.Column(0) & " Adlı Türden" & vbCrLf & rs.RecordCount & " " & "Kişiye ekleme yapacaksınız kabul ediyormusunuz"
Response = MsgBox(msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
If rs.EOF <> True Then
Do
rs1.AddNew
rs1("kapino") = rs("OKNo")
rs1("sonodemetarihi") = Me.I3
rs1("odeyecegi") = Me.I2
rs1("IslemTur") = Me.I4.Column(0)
rs1.Update
rs.MoveNext
Loop Until rs.EOF
End If
Set rs1 = Nothing
Set rs = Nothing
Set conn = Nothing
End If
End If
If Response = vbNo Then '
Exit Function
End If
End Function

bu işlemi tersine çevirirsen yönetimgelirleri tablosundaki verileri başka bir tabloya aktararak bu tabloyu siler amma neden böyle bir şeye ihtiyaç duyuyorsun anlamadım bu gelirler yıllık toplanmıyormu zaten bu tabloya son ödeme tarihi diye bir alnda yokmu o alan sana gerekli tüm süzmeleri sağlar yani bunu sil onu al oraya götür gerek yok zaten kişilerin borçlarınıda id sine göre alıyorsun buna birde year(sonödemetarihi) diye bir alan eklersin
oda sana yıllarına göre kayıtları ayırmana yarar