Página 1 de 1

Gerar numero sequencial

Enviado: Qui Nov 28, 2013 3:34 pm
por Dboabaid
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

Re: Gerar numero sequencial

Enviado: Dom Dez 08, 2013 6:06 am
por vbalexandre
Bom dia!!

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
Att

Código Automático Textbox com banco access

Enviado: Qua Abr 29, 2020 5:16 pm
por CROVADOR
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

Re: Gerar numero sequencial

Enviado: Qui Abr 30, 2020 9:23 am
por Reinaldo
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