Discussion :

[ThieBEN]

Bonjour à tous,
Petite question : J'ai un formulaire ou je rentre des noms prénoms d'adhérents et un bouton de cmd sur ce même formulaire qui m'ouvre un second formulaire ou je rentre des données. le probléme réside au niveau de la fermeture du deuxième formulaire quand je le ferme au lieu de revenir sur la fiche de l'adhérent que je suis entrain de saisir il revient au premier de la liste.
c'est embêtant. quelqu'un à t'il une idée. j'ai parcouru la FAQ rien .
Merci

[francishop]

Bonsoir,

Petite question : ce même formulaire qui m'ouvre un second formulaire ou je rentre des données. le probléme réside au niveau de la fermeture du deuxième formulaire quand je le ferme au lieu de revenir sur la fiche de l'adhérent que je suis entrain de saisir il revient au premier de la liste.

Je crois que la réponse se trouve dans la question.. Quel est le code qui ouvre le second formulaire? Ce même code employé lors de la fermeture de ce second formulaire au bénéfice du premier?

Cordialement.

[ThieBEN]

Bonjour,
Le code qui ouvre le second formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Commande46_Click()
On Error GoTo Err_Commande46_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "SITUATION ADMINISTRATIVE"
 
    stLinkCriteria = "[N°adhérent]=" & Me![N°adhérents]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande46_Click:
    Exit Sub
 
Err_Commande46_Click:
    MsgBox Err.Description
    Resume Exit_Commande46_Click
En Sub

Le code qui ferme le second formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande37_Click()
On Error GoTo Err_Commande37_Click
    DoCmd.Close
 
Exit_Commande37_Click:
    Exit Sub
 
Err_Commande37_Click:
    MsgBox Err.Description
    Resume Exit_Commande37_Click
 
End Sub

Merci

[ThieBEN]

RESOLU il y avait une erreur sur le formulaire principal