Como salvar campos de um listbox no campo correspondente numa outra tabela

Olá,

Há muito tempo que não utilizava access.

Sempre fui uma utilizadora intermédia mas com o passar dos anos e deixando de utilizar acess fui esquecendo....

Tenho um problema!

Eu tenho um formulário de inserção de dados, na tabela B.
Neste existe uma listbox (que tem 6 campos) cujos dados veem da tabela A.
Eu procuro o registo certo e seleciono. Até aqui tudo bem!

O problema é que qdo salvo, o que já inseri nos outros campos e a selecção na listbox, não consigo que a informação seja registada na tabela B nos campos correspondentes.

Isto é apenas é registado na tabela B os campos "independentes" e o que vem da listbox fica sem registo na tabela B

Penso que só com código é que resolvo o problema mas não consigo encontrar um script que se adeque, minimamente, a minha situação!

Envio em anexo um prtscn para melhor vizualização.

Preciso de um help!

Obrigada

Bom dia amigo. Com sqql. No momento não estou com o PC.
Deixa seu vdd aqui com as partes que nos mesmos com ele e deixamos explicações.

Agradeço imenso a ajuda mas a minha organização não permite VD. Não tenho como o fazer.

Código:

Set db = CurrentDb
 ssql = "INSERT INTO TabelaA"
   
  ' valor do campo da tabela
   ssql = ssql & "("
   ssql = ssql & "  NomeDeTal"
   ssql = ssql & " ,horas"
   ssql = ssql & ")"
 'valor do formulário
   ssql = ssql & " VALUES"
   ssql = ssql & "("
   ssql = ssql & "  '" & Trim(Me.txtNomeDeTal) & "'"
   sql = ssql & " ,'" & Trim(Me.txtHoras) & "'"
   ssql = ssql & ")"
   db.Execute ssql

ssql = "INSERT INTO TabelaB"
 ssql = "INSERT INTO TabelaA"
   
  ' valor do campo da tabela
   ssql = ssql & "("
   ssql = ssql & "  NomeDeTal"
   ssql = ssql & " ,horas"
   ssql = ssql & ")"
 'valor do formulário
   ssql = ssql & " VALUES"
   ssql = ssql & "("
   ssql = ssql & "  '" & Trim(Me.txtNomeDeTal) & "'"
   sql = ssql & " ,'" & Trim(Me.txtHoras) & "'"
   ssql = ssql & ")"
   db.Execute ssql

É  assim que eu  faço quando mando para mais de uma tabela ao selecionar ou clicar duas vezes  tente adaptar.

Muito obrigado.


Ontem usei sql como tinha dito e consegui que funcionasse.

Mas copiava todos os campos e não só o campo selecionado na listbox, que era o que eu queria!



Vou usar esse seu código e fazer figas para que dê certo!

Só um pitaco:
Cole o código abaixo em um botão.

Código:


Dim db As Database
Dim Obj As Variant
Set db = CurrentDb()
Dim tb As Recordset
'Dim tb2 As Recordset

'abri o bd para inserir que inserir as informações
Set tb = CurrentDb.OpenRecordset("TbCorrigirEntradaPintura")

'percorre a listbox e pega apenas os itens selecionados
For Each Obj In Me!Lista.ItemsSelected
With tb
.AddNew

tb("campo1dasuatabela").Value = Me!Lista.Column(0, Obj)
tb("campo2dasuatabela").Value = Me!Lista.Column(1, Obj)
tb("campo3dasuatabela").Value = Me!Lista.Column(2, Obj)
tb("campo4dasuatabela").Value = Me!Lista.Column(3, Obj)

.Update
End With
Next Obj

tb.Close
Set tb = Nothing
db.Close
Set db = Nothing