Codgio VBA

06/12/2013 - 19:12 por jcmhermida | Informe spam
¡ Hola !
Tengo el siguiente codigo:
Public Function EjecutarTablaDetalles( _
ByVal num_tabla As Integer, _
ByVal consulta As String, _
Optional ByVal filtro As String = "" _
) As Boolean
On Error GoTo Errores
Call SysCmd(acSysCmdInitMeter, "Exportando a Word: " & consulta, 100)
DoCmd.Hourglass True

Dim rs As DAO.Recordset
Dim field As DAO.field
Dim tabla As word.Table
Dim ultima_fila As word.Row, nueva_fila As word.Row
Dim celda As word.Cell
Dim campo As String, valor As String

If filtro <> "" Then consulta = "SELECT * FROM " & consulta & " WHERE " & filtro
Set rs = CurrentDb.OpenRecordset(consulta, dbOpenForwardOnly)
Set tabla = documento_word.Tables(num_tabla)

If rs.BOF And rs.EOF Then
'Nada
Else
Do Until rs.EOF
Set ultima_fila = tabla.Rows(tabla.Rows.Count)
Set nueva_fila = tabla.Rows.Add
For Each celda In ultima_fila.Cells
'Duplicar la última fila en la nueva
campo = celda.Range.Text
campo = Left(campo, Len(campo) - 2) 'Eliminar vbCrLf del final
nueva_fila.Cells(celda.ColumnIndex).Range.Text = campo
'Poner los valores
'For Each field In rs.Fields
'If 0 <> InStr(LCase(field.Name), "importe") Then
'valor = Format(Nz(rs(field.Name), 0), "#,##0.00")
'Else
'valor = rs(field.Name) & ""
'End If
'campo = Replace(campo, "[" & field.Name & "]", valor)
'Next
'celda.Range.Text = campo
Next

'Call SysCmd(acSysCmdUpdateMeter, rs.PercentPosition) 'Fallas porque es dbOpenForwardOnly
rs.MoveNext
Loop
End If

'Borrar la última fila
tabla.Rows(tabla.Rows.Count).Delete

EjecutarTablaDetalles = True
Salida:
Call SysCmd(acSysCmdRemoveMeter)
DoCmd.Hourglass False
Exit Function
Errores:
MsgBox Err.Description, vbCritical, "EjecutarTablaDetalles"
Resume Salida
End Function

Me crea en la tabla de detalles las filas necesarias pero en cada fila me repite los mismos datos, en el ejemplo los datos son númericos y en mi base de datos son tipo texto.

Cuál puede ser el error en el código?

Preguntas similare

Leer las respuestas

#1 Emilio
06/12/2013 - 23:52 | Informe spam
-
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
-
Hola!

Lo siento no veo razón alguna para que te pase lo que dices que te pasa, veo
variables innecesarias(field, valor), nombres de campo que son palabras
reservadas (field), variables no declaradas (documento_word), a dicha
variable,u objeto, no le asignas valor en ningún momento...
De hecho es extraño que no se produzca un error de sintaxis.

Te sugiero que revises el código y que lo ejecutes paso a paso, seguro que
llegarás a aclarar el problema.

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
Respuesta Responder a este mensaje
#2 jcmhermida
13/12/2013 - 08:49 | Informe spam
Emilio escribió el 06/12/2013 23:52 :
-
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
-
Hola!

Lo siento no veo razón alguna para que te pase lo que dices que te pasa,
veo
variables innecesarias(field, valor), nombres de campo que son palabras
reservadas (field), variables no declaradas (documento_word), a dicha
variable,u objeto, no le asignas valor en ningún momento...
De hecho es extraño que no se produzca un error de sintaxis.

Te sugiero que revises el código y que lo ejecutes paso a paso, seguro
que
llegarás a aclarar el problema.

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio


Hola emilio,
muchas gracias por la respuesta, he revisado el código y sigo sin saber porque no funciona, si me dices como te adjunto una copia de mi base de datos y del ejemplo que utilice para crear el código y si puedes le echas un vistazo.
Un saludo y gracias de antemano
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida