MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    JorgePedro
    Novato
    Novato

    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

    Mensagem  JorgePedro em 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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 17/5/2016, 21:43

    Acredito que seria algo parecido com isso: [Você precisa estar registrado e conectado para ver este link.] 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!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 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!

    JorgePedro
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  JorgePedro em 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?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 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!

    JorgePedro
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  JorgePedro em 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.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 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!

    JorgePedro
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  JorgePedro em 18/5/2016, 14:34

    Segue anexo pra que deem uma olhada. Não tem nada pronto. Apenas tabelas
    Anexos
    Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (127 Kb) Baixado 15 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 18/5/2016, 15:13

    A parte referente ao Topico!
    Anexos
    Lote.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (60 Kb) Baixado 113 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!

    JorgePedro
    Novato
    Novato

    Respeito às Regras 100%

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

    Resolvido

    Mensagem  JorgePedro em 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: 17/8/2018, 01:09