یک فرم با یک listbox میسازیم و با استفاده از تابع بالا در یک حلقه تمام item ها رو در اون میریزیم:
Option Compare Database
Option Explicit
Const url_isna As String = "https://www.isna.ir/rss"
Const url_zoomit As String = "https://www.zoomit.ir/feed/"
Const url_digiato As String = "https://digiato.com/feed/"
Private Sub Read_RSS(url As String)
items_list.RowSource = ""
Dim rr As Response
rr = Read_xml(url)
If rr.xml Is Nothing Then
MsgBox rr.ERROR_MESSAGE
Exit Sub
End If
Dim items As MSXML2.IXMLDOMNodeList
Dim item As MSXML2.IXMLDOMNode
Set items = rr.xml.selectNodes("//item")
For Each item In items
Me.items_list.AddItem item.selectSingleNode("title").Text & ";" & item.selectSingleNode("link").Text
Next item
End Sub
Private Sub BTN_digiato_Click()
Read_RSS (url_digiato)
End Sub
Private Sub BTN_isna_Click()
Read_RSS (url_isna)
End Sub
Private Sub BTN_zoomit_Click()
Read_RSS (url_zoomit)
End Sub
Private Sub items_list_DblClick(Cancel As Integer)
DoCmd.OpenForm "Browser", , , , , acDialog, items_list.Column(1)
End Sub