Discussion :

[doudou57]

Bonjour!

Je voudrais faire que quand on clique sur un élément de ma Dataliste, il s'active un lien qui ouvre une image.

J'accede a mon image dans ACCESS, que je recupere dans un recorset.
J'ai mis champ des images en hypertexte, j'arrive bien a recuperer le lien hypertexte.

Je ne sais pas du tout comment qu'on fait pour activer le lien qui on clique dans une dataliste.

Pour l'instant voici mon code de ma datalist :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim rslien As ADODB.Recordset
 
Private Sub Datalisthelp_Click()
 
 
    Set rslien = New ADODB.Recordset
        rslien.ActiveConnection = c  '---ajout d'activeconnection car jet.4
        rslien.Properties("IRowsetIdentity") = True      '---permet utilisation des curseurs _
                                                        comme source de données a cause de la version 4 de jet
 
        rslien.Open ("Select * from Helpdesk where [Helpdesk].id_Pda= '" & Datalistpda.BoundText & "' "), _
        , adOpenKeyset, adLockPessimistic
 
'---ouvrir le lien hypertext
'C ' EST LA QUE JE SAIS PAS QUOI FAIRE
MsgBox (rslien!Printecran)
 
End sub

quelq'un a til deja rencontré ce probleme??
Merci les amis!!

[doudou57]

Mes amis,
J'ai décidé d'utilisé L'API SHELL EXECUTE

Le seul truc qui coince est que je recuperele lien hypertexte dans un champ du recordset ( car il dépend du choix de l'utilisateur ).
J'ai donc décidé de mettre à la place du lien mon recordset, mais ca marche po... Avec le lien ca marche mais le champ du recordset qui possede bel et bien le lien...marche po..

Pourriez vous me dire ce qu'il doit manquer ?
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
'----API shellexecute pour lien hypertexte
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" ( _
    ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
 
 
Private Sub Datalisthelp_Click()
 
 
    Set rslien = New ADODB.Recordset
        rslien.ActiveConnection = c  '---ajout d'activeconnection car jet.4
        rslien.Properties("IRowsetIdentity") = True      '---permet utilisation des curseurs _
                                                        comme source de données a cause de la version 4 de jet
 
        rslien.Open ("Select * from Helpdesk where [Helpdesk].id_Pda= '" & Datalistpda.BoundText & "' "), _
        , adOpenKeyset, adLockPessimistic
 
'---ouvrir le lien hypertext
MsgBox (rslien!Printecran)
 
'----C'est là, où il ya le recordset RSLIEN, je sais pas comment faire pour qu'il en compte ce qu'il ya dans le recordset...
 
 
    ShellExecute Me.hwnd, "open", rslien!Printecran, vbNullString, vbNullString, SW_SHOWNORMAL
 
 
 
End Sub