AccessTr.neT

Tam Versiyon: formdaki son satırlar nasıl toplanır
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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ü.
Bu şekil mi?

Kod:
= DLast("[TOPLAM BORÇ]", "FİRMALAR ALT BİLGİ", "[FİRMA NO]=Forms!Deneme![Açılan Kutu12]")
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]")
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
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.
Tamam işte yukarıdaki iki örnek (Hangisini isterseniz onu kullanın) te istediğiniz işlemi gerçekleştiriyor.
Sayfalar: 1 2