Discussion :

[foste]

Bonjour,

Lorsque je visualise ou que j'imprime un etat x fois de suite, il arrive au bout d'un moment que des sous-etats ne s'impriment plus.
Je pense que la memoire ne se vide pas. Comment puis-je faire (si c'est ca) pour la vider en dehors des set rst=nothing.

Merci, Carine

[Arkham46]

Slt,

Difficile de faire la liste de tous les objets pouvant être libérés...

Il y a quoi de spécial dans ton code d'impression?

[foste]

Dans le code d'impression j'ai :

Code :

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

1
2
3
    DoEvents
    Me.Refresh
    DoCmd.OpenReport "Permis de feu", , , "[PF_ID]=" & Me.PF_ID

puis un code pour envoyer un mail :

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
  Dim sendto, sendcopy, sujet, message, S As String
(je remplie les sendto, sendcopy, sujet et message par du texte ou des dlookup)
S="select ..."
    Dim MaTable As Recordset
    Set MaTable = CurrentDb.OpenRecordset(S, dbOpenDynaset)
    If Not (MaTable.EOF And MaTable.BOF) Then
        MaTable.MoveFirst
        While Not MaTable.EOF
            message = message & "Opération : " & MaTable("Operation_usuelle") & vbCrLf
            MaTable.MoveNext
        Wend
    End If
    MaTable.Close
    Set MaTable = Nothing
 
envoi du mail

Le mail est bien envoye a chaque fois.

Dans l'etat j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub GroupHeader1_Format(Cancel As Integer, FormatCount As Integer)
    Select Case Me.PF_ATMEL_EEI
        Case Is = 1    
            Me.Subreport_PF_EEI.Visible = True
        Case Is = 2     
            Me.Subreport_PF_Atmel.Visible = True
    End Select
 
End Sub

Avant ca, j'ai un bouton validation qui active ou non le bouton d'impression.

Voila, je vois rien d'extraordinaire.
Precision : je suis en Access97.

Merci, Carine

[cafeine]

Hello

juste une remarque sur tes déclarations

Code :

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

Dim sendto, sendcopy, sujet, message, S As String

sendto, sendcopy, sujet et message sont définis en Variant ...

la bonne manière de faire est :

Code :

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

Dim sendto As String, sendcopy As String, sujet As String, message As String, S As String

[Arkham46]

L'appel à direct à CurrentDb est à éviter

Essaye :

Code :

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

1
2
3
4
5
6
Dim lDB as DAO.DataBase
Set lDB = CurrentDb
...
Set MaTable = lDB.OpenRecordset(S, dbOpenDynaset)
...
Set lDB = Nothing

(A voir aussi le code d'envoi de mail, il y a peut-être quelque chose qui bloque dedans?)

[foste]

Merci a vous deux, je corrige et je vous tiens au courrant.

Merci, Carine