Ajuda com Código de barras no cadastro de cliente

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...

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

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,

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.

Exemplo

[ ]'s

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.

Ótimo!

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

[ ]'s