Error 5941
Resuelto
omar_einstein
-
omar_einstein -
omar_einstein -
Hola,
Estoy desarrollando una aplicación GMAO en VBA.
El problema es que quiero transferir los datos almacenados en un recordset a un archivo de Word.
cada vez que ejecuto mi código, se produce un error 5941: "El miembro de la colección requerida no existe"
aquí está mi código:
Private Sub Transfer_Click()
Dim wApp As Object
Dim chemin As String
Dim path As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String
sql = "SELECT num, nom, dat_pan, heu_deb, heu_fin from test"
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = CreateObject("Word.Application")
chemin = Application.CurrentProject.path
path = "" & chemin & "" + "/Recepisse.doc"
wApp.Visible = True
While Not rs.EOF
With wApp
.Documents.Open (path)
.ActiveDocument.Bookmarks("num").Range.Text = rs.Fields("num") **Problema**
.ActiveDocument.Bookmarks("nom").Range.Text = rs.Fields("nom")
.ActiveDocument.Bookmarks("dat_pan").Range.Text = rs.Fields("dat_pan")
.ActiveDocument.Bookmarks("heu_deb").Range.Text = rs.Fields("heu_deb")
.ActiveDocument.Bookmarks("heu_fin").Range.Text = rs.Fields("heu_fin")
.ActiveDocument.PrintOut
.ActiveDocument.Close (wdDoNotSaveChanges)
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Set wApp = Nothing
End Sub
El problema ocurre en la línea indicada como "Problema"
gracias por indicarme la solución, ya que estoy atascado en esta etapa
gracias de antemano por la atención que prestarían a mi mensaje.
Estoy desarrollando una aplicación GMAO en VBA.
El problema es que quiero transferir los datos almacenados en un recordset a un archivo de Word.
cada vez que ejecuto mi código, se produce un error 5941: "El miembro de la colección requerida no existe"
aquí está mi código:
Private Sub Transfer_Click()
Dim wApp As Object
Dim chemin As String
Dim path As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String
sql = "SELECT num, nom, dat_pan, heu_deb, heu_fin from test"
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = CreateObject("Word.Application")
chemin = Application.CurrentProject.path
path = "" & chemin & "" + "/Recepisse.doc"
wApp.Visible = True
While Not rs.EOF
With wApp
.Documents.Open (path)
.ActiveDocument.Bookmarks("num").Range.Text = rs.Fields("num") **Problema**
.ActiveDocument.Bookmarks("nom").Range.Text = rs.Fields("nom")
.ActiveDocument.Bookmarks("dat_pan").Range.Text = rs.Fields("dat_pan")
.ActiveDocument.Bookmarks("heu_deb").Range.Text = rs.Fields("heu_deb")
.ActiveDocument.Bookmarks("heu_fin").Range.Text = rs.Fields("heu_fin")
.ActiveDocument.PrintOut
.ActiveDocument.Close (wdDoNotSaveChanges)
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Set wApp = Nothing
End Sub
El problema ocurre en la línea indicada como "Problema"
gracias por indicarme la solución, ya que estoy atascado en esta etapa
gracias de antemano por la atención que prestarían a mi mensaje.
Configuración: Windows XP Internet Explorer 7.0
Gracias primero por la atención que has prestado a mi mensaje.
He probado el truco que me indicaste pero sin éxito.
El compilador me muestra el siguiente mensaje: "Propiedad o método no manejado por este objeto" código de error: "438"....
Gracias por responderme lo antes posible indicándome otros trucos.