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.IXMLDOMNodeList
Dim Dovizler As MSXML2.IXMLDOMNode
Set xmldoc = New MSXML2.DOMDocument
xmldoc.async = False
If Forms(MuM)!TxtTarih < Date Then
xmldoc.Load "http://www.tcmb.gov.tr/kurlar/" _
& Format(Forms(MuM)!TxtTarih, "yyyymm") & "/" _
& Format(Forms(MuM)!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, Kur 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
Kur = Dovizler.SelectSingleNode("ForexBuying").Text
Forms(MuM)!LstKurlar.AddItem (DovizCinsi & ";" & OrjIsim & ";" & Alis & ";" & Satis & ";" & Kur)
Next
Set xmldoc = Nothing
Hata: Exit Function
End Function

Public Function BtnKurRBLAl()
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 url_request As String

' Dim xmldoc As MSXML2.DOMDocument
Dim xmldoc As Object

' Dim DovizListesi As MSXML2.IXMLDOMNodeList
Dim nodeList As Object

' Dim Dovizler As MSXML2.IXMLDOMNode
Dim xmlNode As Object

' Set xmldoc = New MSXML2.DOMDocument
Set xmldoc = CreateObject("Msxml.DOMDocument")

Dim node_attr As Object

xmldoc.async = False

Dim i As Integer
Dim strS As String
Dim xdate As Date
Dim iIndex As Integer


url_request = "http://www.cbr.ru/scripts/XML_daily.asp?date_req=" + Format(Nz(Forms(MuM)!TxtTarih, Date), "dd\/mm\/yyyy")
If Not xmldoc.Load(url_request) = True Then
MsgBox ("Yayfa Yuklenemedi")
Exit Function
End If
Set nodeList = xmldoc.SelectNodes("ValCurs")
Set xmlNode = nodeList.Item(0).CloneNode(True)
Set node_attr = xmlNode.Attributes(0)
'xdate = node_attr.Value
'--------------
Set nodeList = xmldoc.SelectNodes("*/Valute")
Dim DovizCinsi, OrjIsim, Alis, Satis, Kur As String
strS = "DNo;DTuru;;;Kur"
For iIndex = 0 To nodeList.Length - 1
Set xmlNode = nodeList.Item(iIndex).CloneNode(True)
' strS = strS & ";" & DNo

For i = 0 To xmlNode.ChildNodes.Length - 1
strS = strS & ";" & xmlNode.ChildNodes(i).Text

Next
Next
Forms(MuM)!LstKurlar.RowSource = strS
Forms(MuM)!LstKurlar.AddItem (DovizCinsi & ";" & OrjIsim & ";" & Alis & ";" & Satis & ";" & Kur)
Set xmldoc = Nothing
Set nodeList = Nothing
Set xmlNode = Nothing

Biri bu sitede yayinlanmis biride rusyada bir siteden alinmis..

dosyayi birlestirmeye yardimci olacak kimse yokmu

Burdada durum beklemede ??

Arkadaslar birinizin kalbini kirdim heralde?


Sorry?

Inanin kasdi bir durum yok?

Merhaba;

Kimsenin kalbini kırmadınız. Sanırım sorununuz iyi anlaşılmadı ve biraz da meşguldük.

Dediğim gibi tam anlaşılmadı ama anladığım kadarıyla şöyle yapsanız;

Uygulamalardan birine diğer uygulamadaki form ve varsa ilgili modulleri alın böylece tek uygulamada yer alır.

this.setState({sign:"Here comes the sun...."})

sorun zaten tek formda toplaya bilmek bunlarin ikisini birlestirip iclerinden bana gereken kurlari kendi tablomda birlestirmek istiyorum, kisacasi beceremedim...