Discussion :

[zooffy]

Bonjour à tous

Je suis devant un souci que je ne comprends pas et j'ai bien besoin d'un coup de main.

J'ai fais une procedure pour imprimer des fichiers texte que voici :

Code :

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

1
2
3
4
5
6
7
8
 
Sub PrintSwift(ByVal IDSwift As Long) 
Set Odb = CurrentDb
DoCmd.OpenReport "PrintSwiftUnique", acViewNormal, , , , IDSwift
Odb.Execute ("UPDATE SWIFTDataBase SET Imprime = True WHERE ID = " & IDSwift)
LogOperant "Imprimer", IDSwift
Set Odb = Nothing
End Sub

Le Report "PrintSwiftUnique" contient cela dans son 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
 
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim oFSOApercu As New Scripting.FileSystemObject
Dim oFlApercu As Scripting.File
Dim ts As TextStream
Dim strSwift As String
Me.Printer.Duplex = acPRDPSimplex
Set oFlApercu = oFSOApercu.GetFile(DLookup("RepFichier", "SWIFTDataBase", "ID = " & OpenArgs) & "\" & DLookup("NomFichier", "SWIFTDataBase", "ID = " & OpenArgs))
Set ts = oFlApercu.OpenAsTextStream(ForReading, TristateUseDefault)
strSwift = ts.ReadAll
strSwift = Replace(strSwift, "}", "}" & vbCrLf)
txtSWIFT.Value = strSwift
Set oFlApercu = Nothing
ts.Close
Set ts = Nothing
End Sub

L'id qui est envoyé en paramètre, puis en OpenArgs vient directement de la table depuis le champ ID qui est un Autonumber.

Chaque fichier dont l'ID est en dessous de 32766 fonctionne parfaitement, les autres ne s'impriment pas mais il n'y a aucun message d'erreur et toutes les lignes de code à la suite du Docmd.Openreport sont ignorées.

Je suis paumé, je ne sais vraiment pas quoi faire car je ne comprends même pas le souci.

Merci pour votre aide.

[Zekraoui_Jakani]

Que se passe-t-il si vous forcez IDSwift = 32800 (ou = dernier ID+1) ?

[Paraffine]

Que donne le débogage ?
As-tu essayé un pas à pas pour voir ce qui s'exécute dans le rapport, et où ça part en vrille ?

Cordialement.

[marot_r]

Bonjour.

Chaque fichier dont l'ID est en dessous de 32766 fonctionne parfaitement

Les Autonum sont des entiers longs (long integer, Long) et 32766 est la lmite max des entiers (integer, int).
Probabalement que tu as un integer quelque part.

A+

[zooffy]

Merci pour vos aides.

En forçant un ID ça marche pas.

Le pas à pas ne veux pas fonctionner dans l'impression direct du Report, je sais pas pourquoi. Je lui mets un point d'arrêt et il l'ignore tout simplement.

J'ai redescendu toute ma chaine de programme et j'ai pas un seul Interger qui traine, j'ai tout mis en Long.

J'ai aussi fait un Compacte and Repair, pour être sûr, mais rien ne change.

[zooffy]

Bon, j'ai trouvé.

J'ai un paramètre d'une procédure qui avait gardé un Integer à la place d'un Long.
Cette Sub était un peu cache dans le code et vu qu'elle intervenait après l'impression, je n'étais pas descendu aussi loin dans le code.

Bref, j'ai tout rétabli et tout refonctionne.

Merci pour votre aide.

Je vous souhaite un excellent week-end.