kodu aşağıdaki gibi düzenleyip dener misiniz? sadece if Varmi=0 then bloğunu değiştirdim gerisi aynı
if Varmi = 0 Then
DoCmd.RunSQL "INSERT INTO tblHarçlıklar (SıraID,YılID, Ay, Ekgösterge, Katsayı, Yuvarlama, Ödenen, 1Ödeme, 2Ödeme, 3Ödeme, 4Ödeme, 1Borç, 2Borç, 3Borç, 4Borç) VALUES (" & rsSQL1.Fields("SıraID") & ", '" & _
YilDegeri & "','" & _
Me.akAy & "','" & _
Me.akEk & "', '" & _
Me.akKat & "', '" & _
Me.txtYuv & "', '" & _
Me.txtOdenen & "', '" & _
Me.txt1Ödeme & "', '" & _
Me.txt2Ödeme & "', '" & _
Me.txt3Ödeme & "', '" & _
Me.txt4Ödeme & "','" & _
Me.txt1Borç & "','" & _
Me.txt2Borç & "','" & _
Me.txt3Borç & "','" & _
Me.txt4Borç & "')"
End If