Mettre un lien hypertexte dans un MessageBox

Est-il possible d'ajouter un lien hypertexte à un messagebox? Je suis en train de faire quelque chose comme ceci:

   MsgBox "Sorry, but you have an out-of-date database version.  Please redownload via the batch file to ensure that you have the latest version. Contact the administrator of this database or your manager if you need help." & vbCr _
        & vbCr _
        & "Your current database version is " & CurrentVer & " which may be out of date. The current database version prescribed on the network share is " & FileVer & ". They must match in order for you to proceed." & vbCr _
        & vbCr _
        & "For CSC self-help instructions on how to reload the most current version of the PRF Intake Tool to your computer, please click the link below to be directed to CSC Online instructions." & vbCr _
        & vbCr _
        & "http://www.OurSite.com/online/Solutions/Search_Results.asp?opsystem=7&keywords=PRF+Intake+Tool&Category=", , "There is a problem..."

Le problème est, le lien hypertexte n'est pas cliquable. J'aimerais faire en sorte que les utilisateurs peuvent simplement cliquer sur le lien et ont le téléchargement commence automatiquement.

Je suis à l'aide d'Access 2010 dans un Win7 environnement.

Non, mais vous pourriez demander à l'utilisateur s'il voulait ouvrir le lien et ensuite naviguer à-dire à l'emplacement par exemple.
ou de construire un formulaire personnalisé pour la messagebox, et puis vous pouvez ajouter le lien hypertexte

OriginalL'auteur Johnny Bones | 2015-02-24

  1. 8

    Une simple réponse est PAS. MsgBox ne permet pas des liens hypertexte, juste du texte brut.

    Donc, voici une solution qui devrait fonctionner très bien.

    Set objShell = CreateObject("Wscript.Shell")

intMessage = MsgBox("Sorry, but you have an out-of-date database version.  Please redownload via the batch file to ensure that you have the latest version. Contact the administrator of this database or your manager if you need help." & vbCr _
        & vbCr _
        & "Your current database version is " & CurrentVer & " which may be out of date. The current database version prescribed on the network share is " & FileVer & ". They must match in order for you to proceed." & vbCr _
        & vbCr _
        & "Would you like to learn more about CSC self-help instructions on how to reload the most current version of the PRF Intake Tool to your computer?", _
        vbYesNo, "There is a problem...")

If intMessage = vbYes Then
    objShell.Run ("http://www.OurSite.com/online/Solutions/Search_Results.asp?opsystem=7&keywords=PRF+Intake+Tool&Category=")
Else
    Wscript.Quit
End If

    Si de souligner le style est une exigence, alors vous devriez tout simplement créer votre propre Formulaire Utilisateur, comme décrit à http://j-walk.com/ss/excel/tips/tip71.htm. Voici les étapes:

    1. Ajouter un Label objet et tapez votre message
    2. Que l'Étiquette bleue (ForeColor) et souligné (Font) de sorte qu'il ressemble un typique de lien hypertexte.
    3. Placer l'Étiquette du MousePointer propriété 99 - fmMousePointerCustom
    4. Spécifier le fichier de curseur pour le Label MouseIcon image (si vous en avez un).

    5. Double-cliquez sur l'Étiquette et de créer une sous-routine de la Cliquez sur événement. Voici un exemple de code:

      Private Sub Label1_Click()
  Link = "http://www.YOUR_SITE.com"
  On Error GoTo NoCanDo
  ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
  Unload Me
  Exit Sub
 NoCanDo:
  MsgBox "Cannot open " & Link End Sub

    Pour créer un "mail" lien hypertexte, utilisez une instruction de ce genre:

    Link = "mailto:[email protected]"
    Merci! Cela a bien fonctionné.
    Ce solveur totalement à l'onu un problème pour moi....Merci

    OriginalL'auteur Wiktor Stribiżew