CanalQb - Microsoft Access - Criando um Validador de Dígito

---

@CanalQb que Youtube 

---

---

CanalQb - Microsoft Access - Criando um Validador de Dígito

---

Compartilho um exemplo simples de como criar um validador de dígito utilizando VBA no Microsoft Access. Este código foi desenvolvido para gerar um dígito verificador para uma sequência de números.

If IsNull(t1.Value) Or t1.Value = "" Then

    MsgBox "Por favor, preencha o campo T1 antes de prosseguir."

    t1.SetFocus

Else

    Dim junta As String

    Dim conta As Integer

    Dim somaa As Integer

    Dim somab As Integer

    Dim total As Integer

    Dim digito As String

    Dim MOSTRA1 As String

    Dim MOSTRA2 As String

    junta = t1.Value

    ' Soma dos dígitos ímpares

    For conta = 1 To Len(junta) Step 2

        MOSTRA1 = Mid(junta, conta, 1)

        somaa = somaa + Val(MOSTRA1)

    Next conta

    soma1 = somaa * 3

    ' Soma dos dígitos pares

    For conta = 2 To Len(junta) Step 2

        MOSTRA2 = Mid(junta, conta, 1)

        somab = somab + Val(MOSTRA2)

    Next conta

    total = somab + soma1

    digito = Format((((total \ 10) + 1) * 10) - total, "00")

    t2.Value = digito

    t3.Value = junta & "-" & digito

End If

Neste código, a variável junta representa o valor para o qual queremos criar a validação. O algoritmo percorre os caracteres dessa string, realiza algumas operações matemáticas e gera um dígito verificador.

Este é um exemplo básico que pode ser adaptado e expandido conforme necessário para atender aos requisitos específicos do seu projeto.