[Resolvido]Erro gravar dados da Listbox na tabela

Erro gravar dados da Listbox na tabela

Boa tarde
Não estou conseguindo pegar aos dados uma Listbox(ao clicar duas vezes ) e inserir uma tabela
Principalmente quando o campo o do tipo Texto da erro
Estou usando esse código abaixo .O que devo fazer ?

CurrentDb.Execute "INSERT INTO tbl_detalhe_compra2(id_comp,id_maaterial,produto) " &_
" SELECT " & Me.Cód_compra & " AS cv, " & (Me.[Lista].Column(0)),(Me.Lista.Column(1)

Olá Gildezio,

Quando é testo deve colocar aspa simples, tente assim:

Código:

CurrentDb.Execute "INSERT INTO tbl_detalhe_compra2(id_comp,id_maaterial,produto) " &_
" SELECT " & Me.Cód_compra & " AS cv, '" & (Me.[Lista].Column(0)),(Me.Lista.Column(1) & "'"

Abraço

bom dia amigo, obrigado pela atenção
pediu para fechar no final ai deu erro: erro de conversão de tipo de dados

CurrentDb.Execute "INSERT INTO tbl_detalhe_compra2(id_comp,id_maaterial,produto) " &_
" SELECT " & Me.Cód_compra & " AS cv, '" & (Me.[Lista].Column(0)),(Me.Lista.Column(1) & "'")

Olá,

Tem razão da forma que coloquei está errado, se for ambos os campos da lista string será assim:

Código:

CurrentDb.Execute "INSERT INTO tbl_detalhe_compra2(id_comp,id_maaterial,produto) " &_
" SELECT " & Me.Cód_compra & " AS cv, '" & (Me.[Lista].Column(0)) & "','" & (Me.Lista.Column(1) & "'"

Caso não resulte, identifique os três campos da envolvidos na consulta que são string.

Abraço

Valeu amigo deu certíssimo, muito obrigado

Olá Gildezio,

Está explicado o enigma, não se esqueça, quando for string colocar a aspa simples.

Abraço