Access y VBA - Crear consulta datos anexados en VBA

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: 27/Marzo/2026 a las 06:03

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

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

1º

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

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