Dans un formulaire j'ai une liste modifiable avec des=20
coderesponsable et =E0 chaque code correspond un intitul=E9...
J'aimerais lorsque je suis sur un code de ma liste=20
qu'apparaisse en info bulle l'intitul=E9...
J'ai essay=E9 de mettre =E7a mais =E7a ne marche pas:=20
Private Sub CodeResponsable_MouseMove(Button As Integer,=20
Shift As Integer, X As Single, Y As Single)
Dim requete As String
Dim db As Database
Dim q As QueryDef
Dim rs As Recordset
requete =3D "select * from T_Responsable where=20
T_Responsable.CodeResponsable =3D'" & Me.CodeResponsable=20
& "'"
Set db =3D CurrentDb
Set q =3D db.CreateQueryDef("", requete)
Set rs =3D q.OpenRecordset(dbOpenDynaset)
Me.CodeResponsable.ControlTipText =3D rs!
[IntituleResponsable]
End Sub
Quelqu'un peut il m'aider?
Merci d'avance
Bonne journ=E9e
Elise
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rv
Bonjour,
Je ne connais pas le contexte de l'application mais j'ai l'impression qu'il vaudrait mieux mettre à jour la propriété 'ControlTipText' de 'CodeResponsable' uniquement lors d'une mise à jour dans cette liste (au moins pour éviter des requêtes pendant chaque survol de la liste!). Sur l'événement 'Aprés mise à jour' de 'CodeResponsable' :
Private Sub CodeResponsable_AfterUpdate() If Nz(Me.CodeResponsable, "") <> "" Then Me.CodeResponsable.ControlTipText DLookup("IntituleResponsable", "T_Responsable", "CodeResponsable = " & Me.CodeResponsable ) End If End Sub
A+
Rv
"Elise" a écrit dans le message de news:10be801c3bef3$1a65dec0$ Bonjour,
Dans un formulaire j'ai une liste modifiable avec des coderesponsable et à chaque code correspond un intitulé... J'aimerais lorsque je suis sur un code de ma liste qu'apparaisse en info bulle l'intitulé...
J'ai essayé de mettre ça mais ça ne marche pas: Private Sub CodeResponsable_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim requete As String Dim db As Database Dim q As QueryDef Dim rs As Recordset requete = "select * from T_Responsable where T_Responsable.CodeResponsable ='" & Me.CodeResponsable & "'" Set db = CurrentDb Set q = db.CreateQueryDef("", requete) Set rs = q.OpenRecordset(dbOpenDynaset) Me.CodeResponsable.ControlTipText = rs! [IntituleResponsable] End Sub
Quelqu'un peut il m'aider? Merci d'avance Bonne journée Elise
Bonjour,
Je ne connais pas le contexte de l'application mais j'ai l'impression
qu'il vaudrait mieux mettre à jour la propriété 'ControlTipText' de
'CodeResponsable' uniquement lors d'une mise à jour dans cette liste (au
moins pour éviter des requêtes pendant chaque survol de la liste!).
Sur l'événement 'Aprés mise à jour' de 'CodeResponsable' :
Private Sub CodeResponsable_AfterUpdate()
If Nz(Me.CodeResponsable, "") <> "" Then
Me.CodeResponsable.ControlTipText DLookup("IntituleResponsable", "T_Responsable", "CodeResponsable = " &
Me.CodeResponsable )
End If
End Sub
A+
Rv
"Elise" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:10be801c3bef3$1a65dec0$a601280a@phx.gbl...
Bonjour,
Dans un formulaire j'ai une liste modifiable avec des
coderesponsable et à chaque code correspond un intitulé...
J'aimerais lorsque je suis sur un code de ma liste
qu'apparaisse en info bulle l'intitulé...
J'ai essayé de mettre ça mais ça ne marche pas:
Private Sub CodeResponsable_MouseMove(Button As Integer,
Shift As Integer, X As Single, Y As Single)
Dim requete As String
Dim db As Database
Dim q As QueryDef
Dim rs As Recordset
requete = "select * from T_Responsable where
T_Responsable.CodeResponsable ='" & Me.CodeResponsable
& "'"
Set db = CurrentDb
Set q = db.CreateQueryDef("", requete)
Set rs = q.OpenRecordset(dbOpenDynaset)
Me.CodeResponsable.ControlTipText = rs!
[IntituleResponsable]
End Sub
Quelqu'un peut il m'aider?
Merci d'avance
Bonne journée
Elise
Je ne connais pas le contexte de l'application mais j'ai l'impression qu'il vaudrait mieux mettre à jour la propriété 'ControlTipText' de 'CodeResponsable' uniquement lors d'une mise à jour dans cette liste (au moins pour éviter des requêtes pendant chaque survol de la liste!). Sur l'événement 'Aprés mise à jour' de 'CodeResponsable' :
Private Sub CodeResponsable_AfterUpdate() If Nz(Me.CodeResponsable, "") <> "" Then Me.CodeResponsable.ControlTipText DLookup("IntituleResponsable", "T_Responsable", "CodeResponsable = " & Me.CodeResponsable ) End If End Sub
A+
Rv
"Elise" a écrit dans le message de news:10be801c3bef3$1a65dec0$ Bonjour,
Dans un formulaire j'ai une liste modifiable avec des coderesponsable et à chaque code correspond un intitulé... J'aimerais lorsque je suis sur un code de ma liste qu'apparaisse en info bulle l'intitulé...
J'ai essayé de mettre ça mais ça ne marche pas: Private Sub CodeResponsable_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim requete As String Dim db As Database Dim q As QueryDef Dim rs As Recordset requete = "select * from T_Responsable where T_Responsable.CodeResponsable ='" & Me.CodeResponsable & "'" Set db = CurrentDb Set q = db.CreateQueryDef("", requete) Set rs = q.OpenRecordset(dbOpenDynaset) Me.CodeResponsable.ControlTipText = rs! [IntituleResponsable] End Sub
Quelqu'un peut il m'aider? Merci d'avance Bonne journée Elise
