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 |
Partager