SUMAR Y AGRUPAR !!!
Publicado por GRIS (48 intervenciones) el 05/09/2007 14:53:14
Hola espero me puedan ayudar, esto es realmente me urge, verán, tengo el siguiente codigo, lo que quiero es sumar determinados registros, según el criterio de la consulta y que el resultado me lo muestre en un textbox llamado costo, pero al ejecutarla no sucede absolutamente nada, alguien me podría decir en donde está mi error ???? GRACIAS ...
Dim sql As Database
Dim sales As Recordset
Dim strSQL As String
Dim costo As Double
Set sql = CurrentDb()
strSQL = "Select SUM(COTIZADO.TOTAL_QUOTED_COST) AS SUMA FROM COTIZADO WHERE COTIZADO.Parent_Part_Number like '*" & Parent_Part_Number & "*' GROUP BY COTIZADO.Parent_Part_Number"
Set sales = sql.OpenRecordset(strSQL, dbOpenDynaset)
If sales.RecordCount = 0 Then
costo = 0
End If
With sales
While Not .EOF
costo = costo + Val(![SUMA])
.MoveNext
Wend
While Not .EOF
If IsNumeric(![SUMA]) = False Then
Exit Sub
Else
costo = costo + Val(![SUMA])
End If
.MoveNext
Wend
End With
Dim sql As Database
Dim sales As Recordset
Dim strSQL As String
Dim costo As Double
Set sql = CurrentDb()
strSQL = "Select SUM(COTIZADO.TOTAL_QUOTED_COST) AS SUMA FROM COTIZADO WHERE COTIZADO.Parent_Part_Number like '*" & Parent_Part_Number & "*' GROUP BY COTIZADO.Parent_Part_Number"
Set sales = sql.OpenRecordset(strSQL, dbOpenDynaset)
If sales.RecordCount = 0 Then
costo = 0
End If
With sales
While Not .EOF
costo = costo + Val(![SUMA])
.MoveNext
Wend
While Not .EOF
If IsNumeric(![SUMA]) = False Then
Exit Sub
Else
costo = costo + Val(![SUMA])
End If
.MoveNext
Wend
End With
Valora esta pregunta
0