Microsoft Access VBA 替换（）

Question

我正在使用 Microsoft Access，并且正在尝试使用 Replace() 函数。

基本上，我正在尝试更改超链接文本框中的地址。例如，我想改变： Z:\test_folder 到 C:\Users\Administrator\Desktop\test_folder

这是我得到的（例如）：

Private Sub tbHyperlink_Change()
Dim Hyperlink As String
Me.tbHyperlink.Value = Hyperlink
If Left(Me.tbHyperlink.Value, 1) = "Z" Then
Replace(Hyperlink, "Z:\", "C:\Users\Administrator\Desktop") As String
Me.tbHyperlink.Value = Hyperlink
Else
End Sub

但是，这根本行不通。

有没有更简单的方法来做到这一点？ 谢谢你。 -Q

Answer 1

你那里有一大堆错误，这个呢？

Private Sub tbHyperlink_Change()
    Dim Hyperlink As String
    Hyperlink = Me.tbHyperlink.Value
    If Left(Hyperlink, 1) = "Z" Then
        Hyperlink = Replace(Hyperlink, "Z:\", "C:\Users\Administrator\Desktop")
        Me.tbHyperlink.Value = Hyperlink
    End If
End Sub