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

Microsoft Access VBA替换（）

1 个答案: