Değerli üstadlar merhaba,

Forumda bir çok konu inceledim bir çok örnek var ancak kendime uyarlayamadım,

TCMB kurlarını form kullanmadan sadece accsess tablosuna alabilir miyiz ? Ve en önemlisi bu işlemi excelde Userform üzerine tarih için 1 adet Textbox ekleyip sorgulama yapmak için bir buton yardımıyla yaptırabilir miyiz ?

Cevaplarınız için şimdiden teşekkür ederim.

Tekrar Merhaba,

Sorum için örnek dosya ekledim,

userforma TxtTrh adlı metin kutusu ekleyip butona aşağıdaki kodu ekleyerek dener misiniz?

SorguTarihi = Me.TxtTrh



Set xmldoc = CreateObject("Msxml.DOMDocument")

    Dim DovizListesi, Dovizler As Object

    xmldoc.async = False





If SorguTarihi <> Date Then



xmldoc.Load "http://www.tcmb.gov.tr/kurlar/" & CStr(Format(SorguTarihi, "yyyymm") & "/" & Format(SorguTarihi, "ddmmyyyy")) & ".xml"

    

Else



xmldoc.Load "http://www.tcmb.gov.tr/kurlar/today.xml"

            

End If



Set DovizListesi = xmldoc.DocumentElement.SelectNodes("Currency")

On Error Resume Next



Set baglan = CreateObject("adodb.connection")

baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Döviz.accdb"



For Each Dovizler In DovizListesi



SqlEkle = " INSERT INTO [Döviz] (DövizAdi, [DövizAlis], [DövizSatis],[EfektifAlis],[EfektifSatis]) " & _

          " VALUES ('" & Dovizler.SelectSingleNode("Isim").Text & "',CCur('" & _

            Replace(Dovizler.SelectSingleNode("ForexBuying").Text, ".", ",") & "'), CCur('" & _

            Replace(Dovizler.SelectSingleNode("ForexSelling").Text, ".", ",") & "'),CCur('" & _

            Replace(Dovizler.SelectSingleNode("BanknoteBuying").Text, ".", ",") & "'),CCur('" & _

            Replace(Dovizler.SelectSingleNode("BanknoteSelling").Text, ".", ",") & "'))"

'Debug.Print SqlEkle

baglan.Execute SqlEkle

        

        If Dovizler.SelectSingleNode("Isim").Text = "PAKİSTAN RUPİSİ" Then

        Exit For

        End If

Next

Set xmldoc = Nothing

Berduş hocam selam, 

Denemedim henüz ama, her soruma cevap verdiginiz icin, desteginiz emeginiz icinn ne kadar dua etsem azdir, sonucu ayrica buradan paylasacagim.

Döviz cinsi ile döviz adı arasındaki fark ne?
tablonuzda tarih alanı yok. tarih alanı olması da gerekmez mi?

Hocam tarih alani lazim atlamisim, doviz cinsi "usd" doviz adi "abd dolari" gibi birsey düşünmüştüm ama, usd,eur,gbp gibi kisa isimleri de yeterli.