Visual Basic - round

Hola a todos :
Les hago la siguiente pregunta . Estoy tratando de ejecutar este select y en alguna maquinas anda bien y en otran me tira el siguiente error . "Undefined function ‘round’ in expression" si aguien sabe que puede ser . Yo por mi parte intale el service pack 5 para visual 6.0 y sigue tirando en mismo error. Otro dato es que desde access la consulta anda bien en cualquier equipo

desde ya gracias

Adrian

Dim r As New ADODB.Recordset
Dim sql As String

sql = "SELECT Facturacion.FacturacionId, "
sql = sql & "Facturacion.Abreviatura, "
sql = sql & "Facturacion.Numero, "
sql = sql & "Facturacion.Fecha, "
sql = sql & "Format(Facturacion.ImporteTotal,'Fixed') AS [Importe], "
sql = sql & "Format(Facturacion.ImporteTotal-Facturacion.Cancelado,'Fixed') AS Por Cancelar] "
sql = sql & "FROM TipoComprobante INNER JOIN Facturacion ON TipoComprobante.ComprobanteId = Facturacion.ComprobanteId "
sql = sql & "Where (((Facturacion.FechaBaja) Is Null) "
sql = sql & "And ((Facturacion.ClienteId) = " & Cliente & ") "
sql = sql & "And (round(Facturacion.Cancelado, 2) < round([ImporteTotal], 2)) "
sql = sql & "And ((TipoComprobante.SignoContable) = 'Positivo')) "
sql = sql & "ORDER BY Facturacion.FacturacionId;"

r.Open sql, DB, adOpenStatic, adLockOptimistic

Set FacturasDeudor = r

No se el porque del error, pero puedes obviar el round en el select, y darle formato a dos decimales en el control en que vayas a mostrar la consulta...

Saludos
Daniel

Hola, quizá tu ya lo solucionaste, yo tengo el mismo problema que funciona bien el round en access y en visual basic me da el error.

Saludos
Miguel

Mi correco es [email protected]