MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Preenchimento automático numero sequencial

    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático numero sequencial Empty [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie 1/10/2014, 12: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
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático numero sequencial Empty Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  LiveBrain 1/10/2014, 12: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"
    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático numero sequencial Empty Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie 1/10/2014, 13: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
    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático numero sequencial Empty Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie 2/10/2014, 13:04

    Bom dia,
    Alguem pode me ajudar??
    Grato
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático numero sequencial Empty Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  JPaulo 2/10/2014, 14: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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Preenchimento automático numero sequencial Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Preenchimento automático numero sequencial Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Preenchimento automático numero sequencial Folder_announce_new Instruções SQL como utilizar...
    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático numero sequencial Empty Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie 2/10/2014, 15:21

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático numero sequencial Empty Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  JPaulo 2/10/2014, 15: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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Preenchimento automático numero sequencial Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Preenchimento automático numero sequencial Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Preenchimento automático numero sequencial Folder_announce_new Instruções SQL como utilizar...
    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático numero sequencial Empty Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie 2/10/2014, 15:38

    Tem as duas cx texto, segue BD.
    avatar
    Henry Airlie
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático numero sequencial Empty Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Henry Airlie 2/10/2014, 16: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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático numero sequencial Empty Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  JPaulo 2/10/2014, 19:31

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Preenchimento automático numero sequencial Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Preenchimento automático numero sequencial Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Preenchimento automático numero sequencial Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Preenchimento automático numero sequencial Empty Re: [Resolvido]Preenchimento automático numero sequencial

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 11:55