error 94 uso no valido de null

[joserg]

Hola a todos, soy nuevo por aqui, y quisiera que si por favor me pueden ayudadar con este codigo

Private Sub refresca()
Ado.RecordSource = "Select * From TBVenta_Aux "
Ado.Refresh
DataGrid_Detalle_Venta.Refresh
Set Registros = DBAlmacen.OpenRecordset("Select SUM(precio) AS TOTAL FROM TBventa_Aux")
Dim aux As Recordset
[I]Text_total.Text = Registros("TOTAL")[/I]

en la parte que tiene color diferente, dice error 94 en tiempo de ejecucion uso na valido de Null, y si lo quito me marca error en la tabla, y dice que el campo no puede contener un valor nulo, gracias, y espero sus respuestas.

[Kruzado]

yo una sola vez he ocupado l funcion sum en una sentencia sql, me costo mucho hacerla funcionar, pero recien funciono cuando me movi por toda la base de datos, esto es, primero ir al primer registro y despues al final, algo asi como
registros.movefirst
registros.movelast

con eso recorre toda la tabla y le carga un valor al campo total.

espero sirva

[Renegado]

Reemplaza esto:

"Select SUM(precio) AS TOTAL FROM TBventa_Aux"

por esto:

"Select SUM(isnull(precio, 0)) AS TOTAL FROM TBventa_Aux"

Saludos
PD: En todo caso revisa los registros de la tabla,
ya que no debiese tener nulos

[Korku]

Jejeje... ¿MySQL, no?