SUma campos de una tabla
Publicado por MACT (3 intervenciones) el 10/05/2005 09:29:22
Buenos días a todos!
No sé si podéis ayudarme pero tengo un problema con una funcion. Soy un poco novata y aunque he heco un montón de pruebs no encuentro el fallo.. No consigo que en el campo existencias tenga el valor del avg y en el próximo resgistro con el mismo identificador de producto el cmpo existenxias sea avg + anterior avg. Seguro que es una tontería pero, me podríais decir qué está mal, por favor?
If rs.RecordCount > 0 Then
rs.MoveFirst
While Not rs.EOF
num = rs![ID_Material]
MsgBox "ID_Material" & num
strSql = "SELECT Avg(PMPS.Compra) AS pmp" & _
" FROM PMPS WHERE PMPS.ID_Material =" & num & " AND PMPS.Compra <> 0"
Set rs1 = db.OpenRecordset(strSql, dbOpenDynaset)
pmp = rs1.Fields!pmp
MsgBox "PMP" & pmp
ef = rs![Existencias]
If (ef = 0) Then
ef = pmp
End If
MsgBox ef
If rs.Fields!Compra = 0 Then
rs.Edit
rs.Fields!Consumo = pmp
rs.Fields!Existencias = ef
rs.Update
MsgBox "Existencias" & rs.Fields!Existencias
Else
rs.Edit
rs.Fields!Existencias = ef
rs.Update
End If
rs.MoveNext
Wend
End If
Muchas gracias por vuestra ayuda.
No sé si podéis ayudarme pero tengo un problema con una funcion. Soy un poco novata y aunque he heco un montón de pruebs no encuentro el fallo.. No consigo que en el campo existencias tenga el valor del avg y en el próximo resgistro con el mismo identificador de producto el cmpo existenxias sea avg + anterior avg. Seguro que es una tontería pero, me podríais decir qué está mal, por favor?
If rs.RecordCount > 0 Then
rs.MoveFirst
While Not rs.EOF
num = rs![ID_Material]
MsgBox "ID_Material" & num
strSql = "SELECT Avg(PMPS.Compra) AS pmp" & _
" FROM PMPS WHERE PMPS.ID_Material =" & num & " AND PMPS.Compra <> 0"
Set rs1 = db.OpenRecordset(strSql, dbOpenDynaset)
pmp = rs1.Fields!pmp
MsgBox "PMP" & pmp
ef = rs![Existencias]
If (ef = 0) Then
ef = pmp
End If
MsgBox ef
If rs.Fields!Compra = 0 Then
rs.Edit
rs.Fields!Consumo = pmp
rs.Fields!Existencias = ef
rs.Update
MsgBox "Existencias" & rs.Fields!Existencias
Else
rs.Edit
rs.Fields!Existencias = ef
rs.Update
End If
rs.MoveNext
Wend
End If
Muchas gracias por vuestra ayuda.
Valora esta pregunta
0