[Resolvido]Criar novo registro na Tabela e Subtabela

Bom dia pessoal.
Mais uma vez solicito vossa ajuda.

TabelaA: ID, Data, Nome.
ConsultaA: ID, Data, Nome. Sendo Data negado Nulo.

TabelaB: ID
SubTabelaB: IDsub, Data, Nome.

Preciso, através de um botão, criar um novo registro na TabelaB e inserir os dados da ConsultaA na SubTabelaB.

Muito obrigado.

Bom dia !

O IDsub da TabelaB é autonumeração ?

Pode utilizar assim;

CurrentDb.Execute "INSERT INTO TabelaB (Data, Nome) SELECT * From ConsultaA"

Ou assim validando se já existe ou não na TabelaB:

CurrentDb.Execute "INSERT INTO TabelaB (Data, Nome)" _
& " SELECT Data, Nome" _
& " From ConsultaA" _
& " WHERE (Data NOT IN" _
& " (SELECT Data" _
& " FROM TabelaB) AND Nome NOT IN" _
& " (SELECT Nome" _
& " FROM TabelaB))"

Atenção Luiz: Data e Nome são palavras reservadas do Access.

Oi JPaulo.
Grato pela atenção.
Peço desculpas, não me expressei bem quanto ao problema.
Alterei os campos "Data" e "Nome" conforme sua orientação. Sendo:

>TabelaA: "ID", "Vcto", "Apelido"...("ID" númeração automática)
>ConsultaA: "ID", "Vcto", "Apelido"...onde "Vcto" <> Nulo

>TabelaB: "ID", "Vcto"....("ID" númeração automática)
>SubTabelaB: "IDsub", "Vcto", "Apelido"...onde "IDSub" é campo numérico e está relacionado com o campo "ID" da TabelaB

A intenção é criar um novo registro (TabelaB)e os dados da ConsultaA virarem sub registros (SubTabelaB) da TabelaB. Fazendo uma analogia, seria como inserir dados num Forms (Mestre) e SubForm (Filho) ao mesmo tempo.

Obrigado
Abraços

Alguma Sugestão Amigos?
Grato.

Hoje já não consigo pensar.... são 00:29 aqui.

Se nenhuma fera o atender, amanhã vemos isso.

Obrigado amigo

Saudações
Aos amigos do forum.

alguem?

Não dá para colocar a origem do SubTabelaB, a ir buscar os dados da consultaA ?

Olá Miguel.
Obrigado por sua atenção.

Não sei responder sua pergunta!!!

O que preciso é criar um novo registro na tblA e que os campos da consulta virem registros da tblB, sendo que Id da tbtB sejam subregistro de tblA. ID tblA = ID tblB (relacionados)

Eh!!! É mais ou menos isto.
Desculpe-me pela dificuldade em expor o problema.

Obrigado

Abraços

E porque não faz como o JPaulo diz acima ?

Em algum momento do seu formulário B, fazer o

CurrentDb.Execute "INSERT INTO TabelaB (Data, Nome) SELECT * From ConsultaA"

Depois apenas terá de fazer o update ao campo ID

CurrentDb.Execute "UPDATE TabelaB SET CampoID WHERE CampoID="""

Dar um Requery e deve funcionar, mais ou menos assim.

Certo.
Vou tentar aqui.
Já já te dou retorno.
Obrigado.

Oi
Para tentar facilitar, alterei assim:
> tblA (ID, Vcto e Apelido)...ID numeração automática
> tblB (ID e Vcto)...ID numeração automática
> tblC (ID, Vcto e Apelido)...ID numero ...onde ID tblC = ID tblB
> cstA (ID, Vcto e Apelido)... onde Vcto <> nulo.

Se entendi, primeiro devo inserir os dados da cstA na tblC. É isto?

Usando o código:
CurrentDb.Execute "INSERT INTO tblC (Vcto, Apelido) SELECT * From cstA "

OK!!!
Funcionou.
Os dados da cstA se transformaram em registros na tblC. Só que Criou registros novos, e cada ID com números diferentes.

Se me permitir, posto um pequeno BD de exemplo.

Obrigado

Pegando o que está em curso e ainda não entendendo muito bem o que pretende, veja se é mais ou menos isto;

http://dl.dropbox.com/u/771097/Consulta%20Reg%20Tab%20e%20SubTab_OLD.rar

JPaulo

Não é exatamente o que preciso.
Mas com certeza é o caminho. Valeu!

Agora é questão de eu trabalhar no exemplo que forneceu.
Acredito que com um pouco de atenção e dedicação eu chego lá.
Em breve dou retorno.

Seu exemplo é muito bom e acredito que darei retono como resolvido.

Obrigado

Abraços

Obrigado, ficamos no aguardo.

Olá JPaulo.

Graças a seu exemplo e ajuda o problema foi resolvido
Meu muito obrigado.

Agradeço também ao MiguelSantos que me estimulou a seguir o raciocíno do mestre Jpaulo.

Abraços a todos

Obrigado

Luiz Gustavo