Je transfére des données de Access vers word en utiliant un recordset et des signets mais j'obtient toujours une incompatibilité de type au niveau des lignes .Selection.Text = rs.Fields que je n'arrive pas à débloquer, est ce que quelqu'un pourrait m'éclairer
Sub ATTRIBUT1(
Dim db As Databas
Dim rs As DAO.Recordse
Set db = Application.CurrentD
Dim W_App As Objec
Set rs = db.OpenRecordset("SELECT * FROM TAB_PCODE WHERE P_CODE=" & Forms!FORM_OFFRE!C_SSFAM1
Set W_App = CreateObject("Word.Application"
With W_Ap
.Visible = Tru
.Documents.Add ("Model.dot"
.ActiveDocument.Bookmarks("A1").Selec
.Selection.Text = rs.Fields("ATTRIBUT1"
.ActiveDocument.Bookmarks("A2").Selec
.Selection.Text = rs.Fields("ATTRIBUT2"
.ActiveDocument.Bookmarks("A3").Selec
.Selection.Text = rs.Fields("ATTRIBUT3")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI [mvp]
bonjour tu es sur d'avoir des enregistrements dans ton recordset
met çà Set rs = db.OpenRecordset("SELECT * FROM TAB_PCODE WHERE P_CODE=" & Forms!FORM_OFFRE!C_SSFAM1) if rs.eof then exit sub fait un debug pour voir P_CODE est numérique ??? -- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "Zepo" a écrit dans le message de news:
Je transfére des données de Access vers word en utiliant un recordset et des signets mais j'obtient toujours une incompatibilité de type au niveau des lignes .Selection.Text = rs.Fields que je n'arrive pas à débloquer, est ce que quelqu'un pourrait m'éclairer
:
Sub ATTRIBUT1() Dim db As Database Dim rs As DAO.Recordset Set db = Application.CurrentDb Dim W_App As Object Set rs = db.OpenRecordset("SELECT * FROM TAB_PCODE WHERE P_CODE=" & Forms!FORM_OFFRE!C_SSFAM1) Set W_App = CreateObject("Word.Application") With W_App .Visible = True .Documents.Add ("Model.dot") .ActiveDocument.Bookmarks("A1").Select .Selection.Text = rs.Fields("ATTRIBUT1") .ActiveDocument.Bookmarks("A2").Select .Selection.Text = rs.Fields("ATTRIBUT2") .ActiveDocument.Bookmarks("A3").Select .Selection.Text = rs.Fields("ATTRIBUT3")
bonjour
tu es sur d'avoir des enregistrements dans ton recordset
met çà
Set rs = db.OpenRecordset("SELECT * FROM TAB_PCODE WHERE P_CODE=" & Forms!FORM_OFFRE!C_SSFAM1)
if rs.eof then exit sub
fait un debug pour voir
P_CODE est numérique ???
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Zepo" <anonymous@discussions.microsoft.com> a écrit dans le message de news:31E8E7C4-6395-49BA-AFFD-BA7C37093ED1@microsoft.com...
Je transfére des données de Access vers word en utiliant un recordset et des signets mais j'obtient toujours une incompatibilité
de type au niveau des lignes .Selection.Text = rs.Fields que je n'arrive pas à débloquer, est ce que quelqu'un pourrait m'éclairer
:
Sub ATTRIBUT1()
Dim db As Database
Dim rs As DAO.Recordset
Set db = Application.CurrentDb
Dim W_App As Object
Set rs = db.OpenRecordset("SELECT * FROM TAB_PCODE WHERE P_CODE=" & Forms!FORM_OFFRE!C_SSFAM1)
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Add ("Model.dot")
.ActiveDocument.Bookmarks("A1").Select
.Selection.Text = rs.Fields("ATTRIBUT1")
.ActiveDocument.Bookmarks("A2").Select
.Selection.Text = rs.Fields("ATTRIBUT2")
.ActiveDocument.Bookmarks("A3").Select
.Selection.Text = rs.Fields("ATTRIBUT3")
bonjour tu es sur d'avoir des enregistrements dans ton recordset
met çà Set rs = db.OpenRecordset("SELECT * FROM TAB_PCODE WHERE P_CODE=" & Forms!FORM_OFFRE!C_SSFAM1) if rs.eof then exit sub fait un debug pour voir P_CODE est numérique ??? -- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "Zepo" a écrit dans le message de news:
Je transfére des données de Access vers word en utiliant un recordset et des signets mais j'obtient toujours une incompatibilité de type au niveau des lignes .Selection.Text = rs.Fields que je n'arrive pas à débloquer, est ce que quelqu'un pourrait m'éclairer
:
Sub ATTRIBUT1() Dim db As Database Dim rs As DAO.Recordset Set db = Application.CurrentDb Dim W_App As Object Set rs = db.OpenRecordset("SELECT * FROM TAB_PCODE WHERE P_CODE=" & Forms!FORM_OFFRE!C_SSFAM1) Set W_App = CreateObject("Word.Application") With W_App .Visible = True .Documents.Add ("Model.dot") .ActiveDocument.Bookmarks("A1").Select .Selection.Text = rs.Fields("ATTRIBUT1") .ActiveDocument.Bookmarks("A2").Select .Selection.Text = rs.Fields("ATTRIBUT2") .ActiveDocument.Bookmarks("A3").Select .Selection.Text = rs.Fields("ATTRIBUT3")
Zepo
merci
Oki j'ai fait le test effectivement aucune donnée dans mon recordset...
merci
Oki j'ai fait le test effectivement aucune donnée dans mon recordset...
