Discussion :

[Oreo_]

Bonjour à tous,

Je reviens avec mes petits soucis de sous-formulaires...
En fait, j'ai un formulaire F_1 composé d'un sous-formulaire SF_1. Dans ce formulaire, un bouton (bouton_1) permet d'ouvrir le formulaire F_2 (avec le formulaire F_1 qui reste ouvert).
Une fois que l'utilisateur est dans le formulaire F_2, je voudrais qu'il puisse cliquer sur un bouton (bouton_2) qui le permettra d'ouvrir le formulaire F_1 (formulaire qui est en fait déjà ouvert puisque le code affecté au bouton_1 n'exige pas sa fermeture) déjà rempli mais avec le SF_1 qui lui s'ouvre sur un nouvel enregistrement.

J'ai essayé d'affecter ce code au bouton_2 :

Code :

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

1
2
3
4
5
6
Private Sub bouton_2_Click()
'Ouvre le formulaire F_1 avec uniquement le Sous-formulaire SF_1 qui s'ouvre sur un nouvel enregistrement
    DoCmd.OpenForm "F_1"
    DoCmd.OpenForm "SF_1"
    DoCmd.GoToRecord , , acNewRec
End Sub

Sans surprise, il ne marche pas et ouvre uniquement le SF_1 sur un nouvel enregistrement (détaché du formulaire F_1)

Comment dois-je adapter mon code s'il vous plait?

Merci d'avance!

[nico84]

Bonjour,

Je pesne que ça peut se faire comme ça :

Code :

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

1
2
3
4
5
Private Sub bouton_2_Click()
'Ouvre le formulaire F_1 avec uniquement le Sous-formulaire SF_1 qui s'ouvre sur un nouvel enregistrement
    DoCmd.OpenForm "F_1"
    call forms("SF_1").new_rec
End Sub

Et dans SF_1, il faut prévoir une petite sub du genre :

Code :

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

1
2
3
public sub new_rec
    DoCmd.GoToRecord , , acNewRec
end sub

[Oreo_]

Bonjour Nicolas,
merci pour ta solution, je l'ai essayé mais un message d'erreur s'affiche :
"Erreur d'exécution '2450' :
Access ne trouve pas le formulaire "SF_1" auquel il fait référence."

Et cette ligne est surlignée :

Code :

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

Call Forms("SF_1").new_rec

Je pense qu'il faut adapter le code de manière à ce qu'Access comprenne aussi que le sous-formulaire est ouvert mais je ne sais pas comment...

[nico84]

Bizarre

Un sous-formulaire a 2 noms : celui sous-formulaire et celui du formulaire appelé (propriété "objet source"). C'est le 2e nom qu'il faut mettre !

[Oreo_]

Oui et celui de mon sous-formulaire est bien SF_1...

[nico84]

Il y a un truc qui cloche mais je ne vois pas quoi...
Est-ce que ça marche avec une sub plus simple ?

Code :

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

1
2
3
public sub new_rec
    msgbox "coucou"
end sub

[Oreo_]

Et non ça ne marche pas non plus... :s

Et au fait, pourquoi public sub au lieu de private?

[nico84]

Public car elle est appelée depuis F_2

[madefemere]

Bonsoir,
Est-ce que l'utilisation de setfocus comme ceci serait la solution?

Code :

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

1
2
3
4
 
DoCmd.OpenForm "F_1"
Forms!F_1!SF_1.SetFocus
DoCmd.GoToRecord , , acNewRec

Mandresy

[Oreo_]

Oui mercii Mandresy!