VBA - Access - Criando um validador através de digito


Gerador validador de digito simples, em VBA.

junta = t1.Value '"123456" ' Este é o valor que estou querendo criar a validação.
For conta = 1 To Len(junta) Step 2 ' eu prefiro o FOR/NEXT mas você por utilizar o LOOP que preferir.
MOSTRA1 = Mid(junta, conta, 1)
somaa = Val(somaa) + Val(MOSTRA1)
b = b & MOSTRA1
Next conta
soma1 = somaa * 3
'casa pares
For conta = 2 To Len(junta) Step 2
MOSTRA2 = Mid(junta, conta, 1)
somab = Val(somab) + Val(MOSTRA2)
Next conta
total = Val(somab) + Val(soma1)
digito = Format((((Val(total) \ 10) + 1) * 10) - total, "00")
t2.Value = digito
t3.Value = t1.Value & "-" & digito


Segue o link de download para você ver na pratica via google drive
Comentários