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


2 participantes

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

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  gilberlanio 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
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 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.


    .................................................................................
    [Resolvido]Gerar código de barras sem repetição Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Gerar código de barras sem repetição Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Gerar código de barras sem repetição Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Gerar código de barras sem repetição Marcel11
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  gilberlanio 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
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  gilberlanio 20/10/2018, 03:19

    Tinha esquecido de colocar como resolvido.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

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

    Very Happy cheers cheers


    .................................................................................
    [Resolvido]Gerar código de barras sem repetição Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Gerar código de barras sem repetição Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Gerar código de barras sem repetição Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Gerar código de barras sem repetição Marcel11

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 21:41