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 : 259
    Registrado : 26/06/2013

    Ajuda com Código de barras no cadastro de cliente

    Mensagem  cjsilva2013 em 14/2/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...

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 14/2/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

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  cjsilva2013 em 15/2/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,

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 15/2/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

    cjsilva2013
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Ajuda com Código de barras no cadastro de cliente

    Mensagem  cjsilva2013 em 15/2/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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 15/2/2018, 22:10

    Ótimo!

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

    [ ]'s

      Data/hora atual: 20/7/2018, 11:31