Discussion :

[sunwind]

Bonjour à tous j'ai un formulaire avec un bouton de commande.
J aimerai qu' au survol de la souris une info bulle indique un message et disparaisse quand la souris ne le survol plus.
J ai bien été dans la FAQ access et j ai essayé les deux méthodes, soit par la propriété du bouton ou soit avec une portion de code du type et rien n y fait. Il ne se passe rien.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub current()
 
 If .ControlType = acCommandButton Then
                .ControlTipText = "lala"
           End If
 
 
End Sub

Quelqu un pourrait il m aiguiller.
Merci.

[Jeannot45]

Bonjour,

Pour que l'info bulle s'affiche au survol, il faut implanter ta procédure sur l'évènement : sur souris déplacée

A+

[sunwind]

Re bonjour, j ai mis cette procédure sur la propriété souris déplacée et là c est la cata, Access me jette et m envoie un rapport d'erreur

Voici le code utilisé.

Code :

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

1
2
3
4
 
Private Sub valider_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Me.valider.ControlTipText = "lala"
 End Sub

Merci encore.

[Jeannot45]

Peux tu donner le message d'erreur, STP merci

[sunwind]

Tu sais c est le message classique windows qui n a rien avoir avec access avec la possibilité d'envoyer ou pas le rapport d'erreur.
Ensuite Access se ferme aussitot

[Gabout]

Bonjour,

Je ne comprends pas ton problème sunwind. L'affichage du message doit se faire au survol du bouton de commande ? Si c'est le cas, il suffit d'afficher le message dans la propriété Texte d'Info bulle du bouton...

Par ailleurs, si tu veux le faire par du code

Code :

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

1
2
3
Private Sub Form_Current()
    Me.Commande0.ControlTipText = "Tata"
End Sub

[sunwind]

Salut et bien le code que tu viens de me donner et exactement celui que j ai codé et posté au dessus et rien n y fait.
je continue d investiguer mais si quelqu un a une idée

[FreeAccess]

Bonjour...

Si tu utilise simplement la propriété "Texte d'info-bulle" de ton bouton de commande, as tu au moins un résultat...

[adelsunwind]

Bonjour et bien pas du tout.
Si je supprime ce bout de code et que je pla ce le texte dans la propriété infobulle du controle, je n ai plus le message d 'erreur et rien ne s affiche quand la souris passe au dessus du bouton.
Et je bloque toujours...........
Thanks again.