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

2 participantes

    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário

    avatar
    JorgePedro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 17/05/2016

    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário Empty [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário

    Mensagem  JorgePedro 17/5/2016, 20:59

    Boa tarde pessoal.

    Estou aprendendo a lidar com Access à pouco, e gostaria de saber como faço para inserir vários dados de uma única vez numa tabela, a partir de um formulário.

    O exemplo que segue é o que pretendo montar:

    Ex: Adicionar vários itens em uma tabela, seguindo uma sequência em que eu determino no formulário, ou seja, no formulário vou colocar no parâmetro De 1 ATÉ 15 e concatenar com as iniciais que eu escolher, por exemplo "JA". Quando eu processar vai me dar os valores na tabela, em sequencia de JA0001, JA0002, JA0003, e assim sucessivamente até JA0015.

    Anexei uma imagem para visualizar melhor. Quem puder me ajudar vai ser de grande valia. Desde já agradeço pela colaboração.

    Abraços
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário Empty Re: [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário

    Mensagem  FabioPaes 17/5/2016, 21:43

    Acredito que seria algo parecido com isso: https://www.maximoaccess.com/t26631-resolvidoduplicar-registos Mensagem Nº 04


    Bastando apenas adaptar pra sua realidade...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário Empty Re: [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário

    Mensagem  FabioPaes 17/5/2016, 21:50

    Set db = CurrentDb()
       Set rs = db.OpenRecordset("tbAnimais") 'Nome da Tabela
     
       For i = Me.de To Me.Ate  'Calcula o Loop
           'Campos e valores a serem preenchidos
           rs.AddNew
           rs("Processar") = -1
           rs("Numero") = Me.SiglaInicial & "00" & i
           rs("Nascimento") = Me.Nascimento
           rs("Sexo") = Me.Sexo
           rs("Raca") = Me.Raca
           rs("Situacao") = "Reprodutor"
           rs.Update
       Next
       rs.Close
       db.Close

    Me.recalc

    Ficaria mais ou menos assim amigo....


    Sendo que: Todos os Campos iniciando com Me. São os nomes dos Campos do formulário, o que contem os dados a ser replicados...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    JorgePedro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 17/05/2016

    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário Empty Re: [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário

    Mensagem  JorgePedro 18/5/2016, 02:32

    FabioPaes escreveu:

    Muito obrigado parceiro, acredito que isso me ajuda muito.
    Tem apenas um detalhe que eu queria que me ajudasse ainda. Se tem como eu concatenar iniciais à sequencia de números, por exemplo, como são animais (suínos), vou colocar as iniciais da raça do animal em determinado lote (Pietrain - PTN), nesse caso replicaria a sequencia da seguinte forma: PTN001, PTN002, PTN003 e assim segue. Existe essa possibilidade?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário Empty Re: [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário

    Mensagem  FabioPaes 18/5/2016, 02:57

    O codigo que lhe passei mensagem anterior ja realiza a Concatenacao de forma correta. Bem como o preenchimento de todos os outros campos da imagem postada no topico.

    rs("Numero") = Me.SiglaInicial & "00" & i

    Nesta linha ele pega a Sigla e junta com a sequencis numerica amigo.

    Faca um teste, rode pra ver como ficara...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    JorgePedro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 17/05/2016

    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário Empty Re: [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário

    Mensagem  JorgePedro 18/5/2016, 04:00

    Opa, beleza. Desculpa minha falta de atenção, sei bem pouco de VBA. Mas estou tentando aprender.
    Muito obrigado meu amigo.

    Obrigado pela disposição e ajuda. Deus permaneça contigo.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário Empty Re: [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário

    Mensagem  FabioPaes 18/5/2016, 12:56

    Faca o teste, e aguardamos o Retorno... Ate a Proxima.


    Amigo, como vc nao conseguiu, Poste seu Aplicativo que dou uma olhada...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    JorgePedro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 17/05/2016

    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário Empty Re: [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário

    Mensagem  JorgePedro 18/5/2016, 14:34

    Segue anexo pra que deem uma olhada. Não tem nada pronto. Apenas tabelas
    Anexos
    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (127 Kb) Baixado 20 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário Empty Re: [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário

    Mensagem  FabioPaes 18/5/2016, 15:13

    A parte referente ao Topico!
    Anexos
    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário AttachmentLote.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (60 Kb) Baixado 168 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    JorgePedro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 17/05/2016

    [Resolvido]Adicionar uma quantia de dados em sequência a partir de um formulário Empty Resolvido

    Mensagem  JorgePedro 18/5/2016, 17:45

    Perfeito Fábio, meus parabéns. Você é o cara

    Exatamente o que eu precisava.

    Bom(ns) trabalho(s)!!

      Data/hora atual: 28/11/2022, 02:56