[AC-2007] Dépassement de capacité dans un état [Résolu]

[Rundal1]

Bonjour,

J'ai un état qui se base sur une requête. Lorsque je l'ouvre, il apparait correctement, mais dès que je vais sur le deuxième enregistrementj'ai un message d'erreur

Dépassement de capacité

La ligne concerné : If sauve = Me!Texte76 Then.

Voici le code VBA :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Compare Database
Public test As Boolean
Public compteur As Integer
Public sauve As Integer
Public TOTALPAGE As Integer   ' Nbre de page total pour un adhérent
Public PAGEENCOURS As Integer ' N° de la page en cours
Public adherent As Integer
Public SAUVEPAGE As Integer 
 
Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
test = True
sauve = 0
compteur = 1
PAGEENCOURS = 0
TOTALPAGE = 1
SAUVEPAGE = 1
adherent = 0
End Sub
 
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
    If sauve = Me!Texte76 Then
        test = False
    Else
        test = True  'Cas 1ere page Nouveau Adherent
        compteur = 1
        sauve = Me!Texte76
    End If
    If test = True Then
        Cancel = True
    End If
 
test = True
 
End Sub
 
Private Sub ZonePiedPage_Format(Cancel As Integer, FormatCount As Integer)
 
    If adherent <> Me!Texte76 Then
        PAGEENCOURS = 0
    End If
 
    PAGEENCOURS = PAGEENCOURS + 1
    adherent = Me!Texte76
    PAGE_COURANTE = "Page " & PAGEENCOURS
End Sub
 
Private Sub ZonePiedPage_Print(Cancel As Integer, PrintCount As Integer)
 
End Sub

Merci de votre aide

Cordialement.

[Access Newbie]

Bonjour,

Vous devez remplacer les lignes suivantes :

Code :

1
2
3
 
Public sauve As Integer
Public adherent As Integer

par

Code :

1
2
Public sauve As Long
Public adherent As Long

[Rundal1]

Merci beaucoup ;-)