ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Gerar numero sequencial

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Dboabaid
Colaborador
Colaborador
Mensagens: 21
Registrado em: Seg Out 21, 2013 4:42 pm

Gerar numero sequencial

Mensagem por Dboabaid » Qui Nov 28, 2013 3:34 pm

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



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
vbalexandre
Manda bem
Manda bem
Mensagens: 122
Registrado em: Sáb Dez 11, 2010 6:57 pm

Re: Gerar numero sequencial

Mensagem por vbalexandre » Dom Dez 08, 2013 6:06 am

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



CROVADOR
Colaborador
Colaborador
Mensagens: 46
Registrado em: Ter Mar 13, 2018 11:15 am

Código Automático Textbox com banco access

Mensagem por CROVADOR » Qua Abr 29, 2020 5:16 pm

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



Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1423
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Gerar numero sequencial

Mensagem por Reinaldo » Qui Abr 30, 2020 9:23 am

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


Reinaldo
:oops: :D :mrgreen: :geek:

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder