Discussion :

[zooffy]

Bonjour à tous.

Je suis au bout de ce que je sais réfléchir face à ce problem et j'ai besoins d'une aide extérieure.

J'ai fait un état dans lequel j'ai mis une textbox qui occupe toute la page. Je rempli cette TExtBox avec le contenu d'un fichier texte que je vais chercher par code que voice :

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
 
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
NumeroOlyIsin IDOpenArg
Set oFlApercu = Nothing
ts.Close
Set ts = Nothing
 
End Sub

tout ceci fonctionne bien.

J'ai rajouter un Label par dessus la TextBox pour afficher des info en plus. Je procède avec une Sub qui s'appelle NumeroOlyIsin et qui prend comme argument un ID venant de la base de donnée. Voici 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
 
Sub NumeroOlyIsin(ByVal IDSwift As Integer)
Dim odbIsinOly As DAO.Database
Set odbIsinOly = CurrentDb
Dim rsIsinOly As Recordset
Set rsIsinOly = odbIsinOly.OpenRecordset("SELECT VA.VALEUR AS Val FROM SWIFTDataBase SDB LEFT JOIN ValeurAlias VA ON LEFT(VA.ALIASCODE,12)=SDB.ISIN WHERE SDB.ID = " & IDSwift)
lblISIN.Caption = "test pour vérification dedans"
Dim strIsinOly As String
Do While Not rsIsinOly.EOF
    strIsinOly = strIsinOly & vbCrLf & rsIsinOly.Fields("Val").Value
rsIsinOly.MoveNext
Loop
lblISIN.Caption = lblISIN.Caption & strIsinOly
rsIsinOly.Close
odbIsinOly.Close
Set rsIsinOly = Nothing
Set odbIsinOly = Nothing
End Sub

J'ai verifier la requête pour charger le Recodset, ça marche, j'ai bien les données.
J'ai testé le contenu du Field du Recodset et j'ai bien quelque chose dedans.

Par contre quand je place un point d'arrête dans la Sub ou dans le Detail_Print et que je lance l'impression, il ne s'arrête pas. Donc je n'arrive pas à tester en fonctionnement réel.

A l'impression, il n'y a que ma locution "test pour vérification dedans" qui s'imprime et pas la suite des données que j'attends. SAcahnt qu'en plusle Label dans sa definition dans la construction de l'état n'a pas cette locution dans son Caption.

Je ne sais plus quoi faire.

Pouvez vous m'aider ?

[micniv]

bonjour,

... Par contre quand je place un point d'arrête dans la Sub ou dans le Detail_Print et que je lance l'impression, il ne s'arrête pas.

déjà ce n'est pas normal. (Conseil: essaie de diminuer le nombre de fautes de frappes ... en te relisant par exemple)

Ta zone de texte et l'étiquette sont bien dans la zone Détail ?
Tu actives tes sub depuis l'evenement Détail_Print() ?

aussi dans l'appel : NumeroOlyIsin IDOpenArg , es tu sûr que IDOpenArg est valorisé ?
ajoute des debug.print

Tu dois pouvoir tracer tout cela

CDLT

[zooffy]

Merci pour ton aide

(Conseil: essaie de diminuer le nombre de fautes de frappes ... en te relisant par exemple)

ça c'est parce que je suis coincé avec un correcteur anglais sur mon navigateur. Du coup, vu que j'écris en français, trois quarts des mots sont surlignés en rouge et j'avoue que parfois, je loupe un paquet de truc. Mais bon, les configurations sont ainsi faites ici, je ne peux rien modifier.

Sinon, j'ai fais tout comme tu dis et j'ai tout revérifié.

Mon IDOpenargs était effectivement vide et je l'ai remplacé par un Me.openargs et ça marche vachement mieux.

Merci à toi, tu me sors d'un très mauvais pas.
J'ai découvert un autre souci, mais je crois qu'il va être préférable d'ouvrir un autre topic pour le gérer.

Bonne journée.