Microsoft Access VBA Replace ()

Question

Microsoft Access VBA Replace ()

estou a usar o Microsoft Access, e estou a tentar usar a função Replace ().

Basicamente, estou a tentar mudar o endereço numa caixa de texto de hiperligações. Por exemplo, eu gostaria de mudar : Z: \test_ pasta a C:\Users\Administrator\Desktop \test_folder

isto é o que eu tenho (por exemplo):

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

No entanto, isto não está a resultar.

Há uma maneira mais simples de fazer isto? Obrigado. - Q

0

access-vba

Author: Quicksand10, 2014-05-26

Source

1 answers

score 1 · Accepted Answer

Tens aí um monte de erros, e isto?

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