Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Ejecutar consulta desde código VBA en Access 2003
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Ejecutar consulta desde código VBA en Access 2003

Publicar nuevo tema Responder al tema
Foros de discusión » Access, base de datos Microsoft Access (mdb)   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Ejecutar consulta desde código VBA en Access 2003 Responder citando

Tengo una base de datos Microsoft Access 2003, quiero ejecutar una consulta llamada ctImportarExcel desde código fuente VBA (Visual Basic for Applications) ¿Cómo se hace? he creado un botón en un formulario para tal efecto, le indico que ejecute código, me sale:

Código:

Private Sub btImportarExcel_Click()

End Sub


¿Qué tengo que poner para ejecutar una consulta? no tengo conocimientos de programación.
MensajePublicado:
Mar Mar 29, 2011 5:16 am
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Ejecutar consulta desde código VBA en Access 2003 Responder citando



Anuncios



varios escribió:
Tengo una base de datos Microsoft Access 2003, quiero ejecutar una consulta llamada ctImportarExcel desde código fuente VBA (Visual Basic for Applications) ¿Cómo se hace? he creado un botón en un formulario para tal efecto, le indico que ejecute código, me sale:

Código:

Private Sub btImportarExcel_Click()

End Sub


¿Qué tengo que poner para ejecutar una consulta? no tengo conocimientos de programación.


Puedes usar este código VBA para ejecutar una consulta:

Código:

Private Sub btInsertarFactura_Click()

  On Error GoTo cError

  Dim nombreConsulta As String

  nombreConsulta = "ctImportarExcel"
  DoCmd.OpenQuery nombreConsulta

cSalir:
    Exit Sub

cError:
    MsgBox Err.Description
    Resume cSalir   
End Sub


Para ejecutar un informe sería:

Código:

Private Sub btInsertarFactura_Click()

  On Error GoTo cError

  Dim nombreInforme As String

  nombreInforme = "nombre_informe"
  DoCmd.OpenReport nombreInforme

cSalir:
    Exit Sub

cError:
    MsgBox Err.Description
    Resume cSalir   
End Sub
MensajePublicado:
Jue Mar 31, 2011 9:31 am
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » Access, base de datos Microsoft Access (mdb)  

Cambiar a:  
Key
  Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A