Boa Tarde ! Tenho uma tabela que retorna varias linhas, com código que utilizo esta inserindo somente a primeira , como ficaria uma loop pra inserir todo resultado da consulta ?
Private NumOS, Descricao, Tarefa, Categoria, Duracao As String
' No evento do botao...
Comando = ("SELECT * from ..... ")
Set rst = CurrentDb.OpenRecordset(Comando, dbOpenDynaset)
NumOS = rst("ORDEM_SERVICO")
CurrentDb.Execute ("Insert Into Tbl_Plano_MP (Tar_NumeroOS) Values('" & NumOS & "')")
Obs: O resultado retorna varias linhas e tbm outras colunas, no exemplo acima coloquei apenas um campo pq estava testando.
Private NumOS, Descricao, Tarefa, Categoria, Duracao As String
' No evento do botao...
Comando = ("SELECT * from ..... ")
Set rst = CurrentDb.OpenRecordset(Comando, dbOpenDynaset)
NumOS = rst("ORDEM_SERVICO")
CurrentDb.Execute ("Insert Into Tbl_Plano_MP (Tar_NumeroOS) Values('" & NumOS & "')")
Obs: O resultado retorna varias linhas e tbm outras colunas, no exemplo acima coloquei apenas um campo pq estava testando.