+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Form Kullanmadan Döviz Kuru Alma (/konu-access-form-kullanmadan-doviz-kuru-alma.html)
Access Form Kullanmadan Döviz Kuru Alma - kanakan52 - 02/05/2020
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.
RE: Accsess Form Kullanmadan Döviz Kuru Alma - kanakan52 - 02/05/2020
Tekrar Merhaba,
Sorum için örnek dosya ekledim,
RE: Access Form Kullanmadan Döviz Kuru Alma - berduş - 05/05/2020
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
RE: Access Form Kullanmadan Döviz Kuru Alma - kanakan52 - 05/05/2020
Berduş hocam selam,
Denemedim henüz ama, her soruma cevap verdiginiz icin, desteginiz emeginiz icinn ne kadar dua etsem azdir, sonucu ayrica buradan paylasacagim.
RE: Access Form Kullanmadan Döviz Kuru Alma - berduş - 05/05/2020
Döviz cinsi ile döviz adı arasındaki fark ne?
tablonuzda tarih alanı yok. tarih alanı olması da gerekmez mi?
RE: Access Form Kullanmadan Döviz Kuru Alma - kanakan52 - 05/05/2020
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.