Version imprimable
bonjour
j'ai un champ texte txtnum indépendant qui me permet d'ouvrir un autre formulaire filtré par openarg :
le pb :
-1 je tape mon numéro dans txtnum,
-2 je valide par entrée,
-3 mon formulaire s'ouvre.
si je loupe l'étape 2 , txtnum reste vide
Comment forcer txtnum à prendre la valeur rentrée ?
Salut,
Peux-tu nous montrer ton code, dans la théorie tu n'as pas besoin de faire entrée sur ton champ.
Dolphy ;)
Salut...
Récupère la valeur via
Cela solutionnera ton problèmeCode:textnum.text
Bonjour
Attention, cette propriété n'est valable que si le champ a le focus.Citation:
Envoyé par Pierre Fauconnier
Starec
Salut...
C'est exact, mais je suppose que c'est ce qui se passe, sinon textnum contiendrait la chaine saisie... Je suppose que l'ouverture du formulaire s'effectue suite à une touche pressée, par exemple, et donc que l'utilisateur n'a pas quitté le contrôle...Citation:
Envoyé par Starec
Mais nous sommes en attente du code initial pour pouvoir donner une meilleure réponse...
Amicalement
mon bouton est à côté de txtnum
Code:
2
3
4
5
6
7Private Sub Étiquette339_DblClick(Cancel As Integer) Call OuvreFormOpenarg(txtnum.Text) txtnum = "" Sub OuvreFormOpenarg(NumObjet) DoCmd.OpenForm "DEMANDE", acNormal, , , , , NumObjet End Sub
là ça a l'air de marcher
Citation:
Envoyé par lolothom
Je suis dubitatif sur le fait que tu gères un évènement sur une étiquette.
Peux-tu confirmer que tu es dans un formulaire Access? Si tu es sur un formulaire Access, l'appellation "Étiquette339" est trompeuse, car il n'est pas possible de gérer une évènement quel qu'il soit sur une étiquette et c'est donc qu'il s'agit d'un contrôle d'un autre type. Tu parles d'ailleurs d'un bouton. Mais si c'est un bouton, alors,devrait planter, alors que tu dis qu'il fonctionne...Code:textnum.text
Dès lors, comme Étiquette339 <> TextNum, tu n'aurais pas dû avoir de problèmes en utilisantplutôt queCode:textnum
, bien qu'il soit préférable d'utiliserCode:textnum.text
De plus, tu aurais intérêt à utiliser les arguments nommés, notamment dans la procédure d'ouverture du formulaire (est-ce bien utile d'appeler une procédure indépendante pour cela?). Cela simplifierait la lecture du code.Code:textnum.value
[EDIT]est plus clair et plus lisible que ta succession de virgules. De plus, tu ne risques ainsi pas d'en mettre une de trop ou ... de trop peu...[/EDIT]Code:DoCmd.OpenForm FormName:="DEMANDE", view:=acNormal, OpenArgs:=NumObjet
Peux-tu préciser le contexte dans lequel tu évolues, et notamment le type du contrôle "Étiquette339"? Car ce que tu dis, en regard du code que tu donnes, est incohérent...
oui je suis sur un formulaire access independantCitation:
Peux-tu confirmer que tu es dans un formulaire Access? Si tu es sur un formulaire Access, l'appellation "Étiquette339" est trompeuse, car il n'est pas possible de gérer une évènement quel qu'il soit sur une étiquette et c'est donc qu'il s'agit d'un contrôle d'un autre type. Tu parles d'ailleurs d'un bouton. Mais si c'est un bouton, alors,
j'ai une zone de texte couplée à une étiquette, zone de texte pour rentrer mon numéro, une étiquette où sur doubleclique pour ouvrir mon formulaire filtré
ne marche pas sauf si j'appuie sur entréeCitation:
textnum.value
je ne connaissais pasCitation:
DoCmd.OpenForm FormName:="DEMANDE", view:=acNormal, OpenArgs:=NumObjet
je confirme que txtnum.text marche à tous les coups
A priori, sauf erreur de ma part, il n'y a pas de possibilité de gérer un évènement quel qu'il soit sur une étiquette...
Soit le double-click ne s'effectue pas sur un contrôle ETIQUETTE, soit tu n'es pas dans un formulaire access, mais dans un userform...
Peux-tu préciser ta version d'ACCESS?
Il me vient une idée... tu parles d'étiquette associée...
Ton contrôle, avant d'être une zone de texte, c'était une étiquette que tu as modifié en zone de texte et que tu as renommé?
Je suppose que c'est cela, et que tu as alors, dans l'éditeur VBE, dans la fenêtre des propriétés de TextNum, une propriété EventProcPrefix qui vaut Étiquette339... Je me trompe??
Dès lors, si c'est cela, cela signifie que le double-clic s'effectue sur le contrôle TextNum (car Access ne fait pas la différence entre le doubleclic sur un contrôle et le doubleclic sur l'étiquette qui lui est associée)... et donc qu'il a le focus... Et donc, c'est normal que cela fonctionne avec
Mais, si je peux me permettre, tu dois faire très attention lorsque tu changes un contrôle de type, et notamment à cette propriété EventProcPrefix, car ton code est illisible et difficilement maintenable...Code:textNum.Text
Mais ce n'est que mon avis...
Bonjour
Pierre Fauconnier
Tu mettres un évènement sur une étiquette (Click, Double-Click et Mouse).
Cela fonctionne dans ce cas, car une étiquette n'acceptant pas le focus, celui-ci reste sur la zone de texte.
lolothom
Par contre le code ne marchera pas si un autre contrôle est activé entre-temps.
Starec
ma version d'access est 2002
Je clique sur ma boite à outil et sur le "A" celà m'insère une étiquette
un pb quand même
si je passes avec txtnum.value :
alors je dois faire entrer pour filtrer sinon le formulaire s'ouvre avec une valeur vide
si je passe avec txtnum.text:
si je garde le focus c'est ok
si j'appuie sur entree pour valider ( je perds le focus) et j'ai une messagebox me précisant que la valeur de txtnum est inconnue
Oui, c'est que j'ai précisé dans mon dernier message. Mais l'évènement se passe bien sur le textbox, pas sur l'étiquette. C'est probablement la propriété EventProcPrefix qui ne correspond pas au nom du contrôle, alors que c'est habituellement le cas...Citation:
Envoyé par Starec
Et dans ce cas, le code fonctionnera à tous les coups, puisque le double-clic active le contrôle et permet donc l'utilisation deCitation:
Envoyé par Starec
Lolothom nous en dira certainement plus là-dessus...Code:textnum.text
Non il y'a l'évenement sur l'étiquette, essaye en en mettant une sur un formulaire (juste une étiquette), ensuite sélectionnes la sur l'éditeur VBA, et tu verras que tu as 5 évènements dessus.Citation:
Envoyé par Pierre Fauconnier
Starec
Merci Starec...
Mille excuses, je n'avais pas fait cette distinction, car lolothom parlait d'étiquette associée... Dès lors, je me range totalement à ton avis, et il y aura bien plantage si le focus n'est pas sur TextNum...
en effet, quelle est la méthode pour faire fi de ce problème ?Citation:
Envoyé par Pierre Fauconnier
Utiliser l'objet Activecontrol
Code:
2
3
4
5
6If ActiveControl.Name = "TextNum" Then NumObjet = TextNum.Text Else NumObjet = TextNum.Value End If
ca marche
merci à tous
Code:
2
3
4
5
6
7