Access - Ideas para campo aplicación contabilidad

   
Vista:

Ideas para campo aplicación contabilidad

Publicado por tpfjavi (34 intervenciones) el 25/05/2010 16:43:48
Necesito ayuda

Estoy haciendo una pequeña utilidad de contabilidad, en la que tengo un campo que es "CuentaContable" que debe tener un tamaño de 9 dígitos.

Los programas de contabilidad suelen tener un caracter que al introducirlo rellena de "0" todos los huecos necesarios a derecha y a izquierda para completar el tamaño y así ir más rápido.

P.ejem.

Si tecleas 431 y la tecla "+" rellena y pone 431000000
Si tecleas 431 y la tecla "+" y "189" pone 431000189

Alguna idea.
Gracias y un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ideas para campo aplicación contabilidad

Publicado por tpfjavi (1 intervención) el 18/06/2010 13:24:03
Resuelto de una forma un poco "primitiva" pero funciona.

Private Sub TXT1_LostFocus()
Dim Posicion As String
Dim Longitud As String
Dim Izquierda As String
Dim Derecha As String
Dim Falta As String
Dim Zeros As String


Longitud = Len([TXT1])
Posicion = InStr(1, [TXT1], "+")
Izquierda = Mid(TXT1, 1, Posicion - 1)
Derecha = Mid(TXT1, Posicion + 1, 9)
Falta = 9 - Len(Izquierda) - Len(Derecha)

If Falta = 9 Then
Zeros = "000000000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 8 Then
Zeros = "00000000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 8 Then
Zeros = "00000000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 7 Then
Zeros = "0000000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 6 Then
Zeros = "000000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 5 Then
Zeros = "00000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 4 Then
Zeros = "0000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 3 Then
Zeros = "000"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 2 Then
Zeros = "00"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta = 1 Then
Zeros = "0"
TXT2 = Izquierda & Zeros & Derecha

ElseIf Falta < 0 Then

MsgBox " sobran caracteres, vuelva a insertar la cuenta."

TXT2 = ""
TXT1.SetFocus
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar