Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Tarihe göre döviz kuru almaya koşul ekleme

mehmetb84
mehmetb84
Access Cevaplanmış Soruları
8
3196

Tarihe göre döviz kuru almaya koşul ekleme

#1
mehmetb84
Aktif Üye
mehmetb84
Bul
Aktif Üye*
Adı Soyadı: Me.... Ba....
Yaşı: 40
Konum: Denizli
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 13/12/2020,02:55
Yorumları: 519
Konuları: 136
Kayıt Tarihi: 29/12/2010
Teşekkür Puanı: 0
Merhaba arkadaşlar,
Ekte Ozan Bey'in yardımcı olduğu ilgili tarihe göre kur değerlerini merkez bankası sitesinden çeken bir veritabanı kodu mevut.
Fakat pazartesi günleri -siteyle alakalı kur ilanı dolayısıyla - kur alırken sorun oluyor.
Bu yüzden koda eğer ilgili tarihte sorun yaşanıyorsa, 3 gün öncesinin tarihi için kur almayı denemesi şartı eklemek istiyorum.
örneğin 13.06.2016 tarihli bir kuru çekmede başarısız oluyor, bu yüzden 10.06.2016 tarihi için deneme yapması gerekiyor.

Yardımlarınız için şimdiden teşekkürler.
.rar dovizkur1_sld .rar (Dosya Boyutu: 37,26 KB | İndirme Sayısı: 37)
Cevapla
#2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Merhaba,

fatura tarihide 3 gün önceye alınacak mı acaba?
Cevapla
#3
mehmetb84
Aktif Üye
mehmetb84
Bul
Aktif Üye*
Adı Soyadı: Me.... Ba....
Yaşı: 40
Konum: Denizli
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 13/12/2020,02:55
Yorumları: 519
Konuları: 136
Kayıt Tarihi: 29/12/2010
Teşekkür Puanı: 0
(19/06/2016, 20:56)ozanakkaya yazdı: Merhaba,

fatura tarihide 3 gün önceye alınacak mı acaba?

Hayır sadece kuru 3 gün öncesine göre alacak.
Cevapla
#4
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Kodu aşağıdaki ile değiştirerek deneyiniz.

Sub KurAl()

On Error GoTo hata

Dim xmldoc, DovizListesi, Dovizler As Object

Dim SorguTarihi As Date

Dim HaftaSonu, GDoviz, GDovizCins As String



Set xmldoc = CreateObject("Msxml.DOMDocument")

xmldoc.async = False



SorguTarihi = Me.tofatura_tarihi



HaftaSonu = Weekday(tofatura_tarihi, vbMonday)



    If HaftaSonu = 7 Then

       SorguTarihi = DateAdd("d", -2, SorguTarihi)

    ElseIf HaftaSonu = 6 Then

       SorguTarihi = DateAdd("d", -1, SorguTarihi)

    End If



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

Set DovizListesi = xmldoc.documentElement.selectNodes("Currency")



    GDoviz = Me.tofatura_doviztip

        If GDoviz = "€" Then

         GDovizCins = "EURO"

        ElseIf GDoviz = "$" Then

         GDovizCins = "ABD DOLARI"

        End If



        For Each Dovizler In DovizListesi

            If Eval("'" & Dovizler.SelectSingleNode("Isim").Text & "' In('" & GDovizCins & "')") Then

              Me.tofatura_kur = Replace(Dovizler.SelectSingleNode("ForexSelling").Text, ".", ",")

            End If

        Next

   

hata:



If Err.Number = "91" Then

    If MsgBox(" " & DateAdd("d", -3, Me.tofatura_tarihi) & " tarihine ait veri alınsın mı", vbYesNo) = vbYes Then

    

    SorguTarihi = DateAdd("d", -3, Me.tofatura_tarihi)

    HaftaSonu = Weekday(tofatura_tarihi, vbMonday)

    

        If HaftaSonu = 7 Then

           SorguTarihi = DateAdd("d", -2, SorguTarihi)

        ElseIf HaftaSonu = 6 Then

           SorguTarihi = DateAdd("d", -1, SorguTarihi)

        End If

    

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

    Set DovizListesi = xmldoc.documentElement.selectNodes("Currency")

    

        GDoviz = Me.tofatura_doviztip

            If GDoviz = "€" Then

             GDovizCins = "EURO"

            ElseIf GDoviz = "$" Then

             GDovizCins = "ABD DOLARI"

            End If

    

            For Each Dovizler In DovizListesi

                If Eval("'" & Dovizler.SelectSingleNode("Isim").Text & "' In('" & GDovizCins & "')") Then

                  Me.tofatura_kur = Replace(Dovizler.SelectSingleNode("ForexSelling").Text, ".", ",")

                End If

            Next

    End If

End If

Set xmldoc = Nothing

End Sub
Cevapla
#5
mehmetb84
Aktif Üye
mehmetb84
Bul
Aktif Üye*
Adı Soyadı: Me.... Ba....
Yaşı: 40
Konum: Denizli
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 13/12/2020,02:55
Yorumları: 519
Konuları: 136
Kayıt Tarihi: 29/12/2010
Teşekkür Puanı: 0
Çalıştı, çok teşekkürler.
Cevapla
#6
MehmetTuran
Üye
MehmetTuran
Bul
Üye
Adı Soyadı: Me.... Tu.... BA....
Yaşı: 55
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 16/05/2024,16:32
Yorumları: 6
Konuları: 0
Kayıt Tarihi: 02/04/2014
Teşekkür Puanı: 0
Mesleğiniz: Kimya Mühendisi
Ozan Bey

Bende hata veriyor.

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

    Set DovizListesi = xmldoc.documentElement.selectNodes("Currency")

"Object vaiable or with block vaiable notset" hatası veriyor. nasıl düzeltebilirim.
Ozan Bey

Bende hata veriyor.

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

    Set DovizListesi = xmldoc.documentElement.selectNodes("Currency")

Run Time "91"
"Object vaiable or with block vaiable notset" hatası veriyor. nasıl düzeltebilirim.
(20/06/2016, 01:08)ozanakkaya yazdı: Kodu aşağıdaki ile değiştirerek deneyiniz.

Sub KurAl()

On Error GoTo hata

Dim xmldoc, DovizListesi, Dovizler As Object

Dim SorguTarihi As Date

Dim HaftaSonu, GDoviz, GDovizCins As String



Set xmldoc = CreateObject("Msxml.DOMDocument")

xmldoc.async = False



SorguTarihi = Me.tofatura_tarihi



HaftaSonu = Weekday(tofatura_tarihi, vbMonday)



    If HaftaSonu = 7 Then

       SorguTarihi = DateAdd("d", -2, SorguTarihi)

    ElseIf HaftaSonu = 6 Then

       SorguTarihi = DateAdd("d", -1, SorguTarihi)

    End If



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

Set DovizListesi = xmldoc.documentElement.selectNodes("Currency")



    GDoviz = Me.tofatura_doviztip

        If GDoviz = "€" Then

         GDovizCins = "EURO"

        ElseIf GDoviz = "$" Then

         GDovizCins = "ABD DOLARI"

        End If



        For Each Dovizler In DovizListesi

            If Eval("'" & Dovizler.SelectSingleNode("Isim").Text & "' In('" & GDovizCins & "')") Then

              Me.tofatura_kur = Replace(Dovizler.SelectSingleNode("ForexSelling").Text, ".", ",")

            End If

        Next

   

hata:



If Err.Number = "91" Then

    If MsgBox(" " & DateAdd("d", -3, Me.tofatura_tarihi) & " tarihine ait veri alınsın mı", vbYesNo) = vbYes Then

    

    SorguTarihi = DateAdd("d", -3, Me.tofatura_tarihi)

    HaftaSonu = Weekday(tofatura_tarihi, vbMonday)

    

        If HaftaSonu = 7 Then

           SorguTarihi = DateAdd("d", -2, SorguTarihi)

        ElseIf HaftaSonu = 6 Then

           SorguTarihi = DateAdd("d", -1, SorguTarihi)

        End If

    

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

    Set DovizListesi = xmldoc.documentElement.selectNodes("Currency")

    

        GDoviz = Me.tofatura_doviztip

            If GDoviz = "€" Then

             GDovizCins = "EURO"

            ElseIf GDoviz = "$" Then

             GDovizCins = "ABD DOLARI"

            End If

    

            For Each Dovizler In DovizListesi

                If Eval("'" & Dovizler.SelectSingleNode("Isim").Text & "' In('" & GDovizCins & "')") Then

                  Me.tofatura_kur = Replace(Dovizler.SelectSingleNode("ForexSelling").Text, ".", ",")

                End If

            Next

    End If

End If

Set xmldoc = Nothing

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

    Set DovizListesi = xmldoc.documentElement.selectNodes("Currency")
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da