Division por cero en multiplicacion
Publicado por ROBERTO (145 intervenciones) el 08/02/2012 10:55:18
Buenas. Mi problema es que tengo un codigo en un boton de comando que hace lo siguiente:
MODIFIFACTURACION:
While Not rst.EOF
rst.Edit
'PORCEN = (Me.FOBXUNI / Me.Texto88)
rst![PORCTRANSINT] = [TRANSINTER] *[PORCENPED]
rst![PORCTRANSPROV] = [TRANSPROV] * [PORCENPED]
rst![EURORMB] = Me.EUR_RMB
rst![VTARMB] = rst![PREVTA] * rst![EURORMB]
rst![DSXRMB] = rst![CANT] * rst![VTARMB]
rst![IVARMB] = rst![DSXRMB] * 0.17
rst![TOTRMB] = rst![DSXRMB] + rst![IVARMB]
rst![TOTDISENO] = Me.COGEDISE
rst![COSTOSIN] = ((rst![FOBNUEVO] * rst![CANT]) + rst![PORCTRANSPROV] + Nz(rst![TOTDISENO]))
rst![BENEF] = (rst![DSXRMB] - rst![COSTOSIN]) + (rst!PORCTRANSINT)
rst.Update
rst.MoveNext
'GoTo MODIFIFACTURACION
'Else
'MsgBox ("Registros de Facturación modificados correctamente"), vbCritical
'GoTo FIN
'End If
Wend
MsgBox ("Registros de Facturación modificados correctamente"), vbCritical
GoTo FIN
* Al ejecutar el código me dá error en la linea rst![PORCTRANSINT] = [TRANSINTER] *[PORCENPED]
y el error es el nº 11 divison por cero. Pero es una multiplicación y no lo entiendo la verdad. En este caso el valor de TRANSINTER es 0 y el de PORCENPED es 0,5 lo que deberia dar 0 como resultado y nada más pero me da este error. No entiendo muy bien por que. TRANSINTER Y PORCENPED son cuadros de texto que tengo en el subformulario que toman un valor del formulario principal.
MODIFIFACTURACION:
While Not rst.EOF
rst.Edit
'PORCEN = (Me.FOBXUNI / Me.Texto88)
rst![PORCTRANSINT] = [TRANSINTER] *[PORCENPED]
rst![PORCTRANSPROV] = [TRANSPROV] * [PORCENPED]
rst![EURORMB] = Me.EUR_RMB
rst![VTARMB] = rst![PREVTA] * rst![EURORMB]
rst![DSXRMB] = rst![CANT] * rst![VTARMB]
rst![IVARMB] = rst![DSXRMB] * 0.17
rst![TOTRMB] = rst![DSXRMB] + rst![IVARMB]
rst![TOTDISENO] = Me.COGEDISE
rst![COSTOSIN] = ((rst![FOBNUEVO] * rst![CANT]) + rst![PORCTRANSPROV] + Nz(rst![TOTDISENO]))
rst![BENEF] = (rst![DSXRMB] - rst![COSTOSIN]) + (rst!PORCTRANSINT)
rst.Update
rst.MoveNext
'GoTo MODIFIFACTURACION
'Else
'MsgBox ("Registros de Facturación modificados correctamente"), vbCritical
'GoTo FIN
'End If
Wend
MsgBox ("Registros de Facturación modificados correctamente"), vbCritical
GoTo FIN
* Al ejecutar el código me dá error en la linea rst![PORCTRANSINT] = [TRANSINTER] *[PORCENPED]
y el error es el nº 11 divison por cero. Pero es una multiplicación y no lo entiendo la verdad. En este caso el valor de TRANSINTER es 0 y el de PORCENPED es 0,5 lo que deberia dar 0 como resultado y nada más pero me da este error. No entiendo muy bien por que. TRANSINTER Y PORCENPED son cuadros de texto que tengo en el subformulario que toman un valor del formulario principal.
Valora esta pregunta
0