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 »

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
Colaborador
Colaborador
Mensagens: 75
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: 1460
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


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.


CROVADOR
Colaborador
Colaborador
Mensagens: 75
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: 2909
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?


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.
CROVADOR
Colaborador
Colaborador
Mensagens: 75
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 84 vezes


Avatar do usuário
webmaster
Administrador
Mensagens: 2909
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


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.
CROVADOR
Colaborador
Colaborador
Mensagens: 75
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: 2909
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


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.
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