Macro para validar cuenta bancaria en access

Necesito una macro o algo que al darle a un botón, me verifique la cuenta bancaria, da igual si tengo que meter los números en campos distintos o en uno solo meter los 20 dígitos (entidad, sucursul, dc y cuenta). He mirado en internet pero no encuentro nada claro, no entiendo casi nada de vba así que si hay algo que este medio hecho mejor.

1 Respuesta

Respuesta
1
Supongamos que la tabla dónde tienes las cuentas bancacias se llama Cuentas y el campo CuentaBancaria
En el formulario insertamos un cuadro de texto que llamaremos txtCuenta, en este cuadro digitamos la cuenta.
Después insertas un botón, que llamaremos por ejemplo Enviar. En las propiedades del botón, acción Al hacer clic ---> Procedimiento de evento ---> Picas en el cuadrado de la derecha, el de los ... y pones el código:
If IsNull(DLookup("[CuentaBancaria]","[Cuentas]","CuentaBancaria=form!txtCuenta.Value")=true then
MsgBox "La cuenta no existe"
else
Msgbox "La cuenta si existe"
End if
Es decir, utilizamos la función isnull y dlookup, ésta última nos busca el registro en el campo CuentaBancaria de la tabla Cuentas con la condición de que CuentaBancaria sea igual al valor introducido en el cuadro de texto txtCuenta. La función IsNull nos dará true si es nulo el resultado de la búsqueda y false si el resultado no es nulo.
Luego puedes poner un mensaje con MsgBox
Me cuentas.
Falta un paréntesis de cierre:
If IsNull(DLookup("[CuentaBancaria]","[Cuentas]","CuentaBancaria=form!txtCuenta.Value"))=true then
Muchas gracias por tu pronta respuesta. Entiendo perfectamente tu respuesta, muy clara.
Pero me parece que no es lo que necesito, esto lo que hace es buscar el numero de cuenta en otra tabla, yo necesito verificar que la cuenta bancaria sea correcta, que no sea una cuenta bancaria inventada, creo que es algo de verificar el DC.
De acuerdo, pensé que querías verificar si la cuenta existía.
¿Sabes la fórmula para calcular el DC?
He buscado por ahí y he encontrado esta:
La primera cifra del banco se multiplica por 4.
La segunda cifra del banco se multiplica por 8.
La tercera cifra del banco se multiplica por 5.
La cuarta cifra del banco se multiplica por 10.
La primera cifra de la entidad se multiplica por 9.
La segunda cifra de la entidad se multiplica por 7.
La tercera cifra de la entidad se multiplica por 3.
La cuarta cifra de la entidad se multiplica por 6.
Se suman todos los resultados obtenidos.
Se divide entre 11 y nos quedamos con el resto de la división.
A 11 le quitamos el resto anterior, y ese el el primer dígito de control, con la salvedad de que si nos da 10, el dígito es 1
Para obtener el segundo dígito de control:
La primera cifra de la cuenta se multiplica por 1
La primera cifra de la cuenta se multiplica por 2
La primera cifra de la cuenta se multiplica por 4
La primera cifra de la cuenta se multiplica por 8
La primera cifra de la cuenta se multiplica por 5
La primera cifra de la cuenta se multiplica por 10
La primera cifra de la cuenta se multiplica por 9
La primera cifra de la cuenta se multiplica por 7
La primera cifra de la cuenta se multiplica por 3
La primera cifra de la cuenta se multiplica por 6
Se suman todos los resultados obtenidos.
Se divide entre 11 y nos quedamos con el resto de la división.
A 11 le quitamos el resto anterior, y ese el el segundo dígito de control, con la salvedad de que si nos da 10, el dígito es 1
¿Me puedes decir si es correcto antes de pasarlo a visual?
He encontrado este ejemplo ¿es correcto?
Ejemplo: Vamos a calcular los dígitos de control de la cuenta ficticia de la imagen.
Primer dígito de control:
4·0+8·0+5·0+10·4+9·3+7·0+3·0+6·6=103. Divido 103 entre 11. El resto es 4. Calculo 11- 4 y obtengo 7 que es el primer dígito de control.
Segundo dígito de control:
1·0+2·0+4·0+8·0+5·0+10·1+9·2+7·3+3·4+6·5=91. Divido 91 entre 11. El resto es 3. Calculo 11- 3 y obtengo 8 que es el segundo dígito de control.
Número de cuenta: 0004 3006 78 0000012345
Me cuentas.
Haciendo los cálculos manualmante si que funciona. Ahora lo complicado es pasarlo a vba
No te preocupes, esta tarde lo hago y te lo mando.
Encontré esto en internet, por si te puede servir, pero no puedo ver el código
http://sites.google.com/site/jjjt1973/Home/verificar-cuenta-bancaria
La casilla de verificación que hay no me hace falta.
Enlace directo para descarga
http://sites.google.com/site/jjjt1973/Home/verificar-cuenta-bancaria/VerificarCuentaBancaria.rar?attredirects=0&d=1
Ya puede verle las tripas a la bd, hay un formulario y un modulo, ¿creo qué con esto ya tienes menos trabajo no?, pero yo no se darle forma:
El Formulario:
Private Sub Bank_BeforeUpdate(Cancel As Integer)
If Bank = DLookup("Bank", "Banco", "Bank ='" & Me.Bank & "'") Then
Else
MsgBox "Banco Errado"
End If
Cancel = True
Exit Sub
End Sub
Private Sub Bank_Change()
Dim txtBank As String
txtBank = Me.Bank.Text
If Len(txtBank) >= 4 Then
Me.Bank = Left(txtBank, 4)
Me.Agencia.SetFocus
End If
End Sub
Private Sub CobroBanc_Click()
If CobroBanc = True Then
Bank.Enabled = True
Agencia.Enabled = True
CrBanc.Enabled = True
Cuenta.Enabled = True
Bank.SetFocus
Else
Bank.Enabled = False
Agencia.Enabled = False
CrBanc.Enabled = False
Cuenta.Enabled = False
End If
End Sub
Private Sub CrBanc_Change()
Dim txtCrBanc As String
txtCrBanc = Me.CrBanc.Text
If Len(txtCrBanc) >= 2 Then
Me.CrBanc = Left(txtCrBanc, 2)
Me.Cuenta.SetFocus
End If
End Sub
Private Sub Form_Close()
'DoCmd.Quit
End Sub
Private Sub Form_Current()
Bank.Enabled = False
Agencia.Enabled = False
CrBanc.Enabled = False
Cuenta.Enabled = False
End Sub
Private Sub Agencia_Change()
Dim txtSubBank As String
txtSubBank = Me.Agencia.Text
If Len(txtSubBank) >= 4 Then
Me.Agencia = Left(txtSubBank, 4)
Me.CrBanc.SetFocus
End If
End Sub
Private Sub Cuenta_Change()
Dim txtCuenta As String
txtCuenta = Me.Cuenta.Text
If Len(txtCuenta) >= 10 Then
Me.Cuenta = Left(txtCuenta, 10)
Me.Verificar.SetFocus
End If
End Sub
Private Sub Verificar_Click()
If CobroBanc = True Then
If IsNull(Me![Bank]) Or IsNull(Me![Agencia]) _
Or IsNull(Me![CrBanc]) Or IsNull(Me![Cuenta]) Then
MsgBox "Debe Incluir todos los datos de la cuenta", vbCritical, "Faltan Datos"
Bank.SetFocus
Exit Sub
End If
If Bank = DLookup("CodigoBanco", "Banco", "CodigoBanco ='" & Me.Bank & "'") Then
Else
MsgBox "El Codigo Banco No esta ASOCIADO a ninguna entidad Bancaria" & vbCrLf & _
"Por favor Verifique de nuevo", vbCritical, "Codigo Banco"
Bank.SetFocus
Cancel = True
Exit Sub
End If
If CrBanc = sBankControlDigit(Me.Bank, Me.Agencia, Me.Cuenta) Then
MsgBox "Cuenta Valida", vbExclamation, "Correcto"
Else
MsgBox "Esta cuenta esta Errada" & vbCrLf & vbCrLf & _
"La secuencia del Dígito de Control no es VALIDA", vbCritical, "Dígito Errado"
CrBanc.SetFocus
Exit Sub
End If
Else
MsgBox "Debe seleccionar la Opcion Verificar Cuenta Bancaria" & vbCrLf & _
"luego introducir los datos de la cuenta", vbCritical, "Opción Verificar"
End If
End Sub
Módulo "CalculoDigitoControl"
Option Compare Database
' Funcion para verificar el Digito de Control de una cuenta Bancaria
==============
Function sBankControlDigit(Bank As Integer, SubBank As Integer, Account As Double) As String
Dim sBank As String
Dim sSubBank As String
Dim sAccount As String
Dim Temporal As Integer
sBank = Format(Bank, "0000")
sSubBank = Format(SubBank, "0000")
sAccount = Format(Account, "0000000000")
Temporal = 0
Temporal = Temporal + Mid(sBank, 1, 1) * 4
Temporal = Temporal + Mid(sBank, 2, 1) * 8
Temporal = Temporal + Mid(sBank, 3, 1) * 5
Temporal = Temporal + Mid(sBank, 4, 1) * 10
Temporal = Temporal + Mid(sSubBank, 1, 1) * 9
Temporal = Temporal + Mid(sSubBank, 2, 1) * 7
Temporal = Temporal + Mid(sSubBank, 3, 1) * 3
Temporal = Temporal + Mid(sSubBank, 4, 1) * 6
Temporal = 11 - (Temporal Mod 11)
If Temporal = 11 Then
sBankControlDigit = "0"
ElseIf Temporal = 10 Then
sBankControlDigit = "1"
Else
sBankControlDigit = Format(Temporal, "0")
End If
Temporal = 0
Temporal = Temporal + Mid(sAccount, 1, 1) * 1
Temporal = Temporal + Mid(sAccount, 2, 1) * 2
Temporal = Temporal + Mid(sAccount, 3, 1) * 4
Temporal = Temporal + Mid(sAccount, 4, 1) * 8
Temporal = Temporal + Mid(sAccount, 5, 1) * 5
Temporal = Temporal + Mid(sAccount, 6, 1) * 10
Temporal = Temporal + Mid(sAccount, 7, 1) * 9
Temporal = Temporal + Mid(sAccount, 8, 1) * 7
Temporal = Temporal + Mid(sAccount, 9, 1) * 3
Temporal = Temporal + Mid(sAccount, 10, 1) * 6
Temporal = 11 - (Temporal Mod 11)
If Temporal = 11 Then
sBankControlDigit = sBankControlDigit + "0"
ElseIf Temporal = 10 Then
sBankControlDigit = sBankControlDigit + "1"
Else
sBankControlDigit = sBankControlDigit + Format(Temporal, "0")
End If
End Function
Me parece demasiado código si lo que necesitas unicamente es validar el dígito.
Yo lo he hecho de la siguiente forma:
En el formulario 4 cuadros de texto para digitar la entidad, sucursal, DC y cuenta. Los llamaremos: txtEntidad, txtSucursal, txtDC y txtCuenta respectivamente.
Después insertar un botón que llamaré Validar y en el código de ese botón:
Private Sub Verificar_Click()
Dim v1, v2 As Integer
Dim vDC1, vDC2 As String
v1 = 0
v2 = 0
If IsNull(Form!txtEntidad) = True Or IsNull(Form!txtSucursal) = True Or IsNull(Form!txtDC) = True Or IsNull(Form!txtCuenta) = True Then
MsgBox "No se puede dejar ningún campo vacío"
Else
If Len(Form!txtEntidad) <> 4 Or Len(Form!txtSucursal) <> 4 Or Len(Form!txtDC) <> 2 Or Len(Form!txtCuenta) <> 10 Then
MsgBox "El nº de dígitos es incorrecto"
Else
v1 = Mid(Form!txtEntidad, 1, 1) * 4
v1 = v1 + Mid(Form!txtEntidad, 2, 1) * 8
v1 = v1 + Mid(Form!txtEntidad, 3, 1) * 5
v1 = v1 + Mid(Form!txtEntidad, 4, 1) * 10
v1 = v1 + Mid(Form!txtSucursal, 1, 1) * 9
v1 = v1 + Mid(Form!txtSucursal, 2, 1) * 7
v1 = v1 + Mid(Form!txtSucursal, 3, 1) * 3
v1 = v1 + Mid(Form!txtSucursal, 4, 1) * 6
If 11 - v1 Mod 11 = 10 Then
vDC1 = 1
Else
vDC1 = 11 - v1 Mod 11
End If
v2 = Mid(Form!txtCuenta, 1, 1) * 1
v2 = v2 + Mid(Form!txtCuenta, 2, 1) * 2
v2 = v2 + Mid(Form!txtCuenta, 3, 1) * 4
v2 = v2 + Mid(Form!txtCuenta, 4, 1) * 8
v2 = v2 + Mid(Form!txtCuenta, 5, 1) * 5
v2 = v2 + Mid(Form!txtCuenta, 6, 1) * 10
v2 = v2 + Mid(Form!txtCuenta, 7, 1) * 9
v2 = v2 + Mid(Form!txtCuenta, 8, 1) * 7
v2 = v2 + Mid(Form!txtCuenta, 9, 1) * 3
v2 = v2 + Mid(Form!txtCuenta, 10, 1) * 6
If 11 - v2 Mod 11 = 10 Then
vDC2 = 1
Else
vDC2 = 11 - v2 Mod 11
End If
If Trim(Str(vDC1)) + Trim(Str(vDC2)) = Form!txtDC Then
MsgBox "Cuenta correcta"
Else
MsgBox "Cuenta incorrecta"
End If
End If
End If
End Sub
Me cuentas, saludos Angeles
Página Supuestos y Soluciones en Access:

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ocultar eiqueta según resultado

El otro día me salvaron en como eligiendo una opción de un cuadro combinado se ocultaban las etiquetas, lo que necesito ahora es similar Como ocultar una etiqueta según el resultado que se obtiene en otra etiqueta Detallo: La etiqueta "P10" tiene un...
1 respuesta

Validar RUT Chile

Le cuento que me he cabeceado demasiado con este problema: Tengo una base de datos en la cual necesito validar el RUT para así evitar agregar a la misma persona cambiando algún dígito del RUT por error. El código VB funciona bien, pero el problema es...
1 respuesta

Cuadro de texto cuando tiene LostFocus y GotFocus

Pasa que tengo un formulario pero este no tiene origen del registro, lo utilizo para agregar datos a una tabla pero mediante una consulta sql... Lo que hago es que conforme voy metiendo un dato al cuadro de texto lo verifique y pues si es válido da...
1 respuesta

Validar formularios en access

Sabes mi nombre es francesca y necesito saber si me puedes ayudar a validar un formulario en access donde el rut debe aparecer validado y que si ingreso el rut en otro formulario aparezcan los datos del usuario a quien le corresponde el rut
1 respuesta

Menú desplegable dependiente de dos valores

Este problema seguro que te habrá aparecido previamente y nos podrías comentar rápidamente la solución: Problema: - En un formulario tenemos un menú desplegable (combo) cuyo valor ha de depender de dos campos. Por ejemplo el menú podría ser para...
2 respuestas

Ingresar el rut en un textbox y verificar en otro

Tengo un formulario en el cual ingreso datos como nombre apellido etc.. Pero necesito ingresar el rut y que aparezca el dígito verificador (chile), ademas necesito que el numero de registro se incremente en 1 automáticamente cada vez que in greso un...
2 respuestas

Macro formato de fecha

Quería ver si me pueden ayudar en lo siguiente, tengo la fecha en las columnas "F:F" y "G:G" y están de la siguiente forma 21/03/12. Estas fechas las extraigo de un archivo txt algunas me las muestra con formato completo es decir 21/03/2012 y otras...
1 respuesta

Como sumar grados, min, seg, en excel

Lo q pasa es que en mis trabajos de topografía .. Me hace mucho lio escribir grados, min, seg... En diferentes celdas para luego convertirlas a grados .. Mediante equivalencias ... Y quisiera saber como sumar usando puntos por ejemplo ; ¿24.26.36 +...
1 respuesta

Formato de hora en un textbox

Que tal buen dia espero me puedan ayudar en un formulario con un texbox voy a capturar la hora de un trabajador desconozco si se pudiera hacer es al momento que se capture la hora aparezcan los " : " por default y después que capture los minutos,...
1 respuesta

Borrar registros de una tablay guardar los cambios

Que tal recurro a ti o a ustedes para realizar una petición de ayuda respecto a est nuevo problema que ma aqueja, bien les explico en que consist y ojala pudieran ayudarme, resulta que tengo una tabla en access2000 llamada "Ordenes" la cual tiene...
1 respuesta