Discussion :

[illight]

Bonjour,


J'ai un problème très étrange, dont je ne trouve pas la solution.

J'ai une textbox, avec du texte à l'intérieur, et un bouton, qui n'est pas réellement un bouton, mais une étiquette.

Dans ma textbox, j'ai du texte, et quand je clique sur mon faux bouton, je perd le texte de ma textbox, et je ne comprend pas.
Par contre, si je remplis ma textbox, que je clique en dehors de la textbox, en dehors de mon faux bouton, le texte est bien "enregistré".

La preuve en image, par étape.
TOut d'abord, voici le code que j'ai sur mon étiquette :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Étiquette1_Click()
MsgBox Nz(Me.Texte7.Value, "")
If Me.Étiquette1.BackColor = 16777215 Then
    Me.Étiquette1.BackColor = 2366701
ElseIf Me.Étiquette1.BackColor = 2366701 Then
    Me.Étiquette1.BackColor = 62207
ElseIf Me.Étiquette1.BackColor = 62207 Then
    Me.Étiquette1.BackColor = 5026082
ElseIf Me.Étiquette1.BackColor = 5026082 Then
    Me.Étiquette1.BackColor = 2366701
End If
End Sub

Etape1 => j'ai une zone de texte avec du texte. Je clique "ailleurs". Puis je clique sur mon étiquette => le msgbox m'indique bien le texte de ma textbox
Etape2 => j'efface le texte de ma textbox et je clique direct sur mon étiquette => le msgbox m'indique l'ancien texte de ma textbox, que j'ai effacé, et pourtant la textbox reste vide


Evidemment, c'est un formulaire de test, mais dans mon vrai formulaire, quand je clique sur mon étiquette, après avoir modifié ma textbox, l'ancien texte réapparait dans ma textbox, cvomme s'il ne prenait pas en compte mes modifications.

J'ai essayé d'insérer un exit sur la textbox en question, ou un lostfocus, mais sans succès. Car en effet, quand je clique sur une autre zone et qu'après je clique sur mon étiquette, le texte reste bien modifié.

Quelqu'un aurait une idée/suggestion pour que la modification soit prise en compte directement ?

En vous remerciant par avance pour vos retours,

[illight]

Par curiosité, j'ai essayé de faire un vrai bouton (j'ai tilté quand j'ai créé ce topic en fait) : alors le changement de couleur fonctionne à peu près correctement, et j'ai l'impression que quand le texte est modifié, au niveau du clic, ça enregistre bien la modification.

Par contre, du coup, j'ai un autre souci : sous Access 2010, lors du survol du bouton, ça met le bouton "en surbrillance", suivant ce que l'on a mis dans le champs "Couleur sélectionnée par pointage", comme s'est expliqué ici :

https://loufab.developpez.com/tutori...ndeaccess2010/

Sauf que, de mon côté, je ne veux pas qu'au survol du bouton, cela change de couleur et ça garde la couleur que le bouton. En fait, quand je clique sur le bouton, ça doit changer de couleur (vert, jaune, rouge), qui correspond à l'état d'un outil : "en ligne", "partiellement HS mais utilisable" et "HS", qui permet d'avoir une visualisation rapide lors du remplissage du formulaire.

Quelqu'un aurait une idée de comment désactiver l'effet au survol ? j'ai l'impression que c'est le champ HoverColor, mais je ne sais pas où le mettre et surtout comment le renseigner...

[tee_grandbois]

bonjour,
peux-tu poster ta base de test car je n'ai pas tout suivi (l'histoire du vrai faux bouton est un peu nébuleux) ?

[illight]

Oui, bien sur la voici

[tee_grandbois]

Dans ma textbox, j'ai du texte, et quand je clique sur mon faux bouton, je perd le texte de ma textbox

c'est un peu l'inconvénient du multithread : on peut être sur un contrôle avec le clavier et à la fois sur un autre avec la souris.
Seule solution que j'ai trouvée, mettre .Text dans .Value si un évènement click survient.

Code :

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

1
2
3
4
Private Sub Étiquette1_Click()
Me.Texte7.Value = Me.Texte7.Text
MsgBox Nz(Me.Texte7.Value, "")
If Me.Étiquette1.BackColor = 16777215 Then

Je ne sais pas si cela solutionne ton problème ...

[illight]

Ah oui, tiens, j'avais pas pensé à utiliser la fonction text.

En fait, j'avais essayé de récupérer la valeur de la zone de texte avant le click, mais sans réelle réussite. C'est vrai que le .text permet de récupérer le texte en "instantané".

j'essaierai demain, je te tiens au courant. Ça peut être une solution alternative en attendant de trouver une meilleure solution Merci