15/09/2010, 12:06
oktartoygar
(07/07/2010, 18:20)Taruz yazdı: Merhaba..
Dsum ile oluşturmanız gereken yapı bu olmalı..:
Dim x As String
x = Dsum ("[ADET]", "URUNHAREKETLERI", "[URUNADI] = '" & [Metin0] & "'" _
& " AND[GIRIS-CIKIS]='GIRIS' and [BÖLÜM]='DEPO'")
Me.Metin8 = x
Hatanız...: Eksik kriter ve metin kutusunu urunadı olarak tanımlamanızdan kaynaklı.. Kutunun adı metin0 ;)
Diğer uygulamak istediğiniz yöntem de Dlookup fonksiyonu ile olur.. Yukarıdaki yapının yerine bu kullanılabilir..:
Me.Metin8 = Dlookup ("toplaadet", "sorgu1")
İlk yöntem daha efektiftir..
sayın taruz hocam;
dsum işlevini exceldeki etopla fonksiyonu gibi satırlara göre toplamak için uyarlıyabiliyor muyuz?Forumdaki birçok örneğe baktım anladığım kadarıyla Dsum sutunlar için kullanılıyor.