[Resolvido]Função Validar o numero de chave NFe ACCESS

Pessoal,

Tentei localizar no Forum mais não localizei, alguem teria uma função que pegaria o Numero de Chave de Acesso de um text box para verificar se é válida ?

Obrigado

Aqui mesmo;

É só adaptar:

http://maximoaccess.forumeiros.com/t1097-passwords-senhas-em-txt-ou-dll

JPaulo, tenho conhecimento básíco e não sei como aplicar isso... Código Chave de NF é formado por 44 caracteres..o que achei na Neté para programação Delphi:

function ValidarChaveNFe(const ChaveNFe: string):boolean;
const
PESO : Array[0..43] of Integer = (4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 2, 0);
var
Retorno : boolean;
aChave : Array[0..43] of Char;
Soma : Integer;
Verif : Integer;
I : Integer;
begin
Retorno := false;
try
try
if not Length(ChaveNFe) = 44 then
raise Exception.Create('');

StrPCopy(aChave,StringReplace(ChaveNFe,' ', '',[rfReplaceAll]));
Soma := 0;
for I := Low(aChave) to High(aChave) do
Soma := Soma + (StrToInt(aChave[i]) * PESO[i]);

if Soma = 0 then
raise Exception.Create('');

Soma := Soma - (11 * (Trunc(Soma / 11)));
if (Soma = 0) or (Soma = 1) then
Verif := 0
else
Verif := 11 - Soma;

Retorno := Verif = StrToInt(aChave[43]);
except
Retorno := false;
end;
finally
Result := Retorno;
end;
end;

Agora como adptar isso para Access ...

Olá

Veja esse tópico do forum Itlab, leia o tópico inteiro que encontrará o que precisa.

Validar nota

Obrigado MR Silva, vou tentar baseado no link desenvolver o código.

Consegui achar essa função que para montar o que queria foi uma mão na roda...

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/6817001723?r=6817001723#6817001723

'Exemplo de Uso

Dim vchave as string

vChave = "4310120247692400019455000000005282102141337"
vDVChaveAcesso = DVmod11(vChave)
vChave = vChave & vDVChaveAcesso



'Função
Function DVmod11(vNr As String) As Integer
On Error GoTo Erro

Dim i As Integer, vSoma As Long, vMult As Byte

vSoma = 0
vMult = 2

For i = Len(vNr) To 1 Step -1
If vMult = 10 Then vMult = 2
vSoma = vSoma + CInt(Mid(vNr, i, 1)) * vMult
vMult = vMult + 1
Next

If vSoma Mod 11 = 0 Or vSoma Mod 11 = 1 Then
DVmod11 = 0
Else
DVmod11 = 11 - (vSoma Mod 11)
End If

Sair:
Exit Function
Erro:
MsgBox Err.Description, vbCritical + vbOKOnly, "Erro na Função DVmod11"
Resume Sair
End Function