Discussion :

[Joselito2]

Bonjour le forum,

Je ne sais si je suis sur le bon forum mais ci-dessous mon problème.

J'ai une requête avec un champs " Id " et le deuxième champ "hyperlink" et ensuite je voudrais pouvoir créer un formulaire qui fait appel à cette requête et créer un bouton sur ce formulaire que lorsque je clique sur ce bouton le lien s'ouvre automatiquement selon le critère de paramètre de ma requête qui est [ID].

Existe-t-il un moyen sans VBA ou SQL afin d'automatiser l'ouverture du lien hypertexte.

Merci pour votre aide.

Joselito2

[Cinesra]

Salut,

J'avoue que je n'ai pas tout compris à ton problème, mais pour ouvrir de manière simple ton lien hypertexte, essaye peut être avec ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub BoutonOuvrirLien_Click()
Dim RetVal
RetVal = ShellExecute(0, "Open", LeLienHypertexte_OU_LeChampQuiLeContient, "", "", 10)
End Sub

Oublie pas de créer le module pour te servir de la fonction ShellExecute:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                   (ByVal hwnd As Long, ByVal lpszOp As String, _
                    ByVal lpszFile As String, ByVal lpszParams As String, _
                    ByVal LpszDir As String, ByVal FsShowCmd As Long) _
                    As Long

J'espère que ça t'aidera!
Ciao

[Joselito2]

Bonjour le Forum,

Cela fonctionnne bien si j'introduit directement le chemin "http://www.google.com" dans le code directement, mais j'aimerais qu'il ouvre le lien hypertexte "link" qui se trouve dans un champ dans mon formulaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Command49_Click()
Dim RetVal
RetVal = ShellExecute(0, "Open", Forms!F_Transactions_look!Link, "", "", 10)
End Sub

Merci pour votre aide encore une fois.

Joselito2