** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Pasar datos de formulario access a Notepad
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoPasar datos de formulario access a Notepad

 Responder Responder
Autor
Mensaje
paloma Ver desplegable
Habitual
Habitual


Unido: 24/Junio/2010
Estado: Sin conexión
Puntos: 97
Enlace directo a este mensaje Tema: Pasar datos de formulario access a Notepad
    Enviado: 09/Noviembre/2022 a las 10:02
Hola

Quiero desde un formulario de access, abrir el notepad y pegar unos datos. Pero no quiero hacer un copy-paste, sino recoger los datos en una variable y trasladarla a notepad. 

Lo que tengo es esto. ¿Pero cómo consigo trasladar los datos de la variable str al notepad?

Dim str As String
str = Me.Titulo & vbCrLf & Me.ID & vbCrLf & Me.Matricula & vbCrLf & Me.Concepto

Shell "notepad.exe", vbNormalFocus

Gracias,

Saludos,

Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6479
Enlace directo a este mensaje Enviado: 09/Noviembre/2022 a las 11:28
Hola!
Con SendKeys lo podrá hacer.

Dim str As String
str = Me.Titulo & vbCrLf & Me.ID & vbCrLf & Me.Matricula & vbCrLf & Me.Concepto

Shell "notepad.exe", vbNormalFocus
SendKeys str
Un Saludo.
Arriba
paloma Ver desplegable
Habitual
Habitual


Unido: 24/Junio/2010
Estado: Sin conexión
Puntos: 97
Enlace directo a este mensaje Enviado: 09/Noviembre/2022 a las 12:01
¿¿Pero qué maravilla es esta?? No sabía que Sendkeys también permitiera enviar texto!!! Yo solo lo utilizaba para enviar teclas. Funciona de maravilla, mil gracias!!!!!!! :)

Ahora, si me lo permites, ¿sabrías decirme cómo hacer para que el texto no salga con doble Enter? Me sale con el formato que te pongo a continuación. Si yo le quito el vbCrLf a la variable, los datos de cada control de formulario que tomo, los pega en el Notepad juntos, pero si lo meto, me hace doble Enter,,, 

TITULO

ID

MATRICULA

CONCEPTO 


Gracias,

Saludos,
Arriba
paloma Ver desplegable
Habitual
Habitual


Unido: 24/Junio/2010
Estado: Sin conexión
Puntos: 97
Enlace directo a este mensaje Enviado: 09/Noviembre/2022 a las 12:04

Por cierto, he tenido que cambiar la Shell porque de repente me daba error, antes no me daba y he puesto C:\WINDOWS delante para que funcione. No sé por qué, ¿sabes a qué es debido? 

Shell "C:\WINDOWS\NOTEPAD.EXE", vbNormalFocus
Arriba
paloma Ver desplegable
Habitual
Habitual


Unido: 24/Junio/2010
Estado: Sin conexión
Puntos: 97
Enlace directo a este mensaje Enviado: 09/Noviembre/2022 a las 12:07

Lo encontré! Es:

str = Replace(str, Chr(10), "")

Solo, mounir, saber, por curiosidad, si pudieras decirme, por qué antes me funcionaba Shell "Notepad.exe" y después tuve que meter "C:\WINDOWS\NOTEPAD.EXE"

Gracias

Saludos
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6479
Enlace directo a este mensaje Enviado: 09/Noviembre/2022 a las 13:38
Hola!

Es obligatorio poner la ruta de cada programa para que se ejecvute correctamente.

https://learn.microsoft.com/es-es/office/vba/language/reference/user-interface-help/shell-function
Un Saludo.
Arriba
paloma Ver desplegable
Habitual
Habitual


Unido: 24/Junio/2010
Estado: Sin conexión
Puntos: 97
Enlace directo a este mensaje Enviado: 09/Noviembre/2022 a las 17:50

ok!, gracias!

Saludos,
Arriba
paloma Ver desplegable
Habitual
Habitual


Unido: 24/Junio/2010
Estado: Sin conexión
Puntos: 97
Enlace directo a este mensaje Enviado: 01/Abril/2023 a las 19:26
Por favor, pueden cerrar el hilo. El tema está resuelto
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable