Discussion :

[Milyshyn76]

Bonjour à tous,

J'exécute un code qui me permet de créer des contrôles dans un état :

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
Public Sub alignEntete()

    Dim ctlEtiquette As Control
    Dim rst As DAO.Recordset
    Dim int_NbrEnr As Integer
    Dim i As Variant
    
    DoCmd.OpenReport "T_PresentationEtat", acViewDesign
 
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM Client")
    rst.MoveLast
    int_NbrEnr = rst.Fields.Count
    
    For i = 0 To int_NbrEnr - 1
    
        Set ctlEtiquette = CreateReportControl("T_PresentationEtat", acLabel, acHeader, , rst.Fields(i).Name, 6000, 9)
    Next i
    DoCmd.OpenReport "T_PresentationEtat", acViewPreview
End Sub

Le hic est qu'a chaque fois que je ferme cet état, je dois confirmer la sauvegarder de ce dernier.

Hors pour des raisons de fonctionnalité, j'aurai souhaiter que l'état ne s'enregistre pas à sa fermeture et que je n'ai pas de confirmation par boite de dialogue.

Y a t-il une solution en code pour éviter la confirmation de l'enregistrement de l'état ?

Merci !

[ClaudeLELOUP]

Bonjour,

Après avoir fait tes modif ajoute ceci

Code :

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

DoCmd.Close acReport, "LeNomEtat",acSaveNo

[argyronet]

Bonjour,

Une idée:

Code :

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

1
2
3
4
5
Sub Test()
    DoCmd.SetWarnings False
    alignEntete
    DoCmd.OpenReport "T_PresentationEtat", acViewPreview
End Sub

et tu enlèves :

Code :

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

DoCmd.OpenReport "T_PresentationEtat", acViewPreview

de ta procédure alignEntete...

Par contre il te faudra trouver le moyen de rétablir les alertes :

Code :

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

DoCmd.SetWarnings True

Argy

[Milyshyn76]

Oui mais non, en réalité je veux que ce code soit dans l'évènement Report_Close() .... j'ai déjà essayer et cela ne marche pas

[ClaudeLELOUP]

Oblige l'utilisateur à sortir de l'état en cliquant sur un bouton auquel tu associes le code que je te propose.

[Milyshyn76]

Écoute, ton

Code :

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

Docmd.SetWarning = false

est GE NIAL !

Le hic, c'est que à ça fermeture, l'état prends en compte les modifications effectuées dynamiquement par mon code ci-dessus...
Y a t-il un moyen de ne pas prendre en compte ces modifications à la fermeture de mon état ?

Merci de ton aide !

[GohanSSj2]

Bonjour,

J'en suis au même point que toi Milyshyn76.
Je cherche à fermer un état sans sauvegarder.
Cela ralenti considérablement ma base alors qu'il ne sert juste à faire de la visualisation.

J'ai créer un post la dessus mais je n'ai aucune réponse.
As-tu trouver une solution ?

Edit : je vais tout de même essayer de faire quelque chose avec la commande de ClaudeLELOUP car cela fait exactement de dont j'ai besoin. (Créer une barre de menu spécialement pour l'état .... pourquoi pas)

[ClaudeLELOUP]

Bonjour GohanSSj2,

quel est ton problème au juste.
ou donne ici le lien de ton post, j'irai voir.

[GohanSSj2]

c'est good

http://www.developpez.net/forums/d10...strement-etat/

Merci ^^