Discussion :

[kiki51500]

Bonjour à tous

J'ai cree un module dont je recopie ici les lignes

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
19
20
21
22
23
24
Option Compare Database
Function existeFileFSO(ByVal fichier As String) As Boolean
Set fs = CreateObject("Scripting.FileSystemObject")
existeFileFSO = fs.FileExists(fichier)
Set fs = Nothing
End Function
 
Public Function ImpGestionEtRythme()
Dim Msg, Style, Title, Response, MyString
Msg = "Attention ! Il est important que la mise à jour des listes ait bien été faite avant de continuer." & vbCrLf & "Est ce le cas ?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Boite d'alerte"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
    DoCmd.OpenReport "doc1", acViewPreview
    DoCmd.OpenReport "doc2", acViewPreview
    DoCmd.OpenReport "doc3", acViewPreview
    DoCmd.OpenReport "doc4", acViewPreview  
    DoCmd.Close
    Else
    MsgBox "Alors, mettez à jour les listes avant de continuer !"
Exit Function
End If
End Function

Mon souci est quand j’exécute mon module via mon menu general il m'ouvre bien mes 3 PREMIERS états mais JAMAIS le dernier
je me suis amusé à changer l'ordre d'ouverture et le dernier reste désespérément fermé.

Quelle est mon erreur?

Merci à vous

[kiki51500]

Oups,
je me suis relu et j'ai trouvé mon erreur, un docmd.close trainait par là...
Désolé et merci

[marot_r]

Bonjour.

C'est le :

Code :

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

DoCmd.Close

Par défaut, il ferme l'objet actif et ici c'est ton rapport.

Si tu veux fermer le formulaire actif, personnellement je fais :

Code :

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

docmd.close acForm, me.name

Ce qui évite les confusions.

A+

[kiki51500]

Merci à toi d'avoir pris le temps de me répondreJe note ton astuce
Merci