Ya bunu deneyiniz
Kod:
Private Sub Açılan_Kutu12_BeforeUpdate(Cancel As Integer)
Dim A, B, C As Currency
A = DLast("[FATURA TUTARI]", "FİRMALAR ALT BİLGİ", "[FİRMA NO]=Forms!Deneme![Açılan Kutu12]")
B = DLast("[DEVREDEN BAKİYE]", "FİRMALAR ALT BİLGİ", "[FİRMA NO]=Forms!Deneme![Açılan Kutu12]")
C = DLast("[ÖDEMELER]", "FİRMALAR ALT BİLGİ", "[FİRMA NO]=Forms!Deneme![Açılan Kutu12]")
Me.Metin15 = (A + B) - C
End Sub
Kod:
SELECT Last(([FATURA TUTARI]+[DEVREDEN BAKİYE])-[ÖDEMELER]) AS KALAN
FROM [FİRMALAR ALT BİLGİ]
GROUP BY [FİRMALAR ALT BİLGİ].[FİRMA NO]
HAVING ((([FİRMALAR ALT BİLGİ].[FİRMA NO])=Formlar!deneme![Açılan Kutu12]));
Kod:
=DLookUp("[KALAN]";"Sorgu1")