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

    [Resolvido]Gerar código de barras sem repetição

    Compartilhe
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 725
    Registrado : 30/08/2010

    [Resolvido]Gerar código de barras sem repetição

    Mensagem  gilberlanio em 19/10/2018, 22:51

    Olá pessoal, estou usando o código abaixo no evento clique de um botão para gerar código de barras aleatórios, o único problema é que as vezes ele gera código que já foi gerado.
    Queria que ao clicar ele verificasse se já existe, caso positivo gerava outro.

    Código:
    Dim CodigoBarra
    CodigoBarra = Int((9999999999# + 1) * Rnd)
    TxtCodProd = "789" & CodigoBarra


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

    Vários Exemplos Grátis
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2471
    Registrado : 21/04/2011

    Re: [Resolvido]Gerar código de barras sem repetição

    Mensagem  Marcelo David em 20/10/2018, 02:42

    Boa noite,
    você poderá consultar com um dlookup se o código gerado já existe no banco, caso exista, gere outro e faça o mesmo teste
    até encontrar um que não tenha sido criado.

    Ou poderá gerar o código sequencial, incrementando com base nos já existentes, mas nesse caso, imagino que se vc usar o código
    de barrar digitado, que já tenha em algum produto, daí a sequencia quebra.


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 725
    Registrado : 30/08/2010

    Re: [Resolvido]Gerar código de barras sem repetição

    Mensagem  gilberlanio em 20/10/2018, 03:18

    Olá Marcelo, obrigado pela força.
    Fiz da seguinte forma e deu certo. Usei o comando Randomize que inicializa o gerador de números aleatórios e ficou da seguinte forma.

    Código:
    Randomize 'Inicialize o gerador de números aleatórios.
    CodigoBarra = Int((9999999999# + 1) * Rnd)
    TxtCodProd = "789" & CodigoBarra


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

    Vários Exemplos Grátis
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 725
    Registrado : 30/08/2010

    Re: [Resolvido]Gerar código de barras sem repetição

    Mensagem  gilberlanio em 20/10/2018, 03:19

    Tinha esquecido de colocar como resolvido.


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

    Vários Exemplos Grátis
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2471
    Registrado : 21/04/2011

    Re: [Resolvido]Gerar código de barras sem repetição

    Mensagem  Marcelo David em 20/10/2018, 03:26

    Very Happy cheers cheers


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

      Data/hora atual: 16/11/2018, 12:39