Discussion :

[Superpat9999]

Bonjour,
J'ai un formulaire avec un contrôle de navigation :

Mon code pour sauvegarder une création de catégorie :

Code :

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

1
2
3
4
5
                    If MsgBox("Voulez-vous sauvegarder ?" & vbCrLf & vbCrLf & _
                    "Création de la catégorie : """ & Me.txt_Categorie & """", vbYesNo + vbInformation, strVersion) = vbYes Then
                        DoCmd.RunCommand acCmdSaveRecord
                        DoCmd.RunSQL "INSERT INTO t_SousCat (CategorieFK) " _
                            & "VALUES (ID_CategorieFK);"

Ceci se sauvegarde instantanément dans le formulaire f_Categorie. Le problème est dans la seconde partie où je n'arrive pas à sauvegarder sur Sous-Catégorie :

Code :

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

1
2
3
                        DoCmd.RunSQL "INSERT INTO t_SousCat (CategorieFK) " _
                            & "VALUES (ID_CategorieFK);"
                            'Forms![f_SousCat].Refresh

Je n'arrive pas à valider la sauvegarde. Si je clique sur le formulaire Sous-Catégorie, il n'est pas validé, je suis obligé de fermer mon formulaire et de le rouvrir pour pouvoir voir la création.
Merci de votre aide

[nico84]

Bonjour,

Tout d'abord il faut oublier runSQL qui ne permet pas de gérer les erreurs et privilégier la syntaxe suivante :

Code :

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

1
2
3
4
5
 
Dim Sr as string
Sr="INPUT...."
'msgbox Sr 'visualise pour controle
CurrentDb.Execute Sr, dbFailOnError

L'erreur vient du fait que SQL attend la valeur contenue dans ID_CategorieFK et il recoit un nom de variable qui lui est inconnu. La bonne syntaxe est donc (à adapter si ID_CategorieFK est une string ou une date) :

Code :

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

Sr ="INSERT INTO t_SousCat (CategorieFK) VALUES (" & ID_CategorieFK & ");"

[Superpat9999]

Merci Niko84 pour ta réponse.
J'ai essayé mais pas mieux.
J'ai du mal m'exprimer. Je suis sur l'onglet Catégorie, je créée une catégorie, valide la sauvegarde (qui est bien validé dans Catégorie) et bascule sur Sous-Catégorie où elle n’apparaît pas.

Sauf si je ferme le groupe de formulaires et je l'ouvre. Je dirai que l'enregistrement dans la table est décalé.
Je pense que par un recordset, je n’aurais pas ces problèmes.

[tee_grandbois]

bonjour,

Je pense que par un recordset, je n’aurais pas ces problèmes.

j'aimerai bien savoir pourquoi ... et comment
à mon avis le problème est plus simple, il faut rafraichir les données du sous-formulaire après insertion Me.LeSousFormulaire.Requery

[hyperion13]

Salut
Les formulaires de navigation sont chouette, mais ...
A tester

Code :

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

1
2
3
4
Private Sub BoutonNavigationSousCategorie_Click()
Forms![Formulaire de navigation].SousFormulaireNavigation.Form.FormulaireSousCategorie.Form.Requery
'Forms("Formulaire de navigation").[SousFormulaireNavigation].[Form].[FormulaireSousCategorie].Requery
End Sub

[Superpat9999]

Merci à vous trois pour vos réponses.
Je me suis mal exprimé, faute de pratique sur Access, c'est un Contrôle d'onglet que j'ai installé et non un formulaire de navigation. Je m'excuse de mon manque de précision.
Je reposte mon écran en précisant :

J'ai essayé des tas de formules, mais je n'y arrive pas. Mon dernier essai infructueux :

Code :

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

Forms![_f_Navigation].CtlTab0.Pages(1).Form.FormulaireSousCategorie.Form.Requery

[tee_grandbois]

bonjour,
avec un contrôle onglet, il faut passer par la collection Controls pour récupérer le sous-formulaire et il y avait un .Form de trop:

Code :

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

Forms![_f_Navigation].CtlTab0.Pages(1).Controls("FormulaireSousCategorie").Form.Requery

[hyperion13]

Ôtez-moi d'un doute vos objets dans l'onglet sous-categorie sont bien des listbox et non pas des subform !
Pour ajouter une nouvelle categorie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub txtCat_AfterUpdate()
Dim result As VbMsgBoxResult
 
result = MsgBox("Voulez-vous enregister " & vbNewLine & _
    "cette valeur ? " & txtCat, vbYesNo + vbQuestion)
If result = vbYes Then
    CurrentDb.Execute "INSERT INTO tbl_Cat (lib_cat) VALUES ('" & Me.txtCat & "')", dbFailOnError
    Me.lstCat.Requery
    MsgBox "Categorie enregistree"
End If
End Sub

Pour ajouter une nouvelle s/categorie associée à une categorie

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub txtsCat_AfterUpdate()
If lstCat.ItemsSelected.Count <> 0 Then
    CurrentDb.Execute "INSERT INTO tbl_sCat (lib_scat, id_cat_fk) VALUES ('" & Me.txtsCat & "'," & Nz(Me.lstCat.Column(0), "") & ")", dbFailOnError
    Me.lstsCat.Requery
Else
    MsgBox "Veuillez sélectionner une categorie !"
    Exit Sub
End If
End Sub

Pour rafraichir la listbox sCat

Code :

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

1
2
3
Private Sub lstCat_Click()
Me.lstsCat.Requery
End Sub

Source de lstsCat

Code :

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

1
2
3
SELECT id_sCat, lib_sCat, id_cat_fk
FROM tbl_sCat
WHERE id_cat_fk = [Formulaires]![frm_navigation]![lstCat]

[Superpat9999]

Merci à vous 2 de prendre "soin" de ma base (et de moi) !
tee_grandbois, le code ne fonctionne pas !

Code :

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

Forms![_f_Navigation].CtlTab0.Pages(1).Controls("FormulaireSousCategorie").Form.Requery

hyperion13, je suis un peu débordé par le code et je pense que ma conception ne correspond peut-être pas à celle à laquelle tu penses (certainement pas professionnelle). Pourtant ton tableau des relations est parfait. Aussi je joins mon fichier, ce qui sera plus facile.
Je crée une catégorie dans l'onglet Catégorie et la sous-Catégorie dans l'onglet Sous-Catégorie.
Il ne peut y avoir de sous-catégorie sans Catégorie. Donc actuellement si on veut faire une Catégorie et la Sous-Catégorie dans l'affilé, c'est impossible.

Il est à noter qu'après ma validation de nouvelle catégorie, si je ne m'occupe pas de la sous-catégorie. Je ferme le formulaire, j'ouvre et la sous-catégorie apparaît.

[tee_grandbois]

tee_grandbois, le code ne fonctionne pas !

il faut simplement mettre le BON nom du sous-formulaire (que l'on ne peut pas deviner tant qu'on n'a pas la base sous les yeux)

Code :

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

Forms![_f_Navigation].CtlTab0.Pages(1).Controls("Formulaire Sous Catégorie").Form.Requery

ou "Formulaire Catégorie" on ne sait pas trop lequel est impacté
PS, je n'ai pas pu tester étant donné que j'ai un PC dont la résolution ne permet pas d'afficher la totalité de formulaire ...

[tee_grandbois]

en fait le code n'est pas bon puisque l'évènement impacté est dans le sous-formulaire (BtnEnregistrer_Click) inutile, donc, de préciser le nom du formulaire principal, de l'onglet et de la page, Me.Requery suffit

[Superpat9999]

il faut simplement mettre le BON nom du sous-formulaire (que l'on ne peut pas deviner tant qu'on n'a pas la base sous les yeux)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Forms![_f_Navigation].CtlTab0.Pages(1).Controls("Formulaire Sous Catégorie").Form.Requery
ou "Formulaire Catégorie" on ne sait pas trop lequel est impacté

Me revoilà, et bien rien de bon :

Code :

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

Forms![_f_Navigation].CtlTab0.Pages(1).Controls("Formulaire Sous Catégorie").Form.Requery

Pas d'erreur, mais il n'enregistre pas dans sous-catégorie.

Code :

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

Forms![_f_Navigation].CtlTab0.Pages(1).Controls("Formulaire Catégorie").Form.Requery

Erreur

Est-ce que si mon formulaire Catégorie, basée sur une requête (mieux construite peut-être), avec incorporé la Sous-Catégorie, pourrait enregistrer dans les 2 tables simultanément ?

[tee_grandbois]

bonjour,
as-tu regardé mon dernier message ?

[Superpat9999]

bonjour,
as-tu regardé mon dernier message ?

Oui, bien sûr, le me.requery y est depuis le début

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
    If Me.Dirty = True Then ' Si enregistrement n'est pas modifié
        If IsNull(Me.txt_Categorie) Then
            MsgBox "Catégorie vide, pas de création", vbOKOnly + vbCritical, strVersion
        Else
            ' On vient de modifier 1 cas : 1-existe dans sous-categorie ==> doublons dans Categorie
            ' 1 cas Nouveau ==> pas doublons dans Categorie
            'Gérer les doublons dans t_Categorie     False --> Enregistrement non trouvé
            RetourRequête = RstDoubleCategorie(Resultat)
            Debug.Print "Resultat Catégorie : " & Resultat
            If Resultat = False Then 'non trouvé doublon Catégorie
                If bolBtnModifier = True Then 'On vient du bouton modifier donc on vérifie que le nouveau n'existe pas dans t_SousCategorie
                    If MsgBox("Voulez-vous sauvegarder les modifications ?" & vbCrLf & vbCrLf & _
                    "Modification de la catégorie, """ & strtxtCategorie & """ devient : """ & Me.txt_Categorie & """", vbYesNo + vbInformation, strVersion) = vbYes Then
                        DoCmd.RunCommand acCmdSaveRecord
                    Else
                        Me.Undo
                    End If
                Else
                    If MsgBox("Voulez-vous sauvegarder ?" & vbCrLf & vbCrLf & _
                    "Création de la catégorie : """ & Me.txt_Categorie & """", vbYesNo + vbInformation, strVersion) = vbYes Then
'                        DoCmd.RunSQL "INSERT INTO t_SousCat (CategorieFK) " _
'                            & "VALUES (ID_CategorieFK);"
                        DoCmd.RunCommand acCmdSaveRecord
                        Sr = "INSERT INTO t_SousCat (CategorieFK) VALUES (" & ID_CategorieFK & ");"
                     CurrentDb.Execute Sr, dbFailOnError
                     'Me.Requery
                     'Forms![_f_Navigation].CtlTab0.Pages(1).Requery
'     Me.CtlTab0.Pages(1).SetFocus

'Forms![_f_Navigation].CtlTab0.Pages(1).Controls("Formulaire Catégorie").Form.Requery
'Me.Requery
                     

                    Else
                        Me.Undo
                    End If
                End If
            Else
                MsgBox "Impossible de créer : """ & Me.txt_Categorie & """ , la fiche existe déjà !", vbOKOnly + vbCritical, strVersion
                Me.Undo
            End If
        End If
        Me.Refresh
        Me.Requery

Mais je l'ai aussi essayé derrière la requête, cela ne change rien.
Je joins un fichier avec des écrans réduits (à priori et à essayer).

[tee_grandbois]

OK, en relisant depuis le début et en ayant pu tester dans de bonnes conditions, j'ai compris le processus. Il faut effectivement mettre à jour les 2 zones de liste du sous-formulaire Sous Catégorie (comme l'a indiqué hyperion13 dans son dernier post)
il faut ajouter ces 3 lignes:

Code :

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

1
2
3
                    Forms![_f_Navigation].CtlTab0.Pages(1).Controls("Formulaire Sous Catégorie").Requery
                    Forms![_f_Navigation].CtlTab0.Pages(1).Controls("Formulaire Sous Catégorie").Form.lst_Categories.Requery
                    Forms![_f_Navigation].CtlTab0.Pages(1).Controls("Formulaire Sous Catégorie").Form.lst_CategoriesSousCat.Requery

à placer juste après ces lignes de commande:

Code :

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

1
2
3
4
5
6
                        DoCmd.RunCommand acCmdSaveRecord
                        DoCmd.RunSQL "INSERT INTO t_SousCat (CategorieFK) " _
                            & "VALUES (ID_CategorieFK);"
                        DoCmd.RunCommand acCmdSaveRecord
                        Sr = "INSERT INTO t_SousCat (CategorieFK) VALUES (" & ID_CategorieFK & ");"
                        CurrentDb.Execute Sr, dbFailOnError

qui, d'ailleurs, créent 2 enregistrements à vide dans la table t_SousCat: est-ce volontaire ?

[Superpat9999]

Merci tee_grandbois, on avance

qui, d'ailleurs, créent 2 enregistrements à vide dans la table t_SousCat: est-ce volontaire ?

Pas du tout, je n'en veux qu'un seul vide, qui correspond à une catégorie sans sous-catégorie.

[tee_grandbois]

Pas du tout, je n'en veux qu'un seul vide

dans ce cas il faut enlever cette instruction (qui, en plus, n'est pas correcte):

Code :

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

1
2
                         DoCmd.RunSQL "INSERT INTO t_SousCat (CategorieFK) " _
                            & "VALUES (ID_CategorieFK);"

et garder celle-ci, plus conforme dans VBA:

Code :

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

1
2
                        Sr = "INSERT INTO t_SousCat (CategorieFK) VALUES (" & ID_CategorieFK & ");"
                        CurrentDb.Execute Sr, dbFailOnError

[Superpat9999]

dans ce cas il faut enlever cette instruction (qui, en plus, n'est pas correcte):

Merci, effectivement, je l'avais mis en commentaire pour l'enlever... enfin, je ne l'ai pas mis en commentaire.
Et bien je vous remercie tous pour vos aides précieuses qui m'aident à continuer mon petit développement et surtout me fait travailler le cerveau.
PS. Tout seul et même à l'aide des forums, je n'aurai jamais trouvé la solution !