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 :
tout ceci fonctionne bien.
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
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 :
J'ai verifier la requête pour charger le Recodset, ça marche, j'ai bien les données.
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 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 ?
Partager