如何将记录集中的文本框的值设置为超链接地址？

Posted 2021-05-03

我正在尝试遍历记录集，并将为txtC1返回的值设置为每个记录的超链接地址。

这里是我到目前为止提出的代码：

sqlqry = "Select A1, B1, C1 From Table"

Me.Form1.Form.txtC1.SetFocus
i = 0
rs.Open sqlqry, cn, adOpenDynamic, adLockReadOnly
With rs
Do
    Do Until rs.EOF
    i = i + 1
        If rs.EOF Then
            Exit Do
        End If
    Me.Form1.Form.txtC1.HyperlinkAddress = Me.Form1.Form.txtC1.Text
    rs.MoveNext
    Loop
Loop Until rs.EOF
End With

我收到错误：

对象不支持此属性或方法。

在线

Me.Form1.Form.txtC1.HyperlinkAddress = Me.Form1.Form.txtC1.Text

也许其他方法会更好？

编辑：

经过更多处理后，我已经能够通过使用标签和隐藏的文本框为所有记录设置超链接。但是，不是将每次循环的超链接目标更改为隐藏文本框的值，而是将每个链接设置为第一个文本框的值。

我正在尝试实现一个for each循环，以通过使用ADO Field对象更改每个记录的链接，但是我不确定如何告诉它要查看的字段。这是新代码

i = 0
rs.Open sqlqry, cn, adOpenDynamic, adLockReadOnly
With rs
Do
    Do Until rs.EOF
    i = i + 1
    hLink = Me.Form1.Form.txtC1.Value
        If rs.EOF Then
            Exit Do
        End If
   Me.Form1.Form.lbl.HyperlinkAddress = hLink
    rs.MoveNext
    Loop
Loop Until rs.EOF
End With