Accesste yapmaya çalıştığım bir raporda filtre kriterine göre alt toplam alabilmek için seçenek grubu içeren bir filtreleme yöntemi uyguluyorum ve kullanmaya çalıştığım bir iç içe kod olan Switch ile Dsum kodum hata vermiyor olmasına rağmen kod sonuç döndürmüyor. Kullandığım yöntemde nerede hata yaptığıma dair siz değerli üstadlarımdan destek rica ederim.
Kullandığım kod aşağıdaki gibi;
Kod:
Dim fltr As String
fltr = Switch([Forms]![frm_DomKayitlariRaporu]![secenek] = 1, "TalepNo", [Forms]![frm_DomKayitlariRaporu]![secenek] = 2, "BildirenNakliyeci", [Forms]![frm_DomKayitlariRaporu]![secenek] = 3, "SorumluNakliyeci", [Forms]![frm_DomKayitlariRaporu]![secenek] = 4, "SevkiyatTipi", [Forms]![frm_DomKayitlariRaporu]![secenek] = 5, "TeslimatNo", [Forms]![frm_DomKayitlariRaporu]![secenek] = 6, "BildirimTipi", [Forms]![frm_DomKayitlariRaporu]![secenek] = 7, "Ürün Kodu")
Me.txtLspUrunGondermeliTtl.Value = DSum("[Adet]", "[srg_DomKayitlariDetayli]", [fltr] = Me.txtFiltreGizli & "And[Statu2]='LSP Ürün Göndermeli'")Not:Switch kodu içerisinde yer alan secenek adlı alan formdaki secenek grubuna verdiğim addır.
