Access - Error '6' en tiempo de ejecución: Desbordamiento

buenas tardes es que estoy haciendo una aplicacion y al ejecutarla me sale el error arriba enunciado,

Dim sueldo As Integer

Private Sub cmdhallar_Click()
txtsalario.SetFocus
sueldo = Int(txtsalario.Text)-----en esta parte sale sombreado en amarillo
txtextras.SetFocus
numeroextras = Int(txtextras.Text)
extras = (sueldo / 8) * numeroextras
txttotalextras = extras

sueldo = txtsalario.Text
If sueldo <= 1179000 Then
txtsubsidio = 78000
Else
txtsubsidio = 0
End If
End Sub

Has definido las variables numeroextras y extras??

Por lo visto en el código que enseñas solo se aprecia que defines sueldo

Hola!

Un integer sólo admite valores hasta los 65.000 y pico (hablo de memoria).

Define el sueldo como long o como currency, y las funciones de conversión cámbialas en función de lo que hayas elegido:

CLng(valor) -> Para long
CCur(valor) -> Para currency.

Probablemente así se te arregle.

Un saludo,


http://neckkito.siliconproject.com.ar

Buenas tardes,

Te comento que tiene que definir las variables de la siguiente manera,
Dim sueldo as Long, extras as Long, numeroextras as Long

Los valores que uses como constantes debes definirlo en una tabla de la base de datos, sólo así te garantizaría que esos parámetros puedan cambiarse a futuro sin alterar la función que estas haciendo.

El error se corrige cuando cambias la definición de las variables, te recomiendo que definas primero todas las variables, después mandes a asignar los valores y luego proceses los cálculos y posteriormente los vacía en los campos del formulario de msacccess.

Saludos
Norberto

Hola!

De acuerdo con lo que comentas, pero sólo puntualizar que si necesita decimales más que un Long debería utilizar Currency.

Saludos,

Neckkito