kurun efektif alış ve satışı
Tarih
25/07/2011 11:57
Konu Sahibi
akd
Yorumlar
6
Okunma
2165
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



akd
Aktif Üye
Kullanici Avatari
Aktif Üye
272
04/11/2008
35
Gaziantep
Ofis 2003
04/09/2016,23:08
Çözüldü 
Merhaba arkadaşlar,
aşağıdaki kur alış koduna dolar effektif alış ve effektif satışı nasıl ekleyebilirim.?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub GünlükKurlar()
Dim strPathB As String
Dim IEb As Object
Dim tempB As Variant

strPathB = "http://www.tcmb.gov.tr/kurlar/today.html"

 Set IEb = CreateObject("InternetExplorer.Application")
 With IEb
 .Navigate strPathB
 Do Until IEb.ReadyState = 4: DoEvents: Loop
 
 temp = IEb.Document.All.Item.innerHTML
 End With
 Me.txtGünlükDolarAlış = Val(Replace(Mid(temp, InStr(temp, "USD") + 42, 6), ",", ""))
 Me.txtGünlükDolarSatış = Val(Replace(Mid(temp, InStr(temp, "USD") + 55, 6), ",", ""))
 Me.txtGünlükEuroAlış = Val(Replace(Mid(temp, InStr(temp, "EUR") + 42, 6), ",", ""))
 Me.txtGünlükEuroSatış = Val(Replace(Mid(temp, InStr(temp, "EUR") + 55, 6), ",", ""))
 Set IEb = Nothing
 Me.Liste6.Requery
 DoCmd.Requery

End Sub

Cevapla


boolean_
Uzman
Kullanici Avatari
Uzman
E.... E....
528
4
31/10/2008
184
İstanbul
Ofis 2010
01/12/2016,17:21
Çözüldü 
Bu şekilde deneyin.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub GünlükKurlar()
Dim strPathB As String
Dim IEb As Object
Dim tempB As Variant

strPathB = "http://www.tcmb.gov.tr/kurlar/today.html"

 Set IEb = CreateObject("InternetExplorer.Application")
 With IEb
 .Navigate strPathB
 Do Until IEb.ReadyState = 4: DoEvents: Loop
 
 temp = IEb.Document.All.Item.innerHTML
 End With
 Me.txtGünlükDolarAlış = Val(Replace(Mid(temp, InStr(temp, "USD") + 42, 6), ",", ""))
 Me.txtGünlükDolarSatış = Val(Replace(Mid(temp, InStr(temp, "USD") + 55, 6), ",", ""))
 Me.txtGünlükEuroAlış = Val(Replace(Mid(temp, InStr(temp, "EUR") + 42, 6), ",", ""))
 Me.txtGünlükEuroSatış = Val(Replace(Mid(temp, InStr(temp, "EUR") + 55, 6), ",", ""))
Me.txtGünlükDolarEAlış = Val(Replace(Mid(temp, InStr(temp, "USD") + 71, 6), ",", ""))
Me.txtGünlükDolarESatış = Val(Replace(Mid(temp, InStr(temp, "USD") + 84, 6), ",", ""))
Me.txtGünlükEuroEAlış = Val(Replace(Mid(temp, InStr(temp, "EUR") + 71, 6), ",", ""))
Me.txtGünlükEurorESatış = Val(Replace(Mid(temp, InStr(temp, "EUR") + 84, 6), ",", ""))
Set IEb = Nothing
 Me.Liste6.Requery
 DoCmd.Requery

End Sub


Cevapla


akd
Aktif Üye
Kullanici Avatari
Aktif Üye
272
04/11/2008
35
Gaziantep
Ofis 2003
04/09/2016,23:08
Çözüldü 
Çok teşekkür ederim sayın boolean.
Cevapla


boolean_
Uzman
Kullanici Avatari
Uzman
E.... E....
528
4
31/10/2008
184
İstanbul
Ofis 2010
01/12/2016,17:21
Çözüldü 
Rica ederim Img-grin
Cevapla


preconti
Üye
Kullanici Avatari
Üye
18
3
21/03/2009
0
İstanbul
Ofis 2003
28/12/2015,19:30
Çözüldü 
merhaba,

15 Şubat 2013 ten sonra bu kod ile çağırmakta olduğum döviz kurları EURO 2 TL USD 1 TL olarak gelmeye başladı. Neden olabilir.
preconti, 21-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
356
Konya
Ofis 2003
06/11/2015,13:38
Çözüldü 
bu daha kolay bir kod

Function kural()
Dim objXML As MSXML2.DOMDocument
Set objXML = CreateObject("MSXML2.DOMDocument")
objXML.async = False
objXML.validateOnParse = False
objXML.Load ("http://www.tcmb.gov.tr/kurlar/today.xml")
MsgBox objXML.documentElement.childNodes(0).childNodes(1).Text
MsgBox objXML.documentElement.childNodes(0).childNodes(3).Text
MsgBox objXML.documentElement.childNodes(0).childNodes(4).Text
MsgBox objXML.documentElement.childNodes(0).childNodes(5).Text
End Function

childNodes(0).childNodes(5) 0 ıncı satırın 5.stununa denk gelen veri yani doların efektif alışı
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  ortalama maliyet alış-satış maras321 4 122 26/11/2016, 12:13 maras321
Çözüldü Ürün Satış - Toplu Ürün Satışı misilak 4 852 13/06/2015, 03:21 misilak
Çözüldü satış ve alış faturası atlantis8334 9 3.100 21/12/2014, 15:14 atlantis8334
Çözüldü Alt forumlarda veri alış verişi fascioğlu 21 2.996 13/01/2012, 21:33 fascioğlu
Çözüldü Kapalı forumdan veri alış verişi fascioğlu 8 1.783 09/01/2012, 23:16 fascioğlu


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya