formdaki son satırlar nasıl toplanır

1 2
04/05/2010, 11:39

vegeta021

merhaba üstatlar...

sadece formdaki son satırları işleme tabi tutmak istiyorum. yani fatura tutarı+devreden bakiye-ödemeler'i hesaplicam. ama sadece son satırdaki verileri işleme girmesini istiyorum. dolast fonkliyonuyla olucanı biliyorum. ama bağlantıyı kuramıyorum bi türlü.
04/05/2010, 13:43

Puletin

Bu şekil mi?

Kod:
= DLast("[TOPLAM BORÇ]", "FİRMALAR ALT BİLGİ", "[FİRMA NO]=Forms!Deneme![Açılan Kutu12]")
04/05/2010, 15:22

vegeta021

sayın puletin

evet dediğiniz şekilde.ama burda sadece toplam borç kısmını yazdırıyor.
benim yapmaya çalıştırğım FATURA TUTARI+DEVREDEN BAKİYE - ÖDEMELER

= DLast("[TOPLAM BORÇ]"; "FİRMALAR ALT BİLGİ"; "[FİRMA NO]=Forms!Deneme![Açılan Kutu12]")

formülünüzü şu şekilde değiştirdim ama sonuç sıfır çıkıyor


= DLast("[FATURA TUTARI]+[DEVREDEN BAKİYE]-[ÖDEMELER]";"FİRMALAR ALT BİLGİ";"[FİRMA NO]=Forms!Deneme![Açılan Kutu12]")
04/05/2010, 19:17

Puletin

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
04/05/2010, 21:32

vegeta021

sayın puletin

=DLast("[FATURA TUTARI]+[DEVREDEN BAKİYE]-[ÖDEMELER]";"FİRMALAR ALT BİLGİ";"[FİRMA NO]=Forms!Deneme![Açılan Kutu12]")

formülü ile yapmak istediğimi yaptım.yapmak istediğimi ekte açıklamaya çalıştım.gösterdiğiniz ilgiye teşekkür ederim.
04/05/2010, 21:55

Puletin

Tamam işte yukarıdaki iki örnek (Hangisini isterseniz onu kullanın) te istediğiniz işlemi gerçekleştiriyor.
1 2