MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

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

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

    Nelson

      Data/hora atual: 21/11/2024, 09:46