Skip to main content

AccessTr.neT


Access Form Kullanmadan Döviz Kuru Alma

Access Form Kullanmadan Döviz Kuru Alma

Çözüldü #1
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.
Cevapla
#2
Tekrar Merhaba,

Sorum için örnek dosya ekledim,
.rar Desktop.rar (Dosya Boyutu: 31,39 KB | İndirme Sayısı: 8)
Cevapla
#3
userforma TxtTrh adlı metin kutusu ekleyip butona aşağıdaki kodu ekleyerek dener misiniz?

Visual Basic Code
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

Cevapla
#4
Berduş hocam selam, 

Denemedim henüz ama, her soruma cevap verdiginiz icin, desteginiz emeginiz icinn ne kadar dua etsem azdir, sonucu ayrica buradan paylasacagim.
Cevapla
#5
Döviz cinsi ile döviz adı arasındaki fark ne?
tablonuzda tarih alanı yok. tarih alanı olması da gerekmez mi?
Cevapla
#6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da