** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Crear consulta datos anexados en VBA
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCrear consulta datos anexados en VBA

 Responder Responder
Autor
Mensaje Invertir el orden de clasificación
Erick Gamer Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2016
Localización: Mexico
Estado: Sin conexión
Puntos: 299
Enlace directo a este mensaje Tema: Crear consulta datos anexados en VBA
    Enviado: 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.
Arriba
Jorge33 Ver desplegable
Habitual
Habitual


Unido: 09/Abril/2019
Localización: madrid
Estado: Sin conexión
Puntos: 58
Enlace directo a este mensaje Enviado: 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">
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 2548
Enlace directo a este mensaje Enviado: 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....


Arriba
Jorge33 Ver desplegable
Habitual
Habitual


Unido: 09/Abril/2019
Localización: madrid
Estado: Sin conexión
Puntos: 58
Enlace directo a este mensaje Enviado: 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">
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable