|
Asagidaki kodlari kolonlarina denklemek istiyorum
Public Function BtnKurTLAl()
If ResmiTatil(Forms(MuM)!TxtTarih) = False Then
Call mesaj("Resmi Tatil Seçtiniz" & vbCrLf & _
"Lütfen tarihi degistiriniz.", "Uyari", 2, "")
Exit Function
End If
Forms(MuM)!LstKurlar.RowSource = ""
Forms(MuM)!LstKurlar.AddItem ("DovizCinsi" & ";" & "Orjinal Isim" & ";" & "Alis" & ";" & "Satis" & ";" & "Kur")
Dim xmldoc As MSXML2.DOMDocument
Dim DovizListesi As MSXML2.IXMLDOM
|