Kod:
Option Compare Database
Private Sub Komut32_Click()
DoCmd.DeleteObject acTable, "Currency"
Application.ImportXML DataSource:="http://www.tcmb.gov.tr/kurlar/today.xml", ImportOptions:=acStructureAndData
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT Isim, DövizAlış , DövizSatış, EfektifAlış , EfektifSatış from qryTCMB where Isim = 'AMERİKAN DOLARI'", _
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Me.usdal.Value = rst.Fields("EfektifAlış")
Me.usdsat.Value = rst.Fields("EfektifSatış")
Set rst = Nothing
Metin15 = usdal
Metin17 = usdsat
End SubNot: Kendime uyarladığım değil indirdiğim dosyayı gönderbiliyorum.
