macro para consulta x familia

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

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

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

N\EMP0001;DriverId(1;FIL=MS A" _
), Array

.CommandText = Array( _
"SELECT Articulos.CodigoFamilia,

Articulos.DescripcionArticulo,

ArticuloProveedor.EjercicioUltimoAlbaran,

, _
"timoAlbaran,

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

`L:\WIN32\GESTION\EMP0001\Gestion`.ArticuloProveedor

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

& Chr(13) & "" & Chr(10) & "WHERE

"" & Chr(10) & "ORDER BY ArticuloProveedo" _
, "r.CodigoArticulo")
.Refresh BackgroundQuery:=False
End With
End Sub


.

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

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

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

N\EMP0001;DriverId(1;FIL=MS A" _
), Array

.CommandText = Array( _
"SELECT Articulos.CodigoFamilia,

Articulos.DescripcionArticulo,

ArticuloProveedor.EjercicioUltimoAlbaran,

, _
"timoAlbaran,

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

`L:\WIN32\GESTION\EMP0001\Gestion`.ArticuloProveedor

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

& Chr(13) & "" & Chr(10) & "WHERE

"" & Chr(10) & "ORDER BY ArticuloProveedo" _
, "r.CodigoArticulo")
.Refresh BackgroundQuery:=False
End With
End Sub


.

Gracias por la respuesta LJS
He intentado sustituir el código que me das, pero NO lo

Me da error 1004
Saludos
CARLOS

"LJS" escribió en

news:3a4901c4e1ff$02db67e0$
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


.

.

Gracias por la respuesta LJS
He intentado sustituir el código que me das, pero NO lo

Me da error 1004
Saludos
CARLOS

"LJS" escribió en

news:3a4901c4e1ff$02db67e0$
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


.

.

Buenas tardes LJS
SI, el input lo tengo bien puesto, el error 1004 marca la

With Selection.QueryTable

Pienso que el problema puede ser las comillas simples o

Saludos
Carlos

"LJS" escribió en

news:164001c4e2a9$bda7fcf0$
en que momento te da ese error??

debes colocar el inputbox al principio:
el codigo que ingresas es numerico o string??


' Macro grabada el 26/11/2004 por CARLOS
'
codigo = InputBox("Ingrese el codigo")
'
Range("C5").Select

.Connection = Array(Array( _

Gracias por la respuesta LJS
He intentado sustituir el código que me das, pero NO lo

he conseguido.

Me da error 1004
Saludos
CARLOS

"LJS" escribió en

el mensaje

news:3a4901c4e1ff$02db67e0$
No se si es lo que preguntas...

Prueba así

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

donde codigo es la variable que contiene el valor (ojo

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


.

.

.