champ texte par openarg

**lolothom** · 15/10/2007, 10h42

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 ?

**Dolphy35** · 15/10/2007, 10h46

Salut,

Peux-tu nous montrer ton code, dans la théorie tu n'as pas besoin de faire entrée sur ton champ.

Dolphy

**Pierre Fauconnier** · 15/10/2007, 11h09

Salut...

Récupère la valeur via

Code :

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

textnum.text

Cela solutionnera ton problème

Invité · 15/10/2007, 11h26

Bonjour

Envoyé par Pierre Fauconnier

Salut...

Récupère la valeur via

Code :

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

textnum.text

Cela solutionnera ton problème

Attention, cette propriété n'est valable que si le champ a le focus.

Starec

**Pierre Fauconnier** · 15/10/2007, 11h38

Salut...

Envoyé par Starec

Bonjour

Attention, cette propriété n'est valable que si le champ a le focus.

Starec

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

Mais nous sommes en attente du code initial pour pouvoir donner une meilleure réponse...

Amicalement

**lolothom** · 15/10/2007, 11h59

mon bouton est à côté de txtnum

Code :

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

1
2
3
4
5
6
7
Private 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

**Pierre Fauconnier** · 15/10/2007, 12h19

Envoyé par lolothom

mon bouton est à côté de txtnum

Code :

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

1
2
3
4
5
6
7
Private Sub Étiquette339_DblClick(Cancel As Integer)
Call OuvreFormOpenarg(txtnum.Text)
txtnum = ""

Sub OuvreFormOpenarg(NumObjet)
    DoCmd.OpenForm "DEMANDE", acNormal, , , , , NumObjet
End Sub

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,

Code :

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

textnum.text

devrait planter, alors que tu dis qu'il fonctionne...

Dès lors, comme Étiquette339 <> TextNum, tu n'aurais pas dû avoir de problèmes en utilisant

Code :

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

textnum

plutôt que

Code :

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

textnum.text

, bien qu'il soit préférable d'utiliser

Code :

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

textnum.value

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.
[EDIT]

Code :

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

DoCmd.OpenForm FormName:="DEMANDE", view:=acNormal, OpenArgs:=NumObjet

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]
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...

**lolothom** · 15/10/2007, 13h03

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,

oui je suis sur un formulaire access independant
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é

textnum.value

ne marche pas sauf si j'appuie sur entrée

DoCmd.OpenForm FormName:="DEMANDE", view:=acNormal, OpenArgs:=NumObjet

je ne connaissais pas

je confirme que txtnum.text marche à tous les coups

**Pierre Fauconnier** · 15/10/2007, 13h09

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?

**Pierre Fauconnier** · 15/10/2007, 13h26

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

Code :

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

textNum.Text

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

Mais ce n'est que mon avis...

Invité · 15/10/2007, 13h29

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

**lolothom** · 15/10/2007, 13h30

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

**Pierre Fauconnier** · 15/10/2007, 13h33

Envoyé par Starec

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.

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

Envoyé par Starec

lolothom
Par contre le code ne marchera pas si un autre contrôle est activé entre-temps.

Starec

Et dans ce cas, le code fonctionnera à tous les coups, puisque le double-clic active le contrôle et permet donc l'utilisation de

Code :

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

textnum.text

Lolothom nous en dira certainement plus là-dessus...

Invité · 15/10/2007, 13h38

Envoyé par Pierre Fauconnier

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... Et dans ce cas, le code fonctionnera à tous les coups, puisque le double-clic active le contrôle et permet donc l'utilisation de

Code :

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

textnum.text

Lolothom nous en dira certainement plus là-dessus...

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.

Starec

**lolothom** · 15/10/2007, 13h46

**Pierre Fauconnier** · 15/10/2007, 13h56

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

**lolothom** · 15/10/2007, 14h05

Envoyé par Pierre Fauconnier

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 il 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 ?

**Pierre Fauconnier** · 15/10/2007, 14h16

Utiliser l'objet Activecontrol

Code :

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

1
2
3
4
5
6
 
    If ActiveControl.Name = "TextNum" Then
        NumObjet = TextNum.Text
        Else
        NumObjet = TextNum.Value
    End If

**lolothom** · 15/10/2007, 21h26

ca marche

merci à tous

Code :

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

1
2
3
4
5
6
7
 If ActiveControl.Name = "TextNum" Then
        NumObjet = TextNum.Text
call...
        Else
        NumObjet = TextNum.Value
call...
    End If

champ texte par openarg

IHM

Discussions similaires

Partager

Partager