Tomás Vásquez Fórum

Pessoal,

Em uma planilha de cadastro, tenho um UserForm com 3 textboxes (Codigo, Nome e Telefone) e 2 botões de comando (Adicionar e Fechar).
Gostaria de tornar o textbox “Codigo” automático, de maneira que ao abrir o formulário, esse campo seja preenchido automaticamente com o número 1.
Além disso, toda vez que eu clicar o botão de comando “Adicionar”, o textbox “Codigo” seja automaticamente preenchido por um número sequencial (exemplo: 2, 3, 4...)

Alguém sabe como fazer?

Obrigado,

Daniel

Bom dia!!
Att

Olá amigos tudo bem?
Estou tentando inserir um código automático em meu textbox mas ele não está dando certo, pois meu banco de dados é no access, segue abaixo o código para me ajudarem... obrigado à todos e parabéns pelo fórum.

Private Sub CODIGO_AUTOMATICO()

sql = "SELECT * FROM TB_PRODUTO"
sql = sql & " ORDER BY TB_PRODUTO.cod_produto;"

Call conexao_consulta

Do Until (consulta.EOF)


txt_codigo = consulta!cod_produto + 1

consulta.MoveNext

Loop
End Sub

Access normalmente a numeração de código/id e na própria tabela um sequencial automático.
Forneça um modelo/exemplo de como tem/obtem e de como desejaria que fosse

Bom dia, mas esse número na própria tabela do access um sequencial automático consigo fazer aparecer no textbox excel? tipo que ele apareça automático?

CROVADOR,

Como qualquer outro campo. Qual a dúvida?

Bom dia, é que quando o campo na tabela do access está vazio, ou seja, não tem nada de registro o código automático não aparece na textbox do meu formulário. O código automático aparece somente depois que eu salvo o registro.

segue exemplo:

CROVADOR,

Esse é o funcionamento natural do campo sequencial no Access. Como o banco de dados é quem controla geração do valor, ele só existe depois que o registro é adicionado.

Por convenção, campos de numeração automática são utilizados como controle, sendo ocultos em formulários.

Att

Este código abaixo descrito deu certo, mas no banco do access ele continua com a sequência errada.
Exemplo: item 1 quando excluído ele me retorna o 2 para o próximo cadastro.



Private Sub CODIGO_AUTOMATICO()

sql = "SELECT * FROM tb_saidas"
sql = sql & " ORDER BY tb_saidas.Código;"

Call conexao_consulta
If txt_seq.Text = "" Then
txt_seq.Text = 1
End If

Do Until (consulta.EOF)
txt_seq.Text = consulta!Código + 1
consulta.MoveNext
Loop
End Sub

CROVADOR,

Isso também natural do funcionamento desse tipo de campo. Até é possível recuperar valores, mas uma vez registrado, ele não é mais utilizado. O gerador sequencial só olha para frente. Se o registro ID 3 é excluido, o 3 não é mais utilizado.

Recomendo não tentar controlá-lo. Se precisa de algo assim, crie um campo livre só para isso.

Att