Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Gerar numero sequencial
Gerar numero sequencial
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
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
- vbalexandre
- Manda bem
- Mensagens: 122
- Registrado em: Sáb Dez 11, 2010 6:57 pm
Re: Gerar numero sequencial
Bom dia!!
Att
Código: Selecionar todos
Private Sub UserForm_Initialize()
'Considerando a guia ativa e o valor salvo na célula
Me.TxtCod = Range("A1").Value + 1
End Sub
Código Automático Textbox com banco access
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
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
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Gerar numero sequencial
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
Forneça um modelo/exemplo de como tem/obtem e de como desejaria que fosse
Re: Gerar numero sequencial
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?
Re: Gerar numero sequencial
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:
segue exemplo:
- Anexos
-
- ORÇAMENTO.rar
- (631.01 KiB) Baixado 367 vezes
Re: Gerar numero sequencial
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
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
Re: Gerar numero sequencial
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
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
Re: Gerar numero sequencial
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
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