Ejecutar consulta desde word en access!

Hola:
Si explicas un poco más lo que deseas hacer con esa consulta una vez abierta tal vez
podamos ayudarte mejor. De todas formas supongo que sería algo similar al proceso de
combinar correspondencia siendo el origen de datos el archivo de Access.

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
La información contenida en este mensaje se proporciona "TAL CUAL", sin garantías
explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier riesgo al
poner en práctica lo recomendado o sugerido en el presente mensaje.

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/

"kusflo" (donotspam)> escribió en el mensaje
news:

Pues lo dicho. Querría saber si es posible mediante el código insertado en un
módulo de word ejecutar consultas existentes en una bd de Access. Si así
fuera, solicito un ejemplo explicativo o instrucciones sobre como realizar la
conexión y la mejor manera de llamar a la consulta.
"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.

Buena intuición si señor!.
Pero antes de combinar correspondencia tengo que ejecutar estas consultas
desde word:
'Como veis estas son de eliminación
DoCmd.RunSQL "DELETE * FROM " & "[AREAS]"
DoCmd.RunSQL "DELETE * FROM " & "[DIRECCIONES]"
DoCmd.RunSQL "DELETE * FROM " & "[DIRECCIONES ENVIO]"
DoCmd.RunSQL "DELETE * FROM " & "[SALARIOS]"
DoCmd.RunSQL "DELETE * FROM " & "[CLIENTESEPIGRAFES]"

' Y estas son de "paso a traves".
DoCmd.OpenQuery "CONSULTA AREAS", acNormal, acEdit
DoCmd.OpenQuery "CONSULTA DIRECCIONES", acNormal, acEdit
DoCmd.OpenQuery "CONSULTA DIRECCIONES ENVIO", acNormal, acEdit
DoCmd.OpenQuery "ACTUALIZACION DIRECCIONES ENVIO", acNormal, acEdit
DoCmd.OpenQuery "CONSULTA SALARIOS", acNormal, acEdit
DoCmd.OpenQuery "CONSULTA CLIENTESEPIGRAFES", acNormal, acEdit

' Y esta es la que introduce las direcciones en la tabla "LISTADOS"
DoCmd.RunSQL "INSERT INTO LISTADOS " & "SELECT * " & "FROM DIRECCIONES"


El codigo de la parte superior es el que utilizo en access para ejecutarlas.
Pero no sé como conectarme y ejecutarlas desde word. Luego vendria el paso de
combinar correspondencia con lo que hubiera en la tabla "LISTADOS"

"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.

Hola:
Pues realmente no tengo mucha idea pero puedes probar con algo como esto (haz copia
de seguridad por si acaso) Tienes que activar en Word, desde Visual Basic en
complementos, las referencias a Access (Microsoft Access Object Library)
Dim oAccess As Object
Set oAccess = New Access.Application
oAccess.Visible = True
oAccess.OpenCurrentDatabase ("nombredelabasededatos")
oAccess.DoCmd.RunSQL "DELETE * FROM" & "[loquequieras]"




Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
La información contenida en este mensaje se proporciona "TAL CUAL", sin garantías
explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier riesgo al
poner en práctica lo recomendado o sugerido en el presente mensaje.

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/

"kusflo" (donotspam)> escribió en el mensaje
news:

Buena intuición si señor!.
Pero antes de combinar correspondencia tengo que ejecutar estas consultas
desde word:
'Como veis estas son de eliminación
DoCmd.RunSQL "DELETE * FROM " & "[AREAS]"
DoCmd.RunSQL "DELETE * FROM " & "[DIRECCIONES]"
DoCmd.RunSQL "DELETE * FROM " & "[DIRECCIONES ENVIO]"
DoCmd.RunSQL "DELETE * FROM " & "[SALARIOS]"
DoCmd.RunSQL "DELETE * FROM " & "[CLIENTESEPIGRAFES]"

' Y estas son de "paso a traves".
DoCmd.OpenQuery "CONSULTA AREAS", acNormal, acEdit
DoCmd.OpenQuery "CONSULTA DIRECCIONES", acNormal, acEdit
DoCmd.OpenQuery "CONSULTA DIRECCIONES ENVIO", acNormal, acEdit
DoCmd.OpenQuery "ACTUALIZACION DIRECCIONES ENVIO", acNormal, acEdit
DoCmd.OpenQuery "CONSULTA SALARIOS", acNormal, acEdit
DoCmd.OpenQuery "CONSULTA CLIENTESEPIGRAFES", acNormal, acEdit

' Y esta es la que introduce las direcciones en la tabla "LISTADOS"
DoCmd.RunSQL "INSERT INTO LISTADOS " & "SELECT * " & "FROM DIRECCIONES"


El codigo de la parte superior es el que utilizo en access para ejecutarlas.
Pero no sé como conectarme y ejecutarlas desde word. Luego vendria el paso de
combinar correspondencia con lo que hubiera en la tabla "LISTADOS"

"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.

Gracias por la ayuda!
Tiene buena pinta ese código. Lo probaré y a ver que pasa
"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.


"Marta PM" escribió:

Hola:
Pues realmente no tengo mucha idea pero puedes probar con algo como esto (haz copia
de seguridad por si acaso) Tienes que activar en Word, desde Visual Basic en
complementos, las referencias a Access (Microsoft Access Object Library)
Dim oAccess As Object
Set oAccess = New Access.Application
oAccess.Visible = True
oAccess.OpenCurrentDatabase ("nombredelabasededatos")
oAccess.DoCmd.RunSQL "DELETE * FROM" & "[loquequieras]"
.



Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
La información contenida en este mensaje se proporciona "TAL CUAL", sin garantías
explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier riesgo al
poner en práctica lo recomendado o sugerido en el presente mensaje.

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/

"kusflo" (donotspam)> escribió en el mensaje
news:
> Buena intuición si señor!.
> Pero antes de combinar correspondencia tengo que ejecutar estas consultas
> desde word:
> 'Como veis estas son de eliminación
> DoCmd.RunSQL "DELETE * FROM " & "[AREAS]"
> DoCmd.RunSQL "DELETE * FROM " & "[DIRECCIONES]"
> DoCmd.RunSQL "DELETE * FROM " & "[DIRECCIONES ENVIO]"
> DoCmd.RunSQL "DELETE * FROM " & "[SALARIOS]"
> DoCmd.RunSQL "DELETE * FROM " & "[CLIENTESEPIGRAFES]"
>
> ' Y estas son de "paso a traves".
> DoCmd.OpenQuery "CONSULTA AREAS", acNormal, acEdit
> DoCmd.OpenQuery "CONSULTA DIRECCIONES", acNormal, acEdit
> DoCmd.OpenQuery "CONSULTA DIRECCIONES ENVIO", acNormal, acEdit
> DoCmd.OpenQuery "ACTUALIZACION DIRECCIONES ENVIO", acNormal, acEdit
> DoCmd.OpenQuery "CONSULTA SALARIOS", acNormal, acEdit
> DoCmd.OpenQuery "CONSULTA CLIENTESEPIGRAFES", acNormal, acEdit
>
> ' Y esta es la que introduce las direcciones en la tabla "LISTADOS"
> DoCmd.RunSQL "INSERT INTO LISTADOS " & "SELECT * " & "FROM DIRECCIONES"
>
>
> El codigo de la parte superior es el que utilizo en access para ejecutarlas.
> Pero no sé como conectarme y ejecutarlas desde word. Luego vendria el paso de
> combinar correspondencia con lo que hubiera en la tabla "LISTADOS"
>
> "Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
> aquí el verdadero saber." Confucio.