ADO nun Access te kullanımı.
#37
açıkçası yine tam olarak anlamadım ama aşağıdaki gibi olabilir
önce If dovizturu = "Euro Alış" Then doviztur =... satırlarını aşağıdaki gibi değiştirip
Visual Basic
  1. If dovizturu = "Euro Alış" Then doviztur = "euro_alis"
  2. If dovizturu = "Euro Efektif Alış" Then doviztur = "euro_efektif_alis"


sonrada
tpl = tpl + rst!euro_efektif_alis yerine de
Visual Basic
  1. tpl = tpl + rst(doviztur )


yazarak dener misiniz



  Alıntı
Bu mesajı beğenenler:
#38
Merhaba Arkadaşlar,
Sn halily arkadaşımıza ek olarak çözüm önerim.

Visual Basic
  1. tpl = tpl + doviztur



olarak yazmanız yeterli, Recordset içerisinde hesaplama işlemini doğru kod bloğu içerisine yerleştirirseniz sonuçta doğru olur.



  Alıntı
Bu mesajı beğenenler:
#39
(05-04-2022, 17:01)halily demiş ki: açıkçası yine tam olarak anlamadım ama aşağıdaki gibi olabilir  
önce  If dovizturu = "Euro Alış" Then doviztur =... satırlarını aşağıdaki gibi değiştirip
Visual Basic
  1. If dovizturu = "Euro Alış" Then doviztur = "euro_alis"
  2. If dovizturu = "Euro Efektif Alış" Then doviztur = "euro_efektif_alis"


sonrada
tpl = tpl + rst!euro_efektif_alis yerine de
Visual Basic
  1. tpl = tpl + rst(doviztur )


yazarak dener misiniz

Halily teşekkürler. Sorunsuz topladı.



  Alıntı
Bu mesajı beğenenler:
#40
rica ederim)
iyi çalışmalar
Not: eğer alanların recordsetteki konumları sabitse alan adı yerine sıra no da kullanılabilirdi
mesela
"euro_alis" alanı recordsette 3 sırada ise bunun anlamı 2 dir (1. alan= 0, 2. alan=1, 3. alan=2....)
"euro_efektif_alis" alanı recordsette 7. sırada ise bunun anlamı 6 dır bu durumda ifade
Visual Basic
  1. If dovizturu = "Euro Alış" Then doviztur =2
  2. If dovizturu = "Euro Efektif Alış" Then doviztur = 6



olarak da yazılabilir



  Alıntı
Bu mesajı beğenenler:
#41
(05-04-2022, 17:01)halily demiş ki: açıkçası yine tam olarak anlamadım ama aşağıdaki gibi olabilir  
önce  If dovizturu = "Euro Alış" Then doviztur =... satırlarını aşağıdaki gibi değiştirip
Visual Basic
  1. If dovizturu = "Euro Alış" Then doviztur = "euro_alis"
  2. If dovizturu = "Euro Efektif Alış" Then doviztur = "euro_efektif_alis"


sonrada
tpl = tpl + rst!euro_efektif_alis yerine de
Visual Basic
  1. tpl = tpl + rst(doviztur )


yazarak dener misiniz

Halily teşekkürler. Sorunsuz topladı.



  Alıntı
Bu mesajı beğenenler:
#42
Rica ederim
İyi çalışmalar



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Access ADO CursorType ve LockType kullanımı hakkında. direnist 4 4.016 17-10-2013, 23:13
Son Mesaj: direnist

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi