Discussion :

[yael44]

Bonjour,

J'ai 3 tables :
T_RC, clé primaire : CodeRC (num auto) (regroupe des Réclamations Clients)
T_Avoir, clé primaire : NumAvoir (num auto), clé étrangère : CodeRC
T_AvoirProduits, clé primaire : NumAvoirProd (nom auto),clé étrangère : NumAvoir

A partir de ces tables, j'ai créé 1 formulaire principal, contenant 1 sous-formulaire, contenant lui-même 1 sous-formulaire :
F_RC contient F_SS_Avoir, formulaires reliés par les champs CodeRC
F_SS_Avoir contient F_SS_AvoirProduits, formulaires reliés par les champs NumAvoir.
(détail : les 2 sous-formulaires sont insérés dans un onglet "Avoir" du formulaire principal)

Le processus :
Je crée une Réclamation client (RC) puis je choisi dans un liste déroulante le type "Avoir" -> l'onglet Avoir s'affiche.
Le champ NumAvoir contient alors "NumAuto" car l'enregistrement n'est pas encore validé. Dès que je saisis des infos dans des champs du formulaire F_SS_Avoir, NumAvoir s'incrémente et je peux poursuivre sans pb. Mais si je n'ai pas d'infos particulière à saisir concernant cet avoir et que je passe à la sélection des lignes de produits du formulaire F_SS_AvoirProduits, les lignes s'enregistrent bien dans la table, mais en laissant le champ NumAvoir vide ! Comment forcer la création et surtout la validation d'un nouvel enregistrement dans la table avoir dès l'affichage de l'onglet, pour éviter cela?

Merci pour vos réponses
Cordialement

[nico84]

Bonjour,

A l'activation de l'onglet "avoir', il est possible de vérifier qu'un avoir existe (not recordset.eof) et sinon faire un insert into pour en créer un

[yael44]

Tout d'abord, merci pour ton aide.

J'ai donc inséré le code suivant à l'entrée du formulaire :

Code :

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

1
2
3
4
5
6
Private Sub F_Avoir_Enter()
    If Not Me.Recordset.EOF Then
        DoCmd.RunSQL "Insert into T_Avoir (CodeRC) values (Formulaires!F_RC.CodeRC)"
        Me.Requery
    End If
End Sub

Cela fonctionne, mais trop bien (!) puisque dès que je clique dans le formulaire F_Avoir ou le sous-formulaire, il recommence le test et m'ajoute des enregistrements à l'infini.
Pour info : j'ai rajouté le Me.requery car sinon le pb d'enregistrement restait le même. Et j'ai appliqué le code à l'évènement d'entrée dans le formulaire, car sur l'activation, rien ne se passait non plus.

Je ne suis pas très à l'aise avec vba. N'y a -til pas une solution via l'interface Access ? ce cas de figure de sous formulaire imbriqué me semble pourtant assez courant. Ai-je mal structuré mon interface ?

Cdlt

[nico84]

Bonjour,

Le Not est en trop : il faut insérer si EOF
Et ainsi ça marcherait aussi sur l'activation je pense.
Pour une autre solution je fais tout en VBA et il est très rare que je crée des enregistrements via l'interface access donc...