Discussion :

[amerex]

Bonjour!
Voilà, j'ai créé un formulaire, nommé DECLARE_LOGIN, qui demande le nom d'utilisateur et le mot de passe de l'usager. Lorsque la concordance du mot de passe est validée, j'exécute:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Texte2_AfterUpdate()
 
    If Texte2.Text = XXmtdepsXX Then
        DoCmd.OpenForm "M_menu", , , , , , txlog2.Text
    Else
        Texte2.SetFocus
    End If
 
End Sub

J'ai bel et bien un champs de texte nommé txlog2 et un formulaire nommé M_menu. Le tout fonctionnait très bien, mais tout d'un coup, il me donne une erreur: IMPOSSIBLE DE FAIRE RÉFÉRENCE À UNE PROPRIÉTÉ OU DE LA DÉFINIR POUR UN CONTROLE SI CE DERNIER N'EST PAS ACTIVÉ. En cliquant sur Débogage, il me surligne:

Code :

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

DoCmd.OpenForm "M_menu", , , , , , txlog2.Text

Auriez-vous une idée?!

[ClaudeLELOUP]

Essaye ceci pour activer

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Texte2_AfterUpdate()
    docmd.gotoControl "txlog2"   'pour l'activer
    If Texte2.Text = XXmtdepsXX Then
        DoCmd.OpenForm "M_menu", , , , , , txlog2.Text
    Else
 
        Texte2.SetFocus
    End If
 
End Sub

[FreeAccess]

Bonjour....

Je ne comprends pas très bien........

J'ai bel et bien un champs de texte nommé txlog2 et un formulaire nommé M_menu

Code :

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

DoCmd.OpenForm "M_menu", , , , , , txlog2.Text

......car ici tu ouvre ton formulaire "M_menu" en passant en paramètre la valeur du champ "txtlog2" qui se trouve sur ce même formulaire......
...donc qui n'est pas encore activé.....

[amerex]

J'explique:

dans mon formulaire 1, j'ai un champs de texte nommé txlogin. je veux transférer sa valeur dans le formulaire 2, dans le champs "codec". le docmd est pas mal la seule option que j'ai trouvé.

Je vais essayer les codes qui m'ont été suggérés et je vous en redonne des nouvelles.

[mout1234]

Bonsoir,

Je présume que cela vient de là: la propriété Text n'est utilisable que si le champ est actif. Hors tu es dans le code AfterUpdate du champ texte2 donc... utilises
Me!txlog2.Value ou plus simplement Me!txtlog2 (.value est la propriété par défaut d'une zone de texte)

[amerex]

En réponse à ce que Claude LELOUP m'a suggéré, le message d'erreur change seulement, j'ai : "L'ACTION OPENFORM A ÉTÉ ANNULÉE", et ça me précise l'erreur d'exécution 2501.

En cliquant sur débogage, ça me surligne la même ligne de code précédemment expliquée...

**Même message d'erreur lorsque j'essaie avec le Me!txlog... ... ...

[amerex]

En fait, normalement, lorsqu'on utilise la commande DoCmd.OpenForm, comment on exploite l'argument OpenArgs??

Pouvez-vous me donner un exemple, je pourrais m'en inspirer pour "fixer" mon trouble..

[FreeAccess]

Si tu veux passer en paramètre la valeur du champ [txtLogin] qui se trouve sur ton formulaire [Form1]...:

Code :

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

DoCmd.OpenForm "Form1", , , , , , Me.txtLogin.Value

..tout simplement....et tu récupère la valeur passée en paramètre à l'aide de OpenArgs....

Dans ton formulaire2...:

Code :

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

Me.codec.Value = OpenArgs

[amerex]

J'ai essayé tout ce que vous m'avez proposé, mais rien n'y fait...!!!

J'essaie autre chose: l'utilisation d'un module.
J'ai créé un module, au nom "temp".
Voici ce que ce module contient:

Code :

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

1
2
3
Option Compare Database
 
Public temp01 As Integer 'variable temporaire pour le nom d'utilisateur

Maintenant, comment puis-je faire pour stocker la valeur de txlogin2 dans cette variable..?

[ClaudeLELOUP]

Courage !

En fait, normalement, lorsqu'on utilise la commande DoCmd.OpenForm, comment on exploite l'argument OpenArgs??

Pouvez-vous me donner un exemple, je pourrais m'en inspirer pour "fixer" mon trouble..

Vois l'exemple en annexe

[amerex]

Merci, je vais analyser ça et travailler dessus...

[psykodumarteau]

Bonjour,

Voici une autre piste. Fais ton Docmd.Openform formulaire2 sans passage de paramètre et sur la ligne suivant tu mets Forms("formulaire2").codec = Forms("Formulaire1").txlog

Code :

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

1
2
3
 
Docmd.Openform formulaire2 
Forms("formulaire2").codec = Forms("Formulaire1").txlog

Cordialement