Sayın hocam 
DoCmd.RunCommand acCmdSaveRecord

DoCmd.OpenForm "TÜMHESAPİŞLEMLERİ", acNormal, , , acFormEdit, acWindowNormal
Forms![TÜMHESAPİŞLEMLERİ].[Alt482].Form.Requery
Call Forms("TÜMHESAPİŞLEMLERİ").[TÜMHESAP-ALT].Form.Komut102_Click
Me.bakiye = Nz(DLookup("[bakiyem]", "Sorgu3", "Hesap_Id=" & [Hesap_Id])) - Nz(DLookup("[Taksıtbakiye]", "Sorgu2TaksıtbakiyeTÜM", "Hesap_Id=" & [Hesap_Id]))
DoCmd.Close acForm, "HESAPLAR YENI GELİR GIRISI"
End If
Me.bakiye araya ekliyerek 
Toplam Kulanı Bakiye
Hesapta Kalan Limit
ekledi,günceleştirme sorgusu yapmaya çalıştım  oda olmadı.

Me.A3 alanı sütün sayısını 3 yapıp, sütün genişliklerini 2,6;0;0 yaptım.
Mesaj 9 Ekini ve 11 Güncelledim.

Hesaplama formüllerini bilemiyorum, doğrudur ile prosedürleri çalıştırmayı işledim. Çalıştı.

Kyt.FindFirst "[Hesap_Id]=" & Me.A3.Column(2)
hatasını veriyor

Eklediğim dosyada mı?, kendi projenizde mi?

Projenizde ise, Debug yapıldıgında renkli satır da fare ile üzerine geldiğinde Null yazıyorsa, sütun ayarları yapılmalı.

Sayın Hocam Allah cc razı olsun evet oldu.