Discussion :

[Dafbau]

Bonjour
La situation :
Un formulaire avec deux sous formulaires :
Le but : transférer une partie des controles du deuxieme sous formulaire vers le premier après avoir coché une case Oui/Non
J'arrive à copier en fonction de la valeur de la case à cocher du deuxième sous formulaire vers le premier sous formulaire.
Mais si je coche un nouvel enregistrement dans le deuxième sous formulaire, la copie vers le premier sous formulaire ecrase la précedente manip.
Comment faire pour que après la copie du premier enregistrement, le premier sous formulaire soit enregistré (alors qu'il n'est pas actif) et que la prochaine copie se fasse sur un nouvel enregsitrement
Voila le code :

Code :

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

1
2
3
4
5
If EmbLivre = True Then
stKg = Me![QteEmbK]
Forms![formNelleSortie]![ssformNelleSortieDetail]!PoidEmbal = stKg
Else
End If

J'ai essayé avec

Code :

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

DoCmd.GoToRecord acDataForm, Forms![formNelleSortie]![ssformNelleSortieDetail], acNewRec

mais le formulaire n'est pas ouvert

Merci

[LedZeppII]

Bonsoir,

Essaie de cette manière :

Code vb :

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

1
2
3
 
Forms![formNelleSortie]![ssformNelleSortieDetail].SetFocus
DoCmd.GoToRecord acActiveDataObject,, acNewRec

A+

[Dafbau]

merci
mais le sous formulaire n'étant pas activé ne reçoit pas le focus.
par contre je suis en train de tester une manip débile.
J'ai créé deux sous formulaire de la meme table (le premier dans ma question)
L'un en ajout seul (non visible), l'autre sans l'ajout
Lorsque le premier est renseigné il se repositionne aussitot sur un nouvel enregistrement,
Le deuxième (visible) affiche alors tous les enregistrements.
Pour l'instant je teste et ça à l'air de fonctionner
(la route des etoiles vers le paradis n'a pas l'air bien loin...)

[LedZeppII]

Je pense que si tu n'arrives pas à donner le focus au contrôle du sous-formulaire,
c'est que le formulaire principal n'a pas le focus non plus.

Code :

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

1
2
3
Forms![formNelleSortie].SetFocus
Forms![formNelleSortie]![ssformNelleSortieDetail].SetFocus
DoCmd.GoToRecord acActiveDataObject,, acNewRec

[Dafbau]

Merci LedZep
Effectivement ta méthode est nettement plus efficace que la mienne et fonctionne parfaitement.