Imprimir página | Cerrar ventana

Crear consulta datos anexados en VBA

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84937
Fecha de impresión: 15/Agosto/2020 a las 02:27


Tema: Crear consulta datos anexados en VBA
Publicado por: Jorge33
Asunto: Crear consulta datos anexados en VBA
Fecha de publicación: 09/Enero/2020 a las 14:05
Hola:

Necesito crear una consulta que se lanza desde un botón de un formulario.
He intentado hacer:
 sql =sql +"insert into ()     select   from   "
Me.recordsource= sql

Pero me da error

y también he intentado

dbs.execute " Insert into () select from "

Pero me da error también.

¿Cómo sería la forma correcta de hacerlo?
Muchas gracias
< x="0" y="0" width="99999" height="99999" id="hc_extension_off">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black_back">



Respuestas:
Publicado por: rokoko
Fecha de publicación: 09/Enero/2020 a las 15:45
Create la consulta en vista diseño, una vez que funcione puedes ejecutarla de varia formas

DoCmd.OpenQuery "NombreConsulta"


2º  Vete a vista SQl de la consulta y copiala
DoCmd.RunSQL "La consulta en SQL"

Con la 2º opcion le puedes pasar variables a la consulta si te haria falta....

Hay alguna forma mas, pero estas serian las mas sencillas pàra empezar....

https://docs.microsoft.com/es-es/office/vba/api/access.docmd.openquery" rel="nofollow - https://docs.microsoft.com/es-es/office/vba/api/access.docmd.openquery

https://trucoweb.com/ejecutar-consulta-con-codigo-access" rel="nofollow - https://trucoweb.com/ejecutar-consulta-con-codigo-access



Publicado por: Jorge33
Fecha de publicación: 09/Enero/2020 a las 15:57
Muchas gracias
 La opción de Docmd.RunSQL es la que necesitaba por las variables.

Tema solucionado
< x="0" y="0" width="99999" height="99999" id="hc_extension_off">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black_back">


Publicado por: Erick Gamer
Fecha de publicación: 09/Enero/2020 a las 16:01
Hola,

Con el comando Excute:

CurrentDb.Execute "INSERT INTO TuTabla(Usuario,NombreUsuario) VALUES ('tuusuario','tunombre')", dbFailOnError

Erick Gamer


-------------
Aprendiz de todos, maestro de nadie.



Imprimir página | Cerrar ventana