Discussion :

[froutloops62]

Bonjour,

La question est dans le sujet, je voudrais dans mon formulaire un bouton qui ajoute un enregistrement dans le sous formulaire.

Comment dois je procéder ?

Merci de vos réponse.

[francishop]

Bonjour,

Il manque quelque explication à la demande.

Peut-être en faisant l'inverse de :
http://www.developpez.net/forums/sho...ghlight=copier

Peut-être qu'il s'agit d'un nouvel enregistrement :

Code :

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

1
2
Me.TonSousFormulaire.SetFocus
DoCmd.RunCommand acCmdRecordsGoToNew

Peut-être :
http://support.microsoft.com/default...%3Bfr%3B208824
Ou :
http://mypage.bluewin.ch/w.stucki/Fo....htm#CopieForm

Ou :

Code :

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

1
2
3
4
5
6
DoCmd.SetWarnings False
Dim Qry As DAO.QueryDef
Set Qry = CurrentDb.QueryDefs("TaRequêteAjout")
Qry.Execute
Set Qry = Nothing
DoCmd.SetWarnings True

(Avec quelque "requery" pour mettre à jour.)

Ou encore :

Code :

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

1
2
3
4
CurrentDB.Execute ( _
    "INSERT INTO TaTable ( Champ_AvecTexte, Champ_AvecNumérique, Champ_AvecDate ) " _
    "VALUES ('" & Me!ChampTexte & "'," & Me!ChampNumérique & "," _
              & Format(Me!ChampDate,"#MM-DD-YYYY#") & ");"

Etc.

Cordialement.

[froutloops62]

Code :

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

1
2
Me.TonSousFormulaire.SetFocus
DoCmd.RunCommand acCmdRecordsGoToNew

ça me suffit merci beaucoup