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

    Ajuda com Código de barras no cadastro de cliente

    Compartilhe

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 253
    Registrado : 26/06/2013

    Ajuda com Código de barras no cadastro de cliente

    Mensagem  cjsilva2013 em Qua 14 Fev 2018, 10:38

    Olá, bom dia.

    Venho outra vez, em busca de ajuda, para resolver uma pequena dificuldade com a geração de código de barras para aluno...

    Tenho a seguinte função num botão que gera código de barras... Função essa disponibilizada pelo grande João Paulo...

    '----------------------------------------------------------------------------------------------------------------------------------

    Private Sub cmdCodBarras_Click()
    On Error Resume Next
    Dim CodigoBarras

    ' fonte: Microsoft - Para produzir inteiros aleatórios em um determinado intervalo
    ' Int((Maior Número - Menor Número + 1) * Rnd + Menor Número)

    ' CodigoBarras = Int((9999999999 - 0 +1 ) * Rnd + 0)

    CodigoBarras = Int((9999999999# + 1) * Rnd)
    CodigoB = "789" & CodigoBarras

    End Sub

    No campo "CodigoB" gerou o número: 7897055475115

    Só que ao criar um novo registro, não está acrescentando o número... Pois o que estou fazendo é um crachá com código de barras. Que ao clicar no botão gera um novo código para o crachá...

    Outra pergunta, é possível gerar o código de barras, pelo CPF do aluno

    Peço ajuda aos companheiros...

    Desde já agradeço e que Deus os abençoe...
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3576
    Registrado : 29/06/2012

    Re: Ajuda com Código de barras no cadastro de cliente

    Mensagem  Noobezinho em Qua 14 Fev 2018, 13:20

    Francisco


    Uma dica:

    Faça você mesmo o código em números e depois cria o código de barras para ele.


    Exemplo:

    Se pegarmos parte do CNPJ da escola: 300400509000

    300400509001 - primeiro registro
    300400509002 - segundo registro

    Veja que o 13º é o verificador, que será criado junto com o código de barras.

    Pode usar o CPF, lembre-se que ele tem 11 letras, tem que completar 12 para depois o access colocar o verificador (13º digito)

    [ ]'S


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 253
    Registrado : 26/06/2013

    Re: Ajuda com Código de barras no cadastro de cliente

    Mensagem  cjsilva2013 em Qui 15 Fev 2018, 12:12

    Bom dia, grande Noobezinho...

    Fiz o seguinte:

    No Ao perder foco do campo Nome:

    Private Sub Nome_LostFocus()

    If Not IsNull(Me.IDAluno) Then
    Me.txtRolAluno = Format(Nz(DMax("IDAluno", "tblAluno"), 0), "080084390000") + 1
    End If

    End Sub

    E baixei e instalaei a fonte: IDAHC39M Code 39 Barcode

    No caso aqui, não estou usando o gerador... Só Autonumeração, os campos no relatório da credencial linkado ao campo txtRolAluno (onde é gerado o número) da tabela tblAluno.

    Da certo assim? O que você acha?

    Pergunto, porque estou sempre aberto a aprender... E ouvir mestres como você, João Paulo, Cricrio, Fabio Paes e outros do Fórum, que nos ajudam a crescer...

    Abraços,
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3576
    Registrado : 29/06/2012

    Re: Ajuda com Código de barras no cadastro de cliente

    Mensagem  Noobezinho em Qui 15 Fev 2018, 16:38


    Melhor seria colocar o primeiro numero direto na tabela (isso economiza escrever código),

    então, usar o algorítmo:

    Me.txtRolAluno = DMax("IDAluno", "tblAluno") + 1

    e pode usar essa numeração como ID do aluno.

    Baixou uma fonte 39, abaixo deixo disponível meu exemplo de code39, sem precisar de fonte.

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

    [ ]'s


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 253
    Registrado : 26/06/2013

    Ajuda com Código de barras no cadastro de cliente

    Mensagem  cjsilva2013 em Qui 15 Fev 2018, 21:51

    Entendi, vou fazer conforme orientado...

    Seus exemplos são muitos bons... Vou estudar eles...

    Desde já obrigado, fico mais uma vez grato.

    Assim que concluir, vou disponibilizar uma mostra simples para outros que precisarem...

    Abraços a todos.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3576
    Registrado : 29/06/2012

    Re: Ajuda com Código de barras no cadastro de cliente

    Mensagem  Noobezinho em Qui 15 Fev 2018, 22:10

    Ótimo!

    Fico aguardando teu retorno para dar o Resolvido no tópico ! Razz

    [ ]'s


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

      Data/hora atual: Ter 24 Abr 2018, 01:50