INSERT em duas tabelas com dados específicos

Olá.

Tenho um DB para controlar vendas por tipo de pagamento e clientes que marcam em caderneta, para um restaurante.

Preciso criar uma função de pagamento que insira na tabela Venda e Vendadetalhe (que estão relacionadas) dados específicos desse pagamento.
Adicionar um registro, para ser exato, que constará a data atual, a forma de pagamento (dinheiro por exemplo), o nome do cliente, a descrição (pagamento ou recebimento de caderneta) e o valor pago.

Este é o Form de venda, junto com o SubForm detalhe de venda.


Seriam basicamente os seguintes dados que preciso:
Na tabela Venda, a Data = Data(), Forma de Pagamento = (exemplo: Dinheiro) e Cliente = (nome que aparece na consulta, imagem 2).
Na sub, o Produto = (receberá o nome para identificar, exemplo: "pagamento caderneta"), Quantidade = (Saldo devido) conforme a segunda imagem. Os demais campos serão preenchidos automaticamente.



Estava testando essa linha de comando:

CurrentDb.Execute "INSERT INTO venda (data,nome) VALUES ('" & Me.sdata & "','" & Me.snome & "')"

MsgBox ("Receber pagamento de  " & Me.snome & "!")

para gravar em uma tabela, funcionou, porém, preciso que grave em duas e que fiquem relacionados.

Agradeço desde já a atenção.

bom dia itarimit os dados deste formulário ja existe os códigos que eletua a venda? se sim porque vc não ao invés de criar outra tabela e jogar os dados específicos cria uma consulta apenas colocando os critérios que deseja como data() forma de pagamento" dinheiro"


espero que seja isso