ezzu
21 de Abril del 2004

Public Sub ContarCantidades ()
\' Esta funcion devuelve en una tabla todos los registros
\' de cada articulo de los pedidos
\' para poder sacar todas las etiquetas

**** Aqui es donde me da el error en el depurador ***

\' Conexion
Dim dbg As DAO.Database
Set dbg = currentdb

*** Ya no me hace nada mas ***

\' la tabla
Dim tbl As DAO.TableDef
set tbl = dbMiDB![C_Almacen_EtiquetasSubcliente_Albaran]

.
.
.
.
.
.



End Sub

Jose Oscar
21 de Abril del 2004

Dim Db as database
dim Tabla as Tabledef
Dim Fila as Field

set Db=Dao.opendatabase("tu base.mdb")
set Tabla=db.tabledefs(0)
set Fila= tabla(Nombre a numero de la fila)

Si no me falta algo ya tienes las tabla la base y el campo abierto

donde el parametro de la Tabledefs() y de fields() puede su posicion de ubicacion en la base o el nombre
db.tabledefs(0)
db.tabledefs("nombre de la tabla")

Un saludo
Jose Oscar