j'ai un broblème d'affichage de report, message d'erreur :

Run-time error '20525':
Impossible de charger l'état

voilà le code :

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
25
26
Private Sub CmdEtat_Click()
Dim ok, ok1 As Long
Dim user_id As String
Dim Passwd_id  As String
 
user_id = "user"
Passwd_id = "mopass"
 
Me.MousePointer = 11
ChDrive App.Path
ChDir App.Path
 
CrystalReport1.connect = "DSN=TEST;uid=" & user_id & ";pwd=" & Passwd_id
CrystalReport1.WindowState = crptMaximized
CrystalReport1.ParameterFields(0) = "paramcrystal; " & Txt_param.Text & ";TRUE"
 
CrystalReport1.ReportFileName = App.Path & "\etats" & "\etat_xxx.rpt"
 
CrystalReport1.Action = 1
 
Me.MousePointer = 0
 
Exit Sub
ErrorHandler:
Call GetError
End Sub
merci de me donner suite c'est trés urgent