Discussion :

[Superpat9999]

Bonjour,
J'ai une fenêtre nodal : f_OperationNouveau, lorsque je la ferme, j'ai tout enregistré et un nouvel enregistrement se trouve dans ma base de données.
Lorsque je la ferme la fenêtre en dessous (qui était déjà ouverte) ne se met pas à jour avec le nouvel enregistrement.
Où mettre un Requery, dans quel formulaire et à quel endroit ?
Mon code de fermeture :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub BtnFermer_Click()
   strNomProcedure = "btnFermer_Click"
   On Error GoTo errSub
    If Ouverture = "Ope_Nouv_New" Then         ' On est sur Créer
           If Form.NewRecord And Not Form.Dirty Then  ' Si enregistrement est pas modifié
            MsgBox "Pas de sauvegarde d'enregistrement vide !", vbOKOnly + vbCritical, strversion
       Else
            Me.txt_LongCompteFK = LongCompteFK
       End If
    End If
      Me.Refresh
Me.Requery
''Me.Form!["_f_Navigation"].f_Operation.Form.Requery
'Forms!f_Operation.Requery
 
    DoCmd.Close acForm, "f_OperationNouveau"

J'ai essayé un truc du genre :

Code :

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

Forms!["_f_Navigation"].f_Operation.Form.Requery

Mais ça ne fonctionne pas

[nico84]

Bonjour,

Je connais 2 syntaxes :

Code :

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

1
2
Forms("_f_Navigation").Requery
Form__f_Navigation.Requery

Attention dans la 2e il y a 2 _

[Superpat9999]

Bonjour,

Je connais 2 syntaxes :

Code :

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

1
2
Forms("_f_Navigation").Requery
Form__f_Navigation.Requery

Attention dans la 2e il y a 2 _

Merci beaucoup pour ta réponse, mais cela ne fonctionne pas, car le formulaire à mettre à jour est f_Operation. Et le fait de mettre à jour le formulaire de navigation n'influence pas le "sous-formulaire ???"

[tee_grandbois]

bonjour,
essaie en enlevant Form du sous-formulaire:

Code :

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

Forms!["_f_Navigation"].f_Operation.Requery

[Superpat9999]

Helas, tee_grandbois, cela ne fonctionne pas plus

[tee_grandbois]

oui mais, d'après le message, c'est la syntaxe qui ne va pas ... je rectifie:

Code :

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

Forms("_f_Navigation").f_Operation.Requery

[Superpat9999]

Malheureusement, toujours pas :

Avant ou après la fermeture du formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub BtnFermer_Click()
   strNomProcedure = "btnFermer_Click"
   On Error GoTo errSub
    If Ouverture = "Ope_Nouv_New" Then         ' On est sur Créer
           If Form.NewRecord And Not Form.Dirty Then  ' Si enregistrement est pas modifié
            MsgBox "Pas de sauvegarde d'enregistrement vide !", vbOKOnly + vbCritical, strversion
       Else
            Me.txt_LongCompteFK = LongCompteFK
       End If
    End If
    Me.Requery
    DoCmd.Close acForm, "f_OperationNouveau"
    Forms("_f_Navigation").f_Operation.Requery

[tee_grandbois]

sans autre information je n'ai pas d'autre idée.
Pour moi, la syntaxe étant correcte, il faudrait chercher ailleurs ...
Dans un premier temps, je te conseillerait de passer par la gestion d'erreur interne d'Access car l'erreur affichée dans la boîte message n'est pas suffisante pour cerner le problème vu que la ligne en erreur n'est pas reconnue (ligne N° : 0)

[Superpat9999]

tee_grandbois, j'ai numéroté les lignes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub BtnFermer_Click()
10      strNomProcedure = "btnFermer_Click"
        On Error GoTo errSub
20      If Ouverture = "Ope_Nouv_New" Then         ' On est sur Créer
           If Form.NewRecord And Not Form.Dirty Then  ' Si enregistrement est pas modifié
              MsgBox "Pas de sauvegarde d'enregistrement vide !", vbOKOnly + vbCritical, strversion
30         Else
            ' On vérifie les champs s'ils sont remplis
40            Me.txt_LongCompteFK = LongCompteFK
           End If
       End If
50     Me.Requery
60     DoCmd.Close acForm, "f_OperationNouveau"
70     Forms("_f_Navigation").f_Operation.Requery

Pour reproduire erreur :
Formulaire f_Navigation, onglet f_Operation, Bouton Ajouter Enregistrement, Remplir 1 ou 2 champs, Bouton fermer formulaire.

[tee_grandbois]

bonjour Superpat9999,
le nom du sous-formulaire de navigation est inscrit dans la propriété Nom du sous-formulaire et pas le nom de l'objet formulaire associé:



voici le code corrigé :

Code :

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

70          Forms("_f_Navigation").SousFormulaireNavigation.Requery

on peut également l'écrire ainsi : Forms("_f_Navigation").SousFormulaireNavigation.Form.Requery

ATTENTION: dans chaque onglet le nom SousFormulaireNavigation est le même mais comme un seul onglet peut être actif à la fois, c'est celui de l'onglet actif (f_operation) qui sera mis à jour dans ce cas.

J'ai vu aussi qu'il existe une propriété FormName associé à l'objet sous-formulaire de navigation qui donne le nom de l'objet du formulaire associé à l'onglet:

Code :

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

1
2
?Forms("_f_Navigation").SousFormulaireNavigation.form.Formname
f_Operation

[Superpat9999]

Merci tee_grandbois, tout fonctionne parfaitement.
Je me sens tout petit devant tes connaissances, moi je suis obligé d'essayer 50 trucs avant, de lire 300 pages pour ne pas réussir.