Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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 »

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 »

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
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Código Automático Textbox com banco access

Mensagem 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


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

Re: Gerar numero sequencial

Mensagem 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


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.


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Gerar numero sequencial

Mensagem por CROVADOR »

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?


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Gerar numero sequencial

Mensagem por webmaster »

CROVADOR,

Como qualquer outro campo. Qual a dúvida?


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Gerar numero sequencial

Mensagem por CROVADOR »

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:
Anexos
ORÇAMENTO.rar
(631.01 KiB) Baixado 352 vezes


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Gerar numero sequencial

Mensagem por webmaster »

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


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Gerar numero sequencial

Mensagem por CROVADOR »

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


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Gerar numero sequencial

Mensagem por webmaster »

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


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