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

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

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


Bastando apenas adaptar pra sua realidade...

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...

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?

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...

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.

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


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

Segue anexo pra que deem uma olhada. Não tem nada pronto. Apenas tabelas

A parte referente ao Topico!

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

Exatamente o que eu precisava.

Bom(ns) trabalho(s)!!