(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.