MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Preenchimento automático numero sequencial

    Compartilhe

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie em Qua 01 Out 2014, 13:23

    Bom dia amigos
    Pesquisei no fórum e não encontrei algo parecido, por isso peço novamente a ajuda de voceis.

    *Criei uma tabela e um formulário com o nome "Comanda", para cadastrar as comandas do restaurante que serão usadas. Só que hoje tenho que digitar uma à uma, um bloco com 100 comandas fica bem cansativo.
    Gostaria se possível criar uma função no formulário que: ao digitar a primeira comanda e a última fosse preenchido esse intervalo automaticamente na tabela.

    Ex: Campo Inicio (001), Campo final (005).

    Fosse preenchido: 001
    002
    003
    004
    005

    será que é possível?
    Desde já agradeço

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  LiveBrain em Qua 01 Out 2014, 13:54

    o ideal é vc usar o laço For... Next

    Use como exemplo o código abaixo e faça as adaptações para o seu projeto

    Código:
    Dim intComanda as integer

    intComanda=InputBox("Informe o número da Primeira Comanda")
    For i=intComanda to intComanda+100
          'Aqui você coloca onde irá armazenar os números das Comandas
    Nex


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie em Qua 01 Out 2014, 14:17

    Bom dia LiveBrain,
    Obrigado pelo retorno e desculpe minha falta de conhecimento mas sou iniciante em access. Quero criar 2 campos no formulário "nº Inicio" "nº Final", e a sequencia já feita irá para tabela comanda. O bloco de comanda nem sempre vem completo com 100, algumas vezes no meio do bloco falta alguma. Bom esse código eu coloco no evento do campo ou tenho que criar um módulo.
    Obrigado

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie em Qui 02 Out 2014, 14:04

    Bom dia,
    Alguem pode me ajudar??
    Grato

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  JPaulo em Qui 02 Out 2014, 15:26

    Amigão, veja o simples;

    No evento ao pressionar de um botão no seu formulario, acreditando que você terá duas caixas de texto, com os nome de txtInicio e txtFim;

    Private Sub SeuBotão_Click()
    'By JPaulo ® Maximo Access
    Dim i As Variant
    Dim intInicio As Variant
    Dim intFim As Variant

    intInicio = Nz(Me.txtInicio.Value,0)
    intFim = Nz(Me.txtFim.Value,0)

       For i = Val(intInicio) To Val(intFim)
           CurrentDb.Execute "INSERT INTO SuaTabela (SeuCampoNumero) VALUES (" & i & ")"
       Next i
    End Sub



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie em Qui 02 Out 2014, 16:21

    Olá JPaulo,
    Obrigado pelo retorno e ajuda. Fiz conforme me orientou mas esta dando o seguinte erro mandei anexo.
    grato

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  JPaulo em Qui 02 Out 2014, 16:26

    Eu disse acima;

    " acreditando que você terá duas caixas de texto, com os nome de txtInicio e txtFim;"

    Esse erro é porque as suas caixas de texto não têm esse nome.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie em Qui 02 Out 2014, 16:38

    Tem as duas cx texto, segue BD.

    Henry Airlie
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 16/08/2014

    Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie em Qui 02 Out 2014, 17:19

    Olá JPaulo
    Resolvido o erro e pq tinha digitado o nome da cx tx errado. Olha muito obrigado pela ajuda, estou aprendendo muito com vcs.
    grande abraço.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  JPaulo em Qui 02 Out 2014, 20:31

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Dom 11 Dez 2016, 01:17