Skip to main content

AccessTr.neT


formdaki son satırlar nasıl toplanır

formdaki son satırlar nasıl toplanır

Çözüldü #4
Ne yapmak istediğinizi anlamak zor
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

Yada bir sorgu oluş turunuz Adı Sorgu1 olsun aşağıdaki kodları sorgunuza yerleştiriniz

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]));

Daha Sonra Metin15 adlı kutunuzun kayıt kaynağınada bunu yazınız

Kod:
=DLookUp("[KALAN]";"Sorgu1")
İkiside aynı işi görür umarım anlamışımdır.Kolay gelsin
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: formdaki son satırlar nasıl toplanır - Yazar: Puletin - 04/05/2010, 19:17