MaximoAccess

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

Obrigado

Administração do MaximoAccess

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.
    avatar
    adm.nneto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    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: 22/11/2019, 21:51