Yukarıda yazmış olduğunuz kod ile ilgili olarak; (Bu nedenle yeni konu açmadım. Yine de gerekiyorsa yeni konu açarım)
tblFaturayillar tablosuna sonradan "Yillikbedel" alanı ekledim. Aylık fatura işlendiğinde fatura tutarının "txtFaturatutari" , Faturayıillar tablosundaki Yillikbedel alanına eklenmesini istedim.
Bunun için 3. sıradaki kod satırını değiştirerek Toplamtutar değişkeni ekledim. Şu şekilde:
Dim Varmi, YilDegeri, Toplamtutar As Integer

25. Satırdaki if Varmi=0 then komutundan sonraki komutu şu şekil değiştirdim.
DoCmd.RunSQL "INSERT INTO tblFaturayillar (FirmaID, Yil,Yillikbedel) VALUES (" & rsSQL1.Fields("FirmaID") & ", '" & Me.akYil & "', '" & Me.txtFaturatutari & "')"

36. Satırdaki if Yildegeri>0 then satırından sonraki satırda Toplamtutar değerini tanımladım:
Yilliktoplam = Application.DLookup("Yillikbedel", "tblFaturayillar", "[FirmaID] = " & rsSQL1.Fields("FirmaID") & " And [Yil] = '" & Me.akYil & "'")

Yıllıktoplam ile form üzerindeki txtFaturatutarını nasıl toplatacağım?
Şu şekil yaptım

Application.DLookup("Yillikbedel", "tblFaturayillar", "[FirmaID] = " & rsSQL1.Fields("FirmaID") & " And [Yil] = '" & Me.akYil & "') = Yilliktoplam + Me.txtFaturatutari

Bütün noktalama işaretlerini denedim. Ama Syntax error hatası veriyor.
Yardımcı olursanız memnun olurum. Kolay gelsin.