(10/03/2020, 19:44)berduş yazdı: [ -> ]ben sadece yazdığınız kodu düzelttim, Dlookup a kriter olarak onu da ekleyebilirsiniz.
Şu an onunla uğraşıyorum teşekkür ederim. fakat bir sorum olacak bu kodu Denetim kaynağı yerine
Vba da yazsak daha hızlı yada daha iyimi olur forumda bazı konularda insanlar özelllikle denetime değilde ile
Vba kısmına yazılmasını tercih ettiklerini söylemişler.
i
birçok uzmanın aynı konuda bir birine zıt fikirleri savunduğunu düşünürsek- ki burada bu işin eğitimini almış gerçek uzmanlardan bahsediyorum- benim gibi eğitim almamış birinin fikir beyan etmesi anlamsız ama kanaatimce orta ve küçük boy bir uygulama için hız farkının belirgin olacağını sanmıyorum bu daha çok kişinin kendi tercihiyle ilgili. kolayınıza hangisi geliyorsa hangisini yapabiliyorsanız onu kullanın. Ama öğrenmek istiyorsanız bulabildiğiniz her yöntemi defalarca kullanın ki nerede hangisini kullanmak daha uygun öğrenebilesiniz.
iyi çalışmalar
Kodları
Vba da yazmak bana fiziki olarak daha kolay geliyor. O yüzden
Vba da yazmaya çalıştım. Koddaki noktalı virgülleri virgül ile değiştirdim ölçütü uyguladım fakat hata alıyorum. Hatalarım nelerdir. Teşekkürler.
Private Sub HesapTuru_CBO_AfterUpdate()
Me.TF_HesapHareketleriGiderAF.Requery
Me.TF_HesapHareketleriGelirAF.Requery
Me.HesapBakiyesi_TXT = (DSum("[GirenTutar]","T_HesapHareketleri","Tarih Between " & CLng(DateSerial(Year([Tarih_TXT]);1;1)) & " And " & CLng([Tarih_TXT])-1),"[HesapTuru]=" & [Formlar]![F_IsletmeDefteri]![HesapTuru_CBO] & "-DSum("[CikanTutar]","T_HesapHareketleri","Tarih Between " & CLng(DateSerial(Year([Tarih_TXT]);1;1)) & " And " & CLng([Tarih_TXT])-1),"[HesapTuru]=" & [Formlar]![F_IsletmeDefteri]![HesapTuru_CBO] & "))
1 - Hâlâ ; duruyor
2 -
Dlookup kodunda kriterler arasına virgül koyulmaz normal sorgu mantığı geçerlidir
3 - neden - den önce tırnak işareti var
4 - matematiksel işlemlerde & kullanilmaz
(10/03/2020, 21:36)berduş yazdı: [ -> ]1 - Hâlâ ; duruyor
2 - Dlookup kodunda kriterler arasına virgül koyulmaz normal sorgu mantığı geçerlidir
3 - neden - den önce tırnak işareti var
4 - matematiksel işlemlerde & kullanilmaz
1- Hâlâ ; duruyor ifadenizdeki işaret bu nerede hala arıyorum kodda benim gözlerle bu işaretleri görmek için ekranın içine giriyorum nerdeyse Kodu kopyalıyorum Text Editörüne yapıştırp fontu büyütüp kodu öyle görebiliyorum. Noktalama işaretlerinde herşeyi birbirine karıştırıyorum.
2-
https://accesstr.net/konu-dsum-ve-sum-islevi.html konusunda Vba örneklerinde ; yerine , kullanılır diye yazıyor. Buna istinaden virgüle çevirmiştim. Kafam iyice karıştı.
4-Bu kodun tamamı matematiksel işlem diye algılıyorum & işaretlerini sildim.
Me.HesapBakiyesi_TXT = (DSum("[GirenTutar]";"T_HesapHareketleri";"Tarih Between " CLng(DateSerial(Year([Tarih_TXT]);1;1)) " And " CLng([Tarih_TXT])-1);"[HesapTuru]=" [Formlar]![F_IsletmeDefteri]![HesapTuru_CBO] - Dsum ("[CikanTutar]";"T_HesapHareketleri";"Tarih Between " CLng(DateSerial(Year([Tarih_TXT]);1;1)) " And " CLng([Tarih_TXT])-1);"[HesapTuru]=" [Formlar]![F_IsletmeDefteri]![HesapTuru_CBO] "))