** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Boton para pasar registro de formulario a word
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoBoton para pasar registro de formulario a word

 Responder Responder
Autor
Mensaje
Fenix Ver desplegable
Nuevo
Nuevo


Unido: 10/Junio/2018
Localización: Peru
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Tema: Boton para pasar registro de formulario a word
    Enviado: 20/Junio/2018 a las 16:48
Buenas con todo el foro, necesito que me echen una mano con el siguiente problema. Tengo un formulario en el cual registro los datos de clientes y lo que necesito es crear un boton que al hacer click exporte dicho registro actual del formulario (no todos los registros) a una plantilla word (que tienen los mismos datos que el formulario), ya que una vez abierto dicha plantilla se tendra que seguir ingresando mas datos.

Lo único que consigo es exportar todos los registros del formulario. Tengo access 2010.


Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton NY.
Estado: Sin conexión
Puntos: 3469
Enlace directo a este mensaje Enviado: 20/Junio/2018 a las 20:24
Necesitaríamos saber si el formulario está en Excel o en Access (o incluso en Word o Power Point) y como es la plantilla.

Si además pones el código que usas para exportar, aunque vayan todos los registros sería casi perfecto.

Un saludo.

Luis
El Búho es mi ídolo caido
Arriba
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 603
Enlace directo a este mensaje Enviado: 21/Junio/2018 a las 05:49
Yo hice hace unos meses esta, si te vale. lo que hace es cojer diferentes campos de un registro y meterlos en una plantilla en los diferentes marcadores creados:

Crear:
        'Creamos la ruta de la plantilla
        'Dim vplantilla As String,vrutaarchivo As String, vdoc As String
    vplantilla = Nz(DLookup("[rutaorig]", "constantes", "[Id]=1"), "")
    vrutaarchivo = Nz(DLookup("[rutapropietario]", "constantes", "[Id]=1"), "")
    vdoc = Nz(DLookup("[plantilla_orden]", "constantes", "[id]=1"), "")
    miPlantilla = rutabd & "\" & vplantilla & "\" & vdoc
         'Creamos la ruta donde guardar la carta
    rutadoc = rutabd & "\" & vrutaarchivo
        'Creamos una instancia de Word
    Set miWord = CreateObject("Word.Application")
    miWord.Documents.Add miPlantilla
    miWord.Visible = True
        'Recuperamos el nombre , dni y la dirección del propietario
    Dim vNom As String, vloc As String
    Dim vidp As String, vccorriente As String
    Dim vdni As String, vtel, nmail As String, vcomision As String
      Dim vn As String, vpiso As String, vapellido As String, vpuerta As String
    vidp = vreferencia
    vid = Forms!frm_ficha!Id
    vNom = Nz(DLookup("[Nombre]", "propietarios1", "[id]=" & vidp), "")
    vapellido = Nz(DLookup("[apellidos]", "propietarios1", "[id]=" & vidp), "")
    vdni = Nz(DLookup("[nif]", "propietarios1", "[id]=" & vidp), "")
     vNom=vnom & " " & vapellido
 With miWord.ActiveDocument.Bookmarks
.Item("nombre").Range.Text = " " & vNom & " "
.Item("dni").Range.Text = " " & vdni & " "
End With
fin:
        'Creamos el archivo final
         miCarta = miruta & "\" & "ORDEN ARRENDAMIENTO_" & Year(Date) & ".doc"
    miWord.ActiveDocument.SaveAs FileName:=miCarta, FileFormat:=wdFormatDocumentDefault
    miWord.Quit
      miWord.Visible = True
      Set miWord = Nothing
        'Lanzamos un mensaje de aviso
    MsgBox "La encargo de arrendamiento se ha generado correctamente", vbInformation, "OK"
    Shell "explorer " & miCarta, vbMaximizedFocus

si te aclaras y te vale
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
Fenix Ver desplegable
Nuevo
Nuevo


Unido: 10/Junio/2018
Localización: Peru
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Enviado: 21/Junio/2018 a las 23:12

Gracias por la respuesta Ibauluz, te comento que el formulario esta creado en access y necesito que los datos del registro actual de ese formulario pasarlo a una plantilla a word.

01loko voy a tratar de probar tu código y luego te comento, muchas gracias por tu apoyo.

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable