Forums Últimos mensajes - Powered by IBM
 

macro para consulta x familia

14/12/2004 - 12:02 por Carlos delaVega | Informe spam
Hola a todos.
He grabado una macro para modificar una consulta a una base de datos en
Access.
¿que tengo que modificar para que me pida el codigo de familia cada vez que
la ejecuto?
Gracias y Saludos
Carlos

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 26/11/2004 por CARLOS
'

'
Range("C5").Select
With Selection.QueryTable
.Connection = Array(Array( _
"ODBC;DSN=MS Access
Database;DBQ=L:\WIN32\GESTION\EMP0001\Gestion.MDB;DefaultDir=L:\WIN32\GESTIO
N\EMP0001;DriverId(1;FIL=MS A" _
), Array("ccess;MaxBufferSize 48;PageTimeout=5;"))
.CommandText = Array( _
"SELECT Articulos.CodigoFamilia, ArticuloProveedor.CodigoArticulo,
Articulos.DescripcionArticulo, ArticuloProveedor.CodigoProveedor,
ArticuloProveedor.EjercicioUltimoAlbaran, ArticuloProveedor.NumeroUl" _
, _
"timoAlbaran, ArticuloProveedor.FechaUltimoAlbaran,
ArticuloProveedor.UnidadesUltimoAlbaran,
ArticuloProveedor.PrecioUltimoAlbaran" & Chr(13) & "" & Chr(10) & "FROM
`L:\WIN32\GESTION\EMP0001\Gestion`.ArticuloProveedor Articulo" _
, _
"Proveedor, `L:\WIN32\GESTION\EMP0001\Gestion`.Articulos Articulos"
& Chr(13) & "" & Chr(10) & "WHERE ArticuloProveedor.CodigoArticulo Articulos.CodigoArticulo AND ((Articulos.CodigoFamilia='319'))" & Chr(13) &
"" & Chr(10) & "ORDER BY ArticuloProveedo" _
, "r.CodigoArticulo")
.Refresh BackgroundQuery:=False
End With
End Sub
 

Leer las respuestas

#1 LJS
14/12/2004 - 18:04 | Informe spam
No se si es lo que preguntas...

Prueba así

...((Articulos.CodigoFamilia='" & codigo & "'))" & Chr
(13)...

donde codigo es la variable que contiene el valor (ojo que
si usas las comillas simples es porque es string caso
contrario no es necesario), antes de que se ejecute este
procedimiento debes ingresar en la variable el codigo.
Para eso puedes usar un inputbox.

ej:
codigo = InputBox("Ingrese el codigo")

saludos


Hola a todos.
He grabado una macro para modificar una consulta a una


base de datos en
Access.
¿que tengo que modificar para que me pida el codigo de


familia cada vez que
la ejecuto?
Gracias y Saludos
Carlos

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 26/11/2004 por CARLOS
'

'
Range("C5").Select
With Selection.QueryTable
.Connection = Array(Array( _
"ODBC;DSN=MS Access
Database;DBQ=L:\WIN32\GESTION\EMP0001


\Gestion.MDB;DefaultDir=L:\WIN32\GESTIO
N\EMP0001;DriverId(1;FIL=MS A" _
), Array


("ccess;MaxBufferSize 48;PageTimeout=5;"))
.CommandText = Array( _
"SELECT Articulos.CodigoFamilia,


ArticuloProveedor.CodigoArticulo,
Articulos.DescripcionArticulo,


ArticuloProveedor.CodigoProveedor,
ArticuloProveedor.EjercicioUltimoAlbaran,


ArticuloProveedor.NumeroUl" _
, _
"timoAlbaran,


ArticuloProveedor.FechaUltimoAlbaran,
ArticuloProveedor.UnidadesUltimoAlbaran,
ArticuloProveedor.PrecioUltimoAlbaran" & Chr(13) & "" &


Chr(10) & "FROM
`L:\WIN32\GESTION\EMP0001\Gestion`.ArticuloProveedor


Articulo" _
, _
"Proveedor, `L:\WIN32\GESTION\EMP0001


\Gestion`.Articulos Articulos"
& Chr(13) & "" & Chr(10) & "WHERE


ArticuloProveedor.CodigoArticulo >Articulos.CodigoArticulo AND
((Articulos.CodigoFamilia='319'))" & Chr(13) &
"" & Chr(10) & "ORDER BY ArticuloProveedo" _
, "r.CodigoArticulo")
.Refresh BackgroundQuery:=False
End With
End Sub


.

Preguntas similares