Access - Duda Interesante...

 
Vista:

Duda Interesante...

Publicado por David (18 intervenciones) el 12/03/2007 22:11:28
Amigos:
Tengo una campo para agrupar y realizar la suma de costos, sin embargo ahora agregué otro campo patra agrupar, y el codigo que antes me sirvió, ahora noa tabla, en otras palabras necesito sumar el costo si Item y este NuevoCampo son iguales a los que tengo en el formulario....como cambia este código???

Private Sub Form_Open(Cancel As Integer)
Dim d As Database, r As Recordset, s As String, r2 As Recordset
Set d = CurrentDb
s = "select Item,sum(Costo) as suma from Tabla1 group by Item and Tipo"
Set r = d.openrecordset(s)
s = "select * from Tabla2"
Set r2 = d.openrecordset(s)

Do Until r.EOF
r2.FindFirst "Item='" & r!Item & "'" and "Tipo='" & r!Tipo & "'"
If Not r2.nomatch Then
r2.edit
r2!Estado = r2!Presupuesto - r!suma
r2.Update
End If
r.MoveNext
Loop

End Sub

He hecho algunas modificaciones y no ha resultado....Que cambios debo hacer???

Por ejemplo:

Tabla1:
Item Tipo Costo
Item1 Negro 10

Item1 Negro 5

Item 2 Negro 5

Item 1 Azul 15
Item 2 Azul 20

Tabla2
Tipo Item Presupuesto Estado

Negro Item1 100 85

Negro Item 2 100 95
Azul Item 1 50 35
Azul Item 2 60 40

El valor de presupuesto lo ingresa el usuario
Ojalá entiendan

Me urge una aclaración
Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder