conexion a bases de datos

ezzu
20 de Abril del 2004
he crreado un sub para conectarse a una base de datos y me da un error de compilacion en la conexion:
error: 'No se ha definido el tipo definido por el usuario' creo un variavle DIM dbg AS DAO.Database
alguien me puede ayudar

rafa
20 de Abril del 2004
Hola.
Pon tu codigo e intentaremos ayudarte
Un saludo

ezzu
20 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]

\' definir el recordset
Dim rcdCantidades As DAO.Recordset
set rcdCantidades = dbg.OpenRecordSet("C_1_Almacen_Etiquetas_FiltraAlbaran X Cliente", dbOpenDynaset, dbDenyWrite)

\' Contador para el for
Dim i As Integer

rcdCantidades!MoveFisrt

dbg.Execute "Delete * From T_TempEtiquetas"

\' definir el recordset
Dim rcdEscribe As DAO.Recordset
set rcdEscribe = dbg.OpenRecordSet("T_TempEtiquetas", dbOpenDynaset, dbAppendOnly)

while not rcdCantidades.eof


if rcdCantidades!CanPed > 1 then

for i = 1 to rcdCantidades!CanPed
with rcdEscribe
\' comienza un nuevo registro
.addNew
\' se establece los valores de campo
![Albaran]=rcdCantidades![Albaran]
![FechaCarga]=rcdCantidades![FechaCarga]
![Transportista]=rcdCantidades![Transportista]
![Cliente]=rcdCantidades![Cliente]
![NotLinPed]=rcdCantidades![NotLinPed]
![NotaPed]=rcdCantidades![NotaPed]
![NroPedCli]=rcdCantidades![NroPedCli]
![N_P_SubCli]=rcdCantidades![N_P_SubCli]
![CodProd]=rcdCantidades![CodProd]
![CodEAN]=rcdCantidades![CodEAN]
![CantPed]=rcdCantidades![CantPed]
![CodBarras]=rcdCantidades![CodBarras]
End With
next i

else
rcdEscribe
\' comienza un nuevo registro
.addNew
\' se establece los valores de campo
![Albaran]=rcdCantidades![Albaran]
![FechaCarga]=rcdCantidades![FechaCarga]
![Transportista]=rcdCantidades![Transportista]
![Cliente]=rcdCantidades![Cliente]
![NotLinPed]=rcdCantidades![NotLinPed]
![NotaPed]=rcdCantidades![NotaPed]
![NroPedCli]=rcdCantidades![NroPedCli]
![N_P_SubCli]=rcdCantidades![N_P_SubCli]
![CodProd]=rcdCantidades![CodProd]
![CodEAN]=rcdCantidades![CodEAN]
![CantPed]=rcdCantidades![CantPed]
![CodBarras]=rcdCantidades![CodBarras]

end if

rcdCantidades.MoveNext
wend


End Sub