Para acrescentar dados de uma tabela em outra estou usando a expressão abaixo:

 

BD.Execute "INSERT INTO T_Grupos_Itens ( Num_ID_Grupo, Num_ID_NS ) VALUES ( " & Me.Num_ID_Grupo & ",  SELECT T_PovoarGP.Num_ID_NS FROM T_PovoarGP ;"

 

 

onde o valor do primeiro campo da tabela de destino é igual a um campo do meu formulário, e o outro campo deverá ser prennchido com o valores de um campo de uma outra tabela.

Como construir a instrução?

"Olha, pode ser q eu esteja errado mas o insert into só permite consultas intrínsecas deste jeito:

 

INSERT INTO minhatabela (codigo,nome)  select cod,funcionario from tabfuncionarios where funcionario = 'joao'

 

sendo codigo, cod, nome e funcionario campos das respectivas tabelas correspondentes...

Como vc está pegando um dado externo (do seu form) então coloque primeiro o resultado de "SELECT T_PovoarGP.Num_ID_NS FROM T_PovoarGP" numa variável, depois execute o "insert into". Certifique-se q a consulta voltará apenas o registro q vc quer ok??

 

qq coisa é só postar novamente...

 

t+ e um excelente 2005!!

Jônatas

 

Resolvi assim:

 

        BD.Execute "INSERT INTO T_Grupos_Itens ( Num_ID_Grupo, Num_ID_NS )SELECT (" & Me.Num_ID_Grupo & ") , T_PovoarGP.Num_ID_NS FROM T_PovoarGP;"

De qualquer forma, obrigado.

Poxa, boa idéia, estranho, porém uma boa idéia... é uma saída q eu não tinha pensado...

 

t+