[AC-2007] Nettoyage d'un champ [Résolu]

[isarian]

Bonjour,

Je n'arrive pas à faire un clear d'un champs dans un formulaire à partir d'un sous formulaire.

Je m'explique.

Mon projet, Un inventaire pour des livraisons. Une personne vient chercher son colis, on scan la personne, on voit combien il a droits d'articles et on coche la case recu et on sauve.

Mais lors de la sauvegarde de l'article faut qu'il y ait un nettoyage du champs.

Le code de mon bouton sauvegarde est le suivant;

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Commande21_Click()
On Error GoTo Err_Commande21_Click
 
    DoCmd.RunCommand acCmdSaveRecord
    Dim mydate As Date
 
    If (Me.Reception.Value = True) Then
    mydate = Date       'date au format standard c'est à dire "mois/jour/année"
    Me.Date_Reception.Value = Format(mydate, "dd/mm/yyyy")
 
    End If
 
Exit_Commande21_Click:
    Exit Sub
 
Err_Commande21_Click:
    MsgBox Err.Description
    Resume Exit_Commande21_Click
 
End Sub

Mon champs a nettoyer s'appel rn.
Le soucis que je rencontre est que ce champs se trouve dans un autre formulaire.

je mets en fichier joint un screen et en encadrer le champs que je souhaiterais nettoyer.

Merci de votre aide.

Cordialement

Isarian

[Arkham46]

bjr,

utilisez Parent pour remonter au formulaire principal :

Code :

me.parent.rn = null

[isarian]

Super nikel Merci.

Résolu.

[isarian]

Question bete et dans le cas inverse un bouton en haut, qui va verifier une valeur dans la fenetre enfant?

J'ai un champs RN et dois aller verifier si la case reception est coché il doit me mettre un message.

Donc j'avais essayé un code

Code :

1
2
3
If (Me.Parent.Reception.Value = True) Then MsgBox (blabla)
 
End If

Mais cela aurait été trop simple si cela avait fonctionné du premier coups

Merci d'avance

[Arkham46]

Envoyé par isarian

Question bete et dans le cas inverse un bouton en haut, qui va verifier une valeur dans la fenetre enfant?

il faut passer par le nom du contrôle sous-formulaire

voir tous les appels ici :
http://loufab.developpez.com/tutorie...pelformulaire/

[isarian]

je viens d'essayer

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Commande16_Click()
On Error GoTo Err_Commande16_Click
If (Forms.sac_poubelles.Reception.Value = True) Then MsgBox ("Merci")
End If
 
    DoCmd.RunCommand acCmdRefresh
 
Exit_Commande16_Click:
    Exit Sub
 
Err_Commande16_Click:
    MsgBox Err.Description
    Resume Exit_Commande16_Click
 
End Sub

Mon formulaire de base se nome Formulaire1 il contient donc le champs avec le numero RN. et mon formulaire "sac_poubelles" contient le champs que je dois verifier, si case coché le numéro je dois afficher un message.

Mais je reçois le message d'erreur

Code :

Erreur de compilation End If sans bloc If

[Arkham46]

il faut aller à la ligne après le Then pour commencer un bloc if...end if
sinon le end if est superflu si tout est sur une seule ligne

[isarian]

Dans ce cas la il me met,

Propriété ou méthode non gérée par cet objet

mon code est le suivant

Code :

1
2
 
If (Forms.Sac_poubelles.Reception.Value = True) Then MsgBox ("Merci")

Une idée?

[Arkham46]

voir le lien donné au-dessus
il y a le code qu'il faut pour descendre d'un niveau et ce n'est pas du tout ce que tu écrits

[isarian]

J'avoue que j'ai un peu de mal.


Cela doit être quelque chose du style?

Code :

Forms.Frm_principal.sous_formulaire.mon_champs.Value

[Arkham46]

prend le temps de lire l'article en entier

il y est dit qu'on peut remplacer :

Code :

Forms.Frm_principal

par

Code :

Me

quand on est dans le module de code d'un formulaire

et il manque le .form après le sous_formulaire (cf chapitre IV)

[isarian]

Nikel J'ai compris.

Merci