Dificuldade com código de barras no relatório
Bom dia,
Preciso de ajuda com a seguinte dificuldade com código de barras.
Na tabela Cleintes, criei os campos CodClientes e CodigoB
No campo DataCadastro, ao perder foco escrevi:
Para se for '0', acrescenta + 1. Caso contrário, vai acescentando a 1 a cada registro...
A função base é:
Só que acontece que quando cadastro um novo registro é acrescentado + 1...
E se precisar alterar algum campo do cadastro, acrescenta de novo, alterando o registro anterior para o próximo...
Já quebrei cabeça com esse pro, alguém pode me ajudar ou tem um exemplo para usar...
Preciso que no código inicial, começe do 7890000000001 13 digitos...
A fonte que estou usando é "3OF9_NEW.TTF"
Agradecido desde já....
Bom dia,
Preciso de ajuda com a seguinte dificuldade com código de barras.
Na tabela Cleintes, criei os campos CodClientes e CodigoB
No campo DataCadastro, ao perder foco escrevi:
- Código:
If Not IsNull(Me.txtCodClientes) = 0 Then
Me.CodigoB = Format(Nz(DMax("CodClientes", "tbl_Clientes"), 0), "7890000000000") + 1
Else
Me.CodigoB = Format(Nz(DMax("CodClientes", "tbl_Clientes"), 0), "7890000000000") + 1
End If
Para se for '0', acrescenta + 1. Caso contrário, vai acescentando a 1 a cada registro...
A função base é:
- Código:
Private Sub cmdGeraCodBarras_Click()
Dim CodigoBarras
'fonte: Microsoft - para produtos inteiros aleatórios em um determinado intervalo
'Int(Maior Número - Manor Número + 1) * Rnd + Menor Número)
'CodigoBarras = Int((9999999999 - 0 + 1) * Rnd + 0)
CodigoBarras = Int((9999999999# + 1) * Rnd)
CodigoB = "789" & CodigoBarras
End Sub
Só que acontece que quando cadastro um novo registro é acrescentado + 1...
E se precisar alterar algum campo do cadastro, acrescenta de novo, alterando o registro anterior para o próximo...
Já quebrei cabeça com esse pro, alguém pode me ajudar ou tem um exemplo para usar...
Preciso que no código inicial, começe do 7890000000001 13 digitos...
A fonte que estou usando é "3OF9_NEW.TTF"
Agradecido desde já....