AccessTr.neT

2003 de almadı. 2010 ve 2013 de sıkıntı yok, alıyor.

Tam olarak ihtiyacınız belirtirseniz belki importXml yöntemiyle veriler alınabilir ama 2003 için çalışır mı bilemiyorum

eklemiş olduğum dosya ile dolar ve euro kurlarını almak istiyorum.
nasıl aldığı pek önemli değil. kurları al dediğimde benim için alması yeterli.
ilginiz ve alakanız için çok teşekkürler.

kurları almak istediğinizi anladım ama veriler tabloya aktarılacak mı?
sadece girilen tarihe ait verileri göstermesi yeterli mi?
farklı bir tablo yapısı olsa sorun olur mu?

---

mesela aşağıdaki kodu 2003te dener misiniz?

If ResmiTatil(Me.txtTarih) = False Then

        MsgBox "Resmi Tatil Seçtiniz" & vbCrLf & _

        "Lütfen tarihi değiştiriniz.", vbInformation, "Berkant Öztürk - acces - spl.com"

Exit Sub

End If

VrAdrs = "http://www.tcmb.gov.tr/kurlar/today.xml"

If Me.txtTarih < Date Then

    Application.ImportXML _

                DataSource:="https://www.tcmb.gov.tr/kurlar/" & CStr(Format(txtTarih, "yyyymm") & "/" & Format(txtTarih, "ddmmyyyy")) & ".xml", _

                ImportOptions:=2

Else

    Application.ImportXML _

                DataSource:="https://www.tcmb.gov.tr/kurlar/today.xml", _

                ImportOptions:=2

End If

(10/09/2021, 22:53)berduş yazdı: [ -> ]kurları almak istediğinizi anladım ama veriler tabloya aktarılacak mı?
sadece girilen tarihe ait verileri göstermesi yeterli mi?
farklı bir tablo yapısı olsa sorun olur mu?

---

mesela aşağıdaki kodu 2003te dener misiniz?

If ResmiTatil(Me.txtTarih) = False Then

        MsgBox "Resmi Tatil Seçtiniz" & vbCrLf & _

        "Lütfen tarihi değiştiriniz.", vbInformation, "Berkant Öztürk - acces - spl.com"

Exit Sub

End If

VrAdrs = "http://www.tcmb.gov.tr/kurlar/today.xml"

If Me.txtTarih < Date Then

    Application.ImportXML _

                DataSource:="https://www.tcmb.gov.tr/kurlar/" & CStr(Format(txtTarih, "yyyymm") & "/" & Format(txtTarih, "ddmmyyyy")) & ".xml", _

                ImportOptions:=2

Else

    Application.ImportXML _

                DataSource:="https://www.tcmb.gov.tr/kurlar/today.xml", _

                ImportOptions:=2

End If

tabloya dolar ve euro kurunu aktarmak istiyorum.
2003 de hata verdi,

Aslında 2003 de destekliyormuş ama bilmiyorum uygun bir zamanda sorunu bulmaya çalışırım https://docs.microsoft.com/en-us/previou...office.11)

---

https yerine http kullanmayı denediniz mi s harfi olmadan