Discussion :

[emulamateur]

J'utilise le code ci-dessous pour remplir un tableau dans word :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Set rs2 = CurrentDb.OpenRecordset("SELECT * From [FACTURE] WHERE(((FACTURE.N°dossier)=[Formulaires]![facture61]![N°dossier]) AND ((facture.n°facture)<>([Formulaires]![facture61]![N°facture]))) ORDER BY FACTURE.[DateENVOI] DESC", dbOpenDynaset)
                rs2.MoveFirst
                y = 2 ' on ne remplit pas la première ligne du tableau
                Do While Not rs.EOF
                WordApp.ActiveDocument.Tables(2).Cell(y, 1).Range = rs.Fields("[Dateenvoi]")
                WordApp.ActiveDocument.Tables(2).Cell(y, 4).Range = rs.Fields("[N°facture]")
                WordApp.ActiveDocument.Tables(2).Cell(y, 2).Range = Format(rs.Fields("[totalht]"), "#,##0.00") & " €"
                WordApp.ActiveDocument.Tables(2).Cell(y, 3).Range = rs.Fields("[totaltva]")
                WordApp.ActiveDocument.Tables(2).Cell(y, 5).Range = Format(rs.Fields("[totalttc]"), "#,##0.00") & " €"
                'MsgBoy rs.Fields("[totalttcligne]")
                rs.MoveNext
                y = y + 1
                Loop
                Set rs2 = Nothing

et access me précise l'erreur indiquée dans l'intitulé du message.

Pourtant, la requête sql fonctionne et je ne vois ce qui cloche dans ma boucle, même si je n'utilise pas tous les champs issus de la requête.

Je sèche sérieusement.

Si quelqu'un avait une modeste piste ou une solution ...

Merci d'avance.

[ClaudeLELOUP]

Bonjour,

Pourtant, la requête sql fonctionne

Même sans le point-virgule final ?

[Invité]

Bonjour

En mode VBA, ta requête ne reconnait pas les données qui viennent de ton formulaire, il faut les ajouter par concaténation :

Code :

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

Set rs2 = CurrentDb.OpenRecordset("SELECT * From [FACTURE] WHERE (((FACTURE.N°dossier)=" & [Formulaires]![facture61]![N°dossier]) & " AND ((facture.n°facture)<> " & ([Formulaires]![facture61]![N°facture]) & ")) ORDER BY FACTURE.[DateENVOI] DESC", dbOpenDynaset)

Tu devrais avoir quelques choses de ce style dans la mesure ou tes données sont de type numérique.


Philippe