Codigo DAO en Access2000
Publicado por Dreide (1 intervención) el 15/10/2002 16:11:57
Hola:
tengo un problema. Quiero hacer un procedimiento que calcule un acumulado en una tabla temporal, a partir de la cual hare un grafico de comportamiento estadistico..En fin la tabla resultado seria:
A B
10 10
0 10
10 20
10 30
El problema es que cuando hago la siguiente function:
Public Function Acumular()
Dim bd As Database
Dim temp As TableDef
Dim consulta As QueryDef
Dim Acum, i As Integer
Set bd = CurrentDb()
Set temp = bd.TableDefs("temporal")
Set consulta = bd.QueryDefs("TempoES")
Acum = 0
DoCmd.OpenQuery consulta.Name, acViewNormal
DoCmd.OpenTable temp.Name, acViewNormal
End Function
No se como hacer el ciclo que recorra todos los registros de la consulta para llenar la tabla temporal con los acumulados.
Tampoco se como tratar los campos para hacer la suma acumulada. no se si se escribe temp!nombre campo ó temp(nombre campo) o cómo será.
Alguien me puede ayudar con la colección DAO?????
Gracias
D
tengo un problema. Quiero hacer un procedimiento que calcule un acumulado en una tabla temporal, a partir de la cual hare un grafico de comportamiento estadistico..En fin la tabla resultado seria:
A B
10 10
0 10
10 20
10 30
El problema es que cuando hago la siguiente function:
Public Function Acumular()
Dim bd As Database
Dim temp As TableDef
Dim consulta As QueryDef
Dim Acum, i As Integer
Set bd = CurrentDb()
Set temp = bd.TableDefs("temporal")
Set consulta = bd.QueryDefs("TempoES")
Acum = 0
DoCmd.OpenQuery consulta.Name, acViewNormal
DoCmd.OpenTable temp.Name, acViewNormal
End Function
No se como hacer el ciclo que recorra todos los registros de la consulta para llenar la tabla temporal con los acumulados.
Tampoco se como tratar los campos para hacer la suma acumulada. no se si se escribe temp!nombre campo ó temp(nombre campo) o cómo será.
Alguien me puede ayudar con la colección DAO?????
Gracias
D
Valora esta pregunta
0