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_folderisto é 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
Author: Quicksand10, 2014-05-26
1 answers
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
1
Author: The Blue Dog, 2014-05-26 14:48:41