vbcode icine
--------------------------------------------------
sub calistir()
call islem("toolmaker")
end sub
----------------------------------------------------
sub islem(Ne as string)
dim vrt as Recordset
set vrt = application,currentdb,openrecorset("SELECT IIf(IsNull([Cost of Trail]),0,Sum([Cost of Trail])) AS Toplam FROM Trails WHERE (((Trails.Where)='" & Ne & "'))")
vrt.movefirst
msgbox vrt.fields(0) ' ***** Ekranda toplam deger gorunur *****
vrt.close
set vrt = nothing
end sub

Yukaridaki kodu eylem yerine kopyalayin
biraz incelerseniz isinize yarayacaktir.

sayın dsezgin83260 yanıtın için teşekkürler. Söylediğinizi uygulamaya çalıştım fakat olmadı. Aslında ben çapraz sorgu ile istediğimin %50 sini yapabiliyorum. Eksik olan kısım metin kutusunda bütün kayıtların görünüyor form isimli resimde olduğu gibi [attachment=12482]
Normal sorguları getirmek istediğim metin kutularında bunu yapabiliyorum. Bunuda ilgili metin kutusunun satır kaynağına (resimdeki gibi) girip sorgunun criteria hücresine "[Forms]![Trails]![PartNumberFilter]" yazıyorum.[attachment=12483]
Fakat aynı işlemi çapraz sorgu ile çağırdığım veri kaynağına yazdığımda malesef bu hatayı alıyorum.
[attachment=12481]

Bu durumun nasıl önüne geçebilirim?

Capraz sorulari alt soru olarak kullanma sansiniz yok. vb code icinde SQL calistirip degerleri formun uzerine yazdirmaniz gerekmekte.