MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Gerar números e letras aleatório

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    Gerar números e letras aleatório  Empty Gerar números e letras aleatório

    Mensagem  HARYSOHN em 26/2/2013, 12:30

    Este código utilizo para gerar números e letras para assinar/verificar a autenticidade de um doc. emitido pelo sistema (Certidão)
    Onde se gera o numero e grava em duas tabelas, uma a tabela onde se arquiva os numeros gerados e a outra a tabela do doc. gerado gravando o numero tambem na mesma.

    Assim pode-se verificar a autenticidade da emissão de uma certidão.


    Function Autentica() As String
    alfanumerico = "ABCDEFGHIJKLMNOPQRSTUVXZYW1234567890abcdefghijklmnopqrstuvxzyw"
    For I = 1 To 24
    Randomize
    X = Int(Rnd * Len(alfanumerico)) + 1
    If InStr(1, sequencia, Mid(alfanumerico, X, 1)) Then
    I = I - 1
    Else
    sequencia = sequencia & Mid(alfanumerico, X, 1)
    End If
    Next
    Autentica = sequencia
    End Function


    Cumprimentos.
    adm.nneto
    adm.nneto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 28/11/2012

    Gerar números e letras aleatório  Empty Re: Gerar números e letras aleatório

    Mensagem  adm.nneto em 27/4/2018, 21:58

    Harisson, valeu pela contribuição, ajudou muito.

    Nelson

      Data/hora atual: 6/7/2020, 18:52