Fermeture formulaire

Bonjour,

J'ai un formulaire (sous access97) avec un code sur un boutton. Une fois le
code exécuté je demande que le formulaire se referme.
Mon problème est qu'il n'exute l'action Docmd .close que de temps à autre et
de plus il ferme tous mes formulaires invisibles !!!!

Je ne comprend pas ! Quelqu'un aurait-il une piste ?

Le code complet :

Private Sub BtnOui_Click()
Set NomForm = Forms!F_DPX_Gestion_DonneesReference
TableDestDPX = Forms!F_DPX_Gestion_DonneesReference!ChoixTable.Column(2)

DoCmd.SetWarnings False
DoCmd.Hourglass True

DoCmd.OpenQuery "R_Sup_" & TableDestDPX
DoCmd.OpenQuery "R_Maj_" & TableDestDPX
DoCmd.Hourglass False

If Forms!F_DPX_Gestion_DonneesReference!CtrlOuverture = 0 Then
DoCmd.Beep
MsgBox "Le remplacement des données Administrateur s'est effectué
correctement." & vbCrLf & _
"Les résultats sont exploitables.", vbInformation, "Gestion
des données."

ExprSQL3 = "SELECT DISTINCT [" & TableDestDPX & "].An, [" &
TableDestDPX & "].Mois FROM [" & TableDestDPX & "];"
NomForm![ListeMois3].RowSource = ExprSQL3
NomForm.Recalc

Else
MsgBox "Les anciennes données ont correctement été remplacées " &
vbCrLf & _
"par celle de l'Administrateur.", vbInformation, "Mise à
jour."
ExprSQL3 = "SELECT DISTINCT [" & TableDestDPX & "].An, [" &
TableDestDPX & "].Mois FROM [" & TableDestDPX & "];"
NomForm![ListeMois3].RowSource = ExprSQL3
NomForm.Recalc

End If

Forms!F_DPX_Gestion_DonneesReference!CtrlOuverture = 0
DoCmd.SetWarnings True
DoCmd.Hourglass False
DoCmd.Close


End Sub

Merci

Patrice