+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Uygulamada Kurları Alırken Hata Alıyorum (/konu-uygulamada-kurlari-alirken-hata-aliyorum.html)
Sayfalar:
1
2
RE: Uygulamada Kurları Alırken Hata Alıyorum - exmadon - 17/01/2024
Bayağı zaman geçti aradan iş yoğunluğundan cevap veremedim. uzun denemeler sonucunda şu şekilde sorunumu çözdüm;
ana sayfayı bir tabloya bağladım yüklendiğinde olayına
Kod:
Private Sub Form_Load()
' XML verisini çekme
Dim xml As Object
Set xml = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Dim url As String
Dim responseText As String
' Merkez Bankası'nın API URL'si
url = "https://www.tcmb.gov.tr/kurlar/today.xml"
xml.Open "GET", url, False
xml.send
' API'den gelen veriyi okuma
responseText = xml.responseText
' XML verisini işleme
Dim doc As Object
Set doc = CreateObject("MSXML2.DOMDocument")
doc.async = False
doc.LoadXML responseText
' Dolar ve Euro kurlarını bulma (Alış ve Satış Kurları)
Dim usdBuying As Double
Dim usdSelling As Double
Dim eurBuying As Double
Dim eurSelling As Double
usdBuying = CDbl(doc.SelectSingleNode("//Currency[@Kod='USD']/ForexBuying").Text)
usdSelling = CDbl(doc.SelectSingleNode("//Currency[@Kod='USD']/ForexSelling").Text)
eurBuying = CDbl(doc.SelectSingleNode("//Currency[@Kod='EUR']/ForexBuying").Text)
eurSelling = CDbl(doc.SelectSingleNode("//Currency[@Kod='EUR']/ForexSelling").Text)
' Metin kutularına döviz kurlarını yazdırın
Me.Dolaralis.Value = Format(usdBuying / 10000, "0.0000")
Me.Dolarsatis.Value = Format(usdSelling / 10000, "0.0000")
Me.Euroalis.Value = Format(eurBuying / 10000, "0.0000")
Me.Eurosatis.Value = Format(eurSelling / 10000, "0.0000")
End Sub