Baslik belki yanlis oldu affola ustatlarim.

Kisaca uygulamamdan bahsedeyim
Alis ve satislari takip edecegim bi uygulamam var.
Cariler tablom var
Alislar tablom var
Alislar tablomda aldigim urunleri cari adini alarak fis no ile giriyorum. Birim fuyat toplam tutar yazdiriyorum. Ve her fis no karisinda odendi.odenmedi yaziyorum.
Istedigim su
Fis no ya gore topla. Tutari toplatip
Cariler tablomdaki carinin ismi karsisindaki odenmedi ise alacak kisminda toplatmak.odendi ise borcu kisminda toplatmak. Daha sonrada kalan kisminda farki yazdirmak istiyorum.
Simdiden tesekkurler

Sn alimer,
Alan isimleri tahmin ile asagida ki kod ile form acilisi veya buton araciligi ile yapilabilir. Odeme alani Evet/Hayir tipinde
Sub Hesapla()
Dim Kyt As Recordset
Set Kyt = CurrentDb.OpenRecordset("Select * From Cariler")
Kyt.MoveFirst
Do Until Kyt.EOF
Kyt.Edit
Kyt.Fields(IIf(Kyt!Odeme = 0, "alacak", "borc")) = DSum("Nz([TUTAR],0)", "Alislar", "[fis_no]='" & Kyt!fis_no & "'")
'Kyt!Kalan=......... formulu duzenleyiniz.
Kyt.Update
Kyt.MoveNext
Loop
Kyt.Close
Set Kyt = Nothing
End Sub

Sn alimer, aşağıdaki altyordam ile istediğiniz hesapları yaptırabilirsiniz.