Hola!
Ahí tienes cómo hacerlo:
http://www.mediafire.com/download/f84u1jgl0a8j37z/diario-Rev.Nck2.zip
Un par de cosas a tener en cuenta:
En tu tabla tienes que eliminar la máscara de entrada.
En tu subformulario tienes que eliminar la máscara de entrada
He utilizado como carácter separador la coma (,). Eso está definido en una constante del código. Si quieres utilizar otro separador tienes que cambiarlo ahí. Por ejemplo, si quieres utilizar un guión deberías cambiar la línea así:
Const caracterDeCero As String = "-"
Por cierto, he puesto la coma porque es el carácter que me devuelve cuando le doy al punto del teclado numérico.
En otra constante tienes el nivel de dígitos de la cuenta, que te lo he establecido en 10. Si el día de mañana quieres recortar o ampliar el número de dígitos de subcuenta bastará que modifiques el valor de esa constante
Const nivelCta As Byte =
10
Finalmente, el código está en el evento "Después de actualizar" del campo donde indicas la subcuenta.
¿Y cómo funciona? Pues si el carácter separador es la coma (,) y tu subcuenta es 5720000075 lo que tienes que escribir es
572,75
Y al pulsar enter se te rellenarán los ceros intermedios.
Saludos,
http://neckkito.siliconproject.com.ar