Discussion :

[Rickhq]

Bonjour à vous,

Je souhaite commander à partir d'une case à cocher [Réservé] d'un sousform [F_SFPlageDispoCorrection] la fonction "NewRec" sur un autre sousForm [F_PlageCorrige]

J'ai inserré ce code dans ; Private Sub Réservé_AfterUpdate()

Code :

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

DoCmd.GoToRecord acDataForm, Me.Parent![F_PlageCorrige].Form!, acNewRec

Merci à l'avance!

[Rickhq]

I Got it!!!!!!!!

Code :

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

1
2
Me.Parent![F_PlageCorrige].SetFocus
DoCmd.GoToRecord , , acNewRec

Avec un peu de recherche.... Vive les forum!!!

[RobiPMS]

Bonjour.
J'étais en train de te rédiger cette procédure quand j'ai vu que tu avais trouvé. Personnellement, si je comprends bien ce que tu veux, j'ajouterais une condition

Code :

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

1
2
3
4
If Me!Réservé= True Then
Me.Parent![F_PlageCorrige].SetFocus
DoCmd.GoToRecord , , acNewRec
End If

Pour éviter que si on décoche la case, la procédure ne soit aussi lancée.
Cordialement