Skip to main content

AccessTr.neT


Listboxtaki bilgileri tabloya yazmak

Listboxtaki bilgileri tabloya yazmak

Çözüldü #1
Herkese merhaba,

Ek'te, desteğini bu siteden aldığım bir veritabanı mevcut.
Veritabanını değerli forum üyelerinden biri yazmış.
Ben de aktif olarak bazı projelerimde kullanıyorum.

Ancak, form üzerindeki dataları tarih dahil, bir tabloya aktarmam lazım.
Bunu beceremedim. Yardımlarınızı rica ederim.

Ayrıca, bu veritabanını yazan ve emeği geçen herkese teşekkürler.


Ek Dosyalar
 TCMB otomatik kur alma.zip(20.93 KB)
[/color][/size][/font]
Teşekkürler,
Saygılarımla,

Power BI İş Analitiği Danışmanı

Ali Yüzen
Cevapla
Çözüldü #2
uygulamayı çalıştıramadığım için deneyemedim, kodu aşağıdaki ile değiştir.
Private Sub BtnKurAl_Click()
If ResmiTatil(Me.TxtTarih) = False Then
MsgBox "Resmi Tatil Günü Seçtiniz." & vbCrLf & _
"Lütfen tarihi değiştirerek tekrar deneyiniz.", vbInformation, "UYARI !"

Exit Sub

End If

Me.LstKurlar.RowSource = ""

Me.LstKurlar.AddItem ("DövizCinsi" & ";" & "Orijinal İsim" & ";" & "Alış" & ";" & "Satış")

Dim xmlDoc As MSXML2.DOMDocument50

Dim DovizListesi As MSXML2.IXMLDOMNodeList

Dim Dovizler As MSXML2.IXMLDOMNode


Set xmlDoc = New MSXML2.DOMDocument50

xmlDoc.async = False

If Me.TxtTarih < Date Then
xmlDoc.Load "http://www.tcmb.gov.tr/kurlar/" _
& Format(Me.TxtTarih, "yyyymm") & "/" _
& Format(Me.TxtTarih, "ddmmyyyy") & ".xml"
Else

xmlDoc.Load "http://www.tcmb.gov.tr/kurlar/today.xml"

End If

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

On Error GoTo hata
Dim DovizCinsi, OrjIsim, Alis, Satis As String

'

For Each Dovizler In DovizListesi

DovizCinsi = Dovizler.selectSingleNode("Isim").Text
OrjIsim = Dovizler.selectSingleNode("CurrencyName").Text
Alis = Dovizler.selectSingleNode("ForexBuying").Text
Satis = Dovizler.selectSingleNode("ForexSelling").Text

Me.LstKurlar.AddItem (DovizCinsi & ";" & OrjIsim & ";" & Alis & ";" & Satis)

Dim rs As New ADODB.Recordset
rs.Open "Table1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("Tarih") = Me.TxtTarih
rs("Doviz_Cinsi") = DovizCinsi
rs("Orijinal_Isim") = OrjIsim
rs("Alis") = Alis
rs("Satis") = Satis
rs.Update
Set rs = Nothing
Set Conn = Nothing


Next

Set xmlDoc = Nothing



hata: Exit Sub

End Sub
Cevapla
Çözüldü #3
hocama ek olarak
formumuz içinde bu konu ile ilgili yapılmışlardan örnekler var ,formumuzun arama motorunda aratıp incelerseniz belki faydalı olabilir
Cevapla
Çözüldü #4
sledgeab, merhaba üstadım,

kodu denedim. ancak, listbox a ilk 3 kaydı getiriyor ve tabloya iki satır atıyor... loop ta bir sorun var sanırım. hızlı cevabınız için teşekkürler.
Teşekkürler,
Saygılarımla,

Power BI İş Analitiği Danışmanı

Ali Yüzen
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da