Kur Almak - Baskı Önizleme +- 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ığı: Kur Almak (/konu-kur-almak--87839.html) Sayfalar:
1
2
|
Kur Almak - ates2014 - 14/11/2020 Merhaba arkadaşlar, aşağıdaki kod ila kurları alıyoruz yalnız bulunduğumuz günü alıyor, tarih seçerek, istediğim tarihin kurlarını nasıl alabilirim. Dim HTTP As Object, Html As Object Dim URL As String URL = "https://yorum.altin.in/tum/dolar" Set HTTP = CreateObject("MSXML2.XMLHTTP") Set Html = CreateObject("HTMLFILE") HTTP.Open "GET", URL, False HTTP.Send If HTTP.Status = 200 Then HTML.body.innerHTML = HTTP.responseText [Dolar] = (HTML.getelementById("sabitDolar").innerText) / 10000 [Euro] = (HTML.getelementById("sabitEuro").innerText) / 10000 End If Me.Listem.Requery MsgBox "Veriler Güncellendi" Set Html = Nothing Set HTTP = Nothing RE: Kur Almak - atoykan - 15/11/2020 Örneğinizi ekleyin inceleyelim ancak kurları almakta olduğunuz sitede detaylı inceleyemedim ama kurların günlük seyri ile ilgili bir veri kaydına da rastlamadım olmayan bir veriyi çekemezsiniz. RE: Kur Almak - feraz - 15/11/2020 Tcmb den alma ile excelde arşivim vardı accesse uyarladım deneyebilirsiniz. Sizin koddaki site ile bilmiyorum. [url=][/url] RE: Kur Almak - ates2014 - 16/11/2020 Çok teşekkür ederim sayın hocalarım... RE: Kur Almak - ates2014 - 16/11/2020 Sayın feraz, örneğiniz üzerinde biraz değişiklier yaptım, yalnız hem alış hem de satışı aynı anda getiremedim, gönderdiğim örnek üzerinde bakabilirmisiniz lütfen. RE: Kur Almak - ozanakkaya - 16/11/2020 Modüldeki fonksiyonu aşağıdaki ile değiştir
Formda, butonun tıklandığında olayındaki kodları aşağıdaki ile değiştir.
|