فتح موقع بواسطة boutton /textbox في نموذج ا لاكسس

[kamel2711]

Function GetUserAddress() As Boolean
    Dim strInput As String
                                                                                            انشاءدالةتقوم بفتح قوقل
    On Error GoTo Error_GetUserAddress
    strInput = InputBox("https://www.google.dz")
    Application.FollowHyperlink strInput, , True
    GetUserAddress = True

Exit_GetUserAddress:
    Exit Function

Error_GetUserAddress:
    MsgBox Err & ": " & Err.Description
    GetUserAddress = False
    Resume Exit_GetUserAddress
End sub
----------------------------------------------
Private Sub Texte13_Click()                                                               text/button
    If GetUserAddress = True Then
        MsgBox "Successfully followed hyperlink."
    Else
        MsgBox "Could not follow hyperlink."
    End If