tb.AddNew
tb("Prod_Venda") = (List3.List(List3.ListIndex))
tb("Qt_Venda") = Qt_Venda.Text
tb("Vl_Venda") = (List4.List(List4.ListIndex))
tb("Cod_Prod") = (List6.List(List6.ListIndex))
tb.Update
tb.Close

 

 tenho isso e fika dando erro de conversão de dados.. o que faço???

Obrigada =)

Naty teta evitar a conversão explícita e usar conversão implicita. Ex.:

tb.AddNew
tb("Prod_Venda") = CStr(List3.text)
tb("Qt_Venda") = CInt(Qt_Venda.Text) ' Pode ser CLng ou Csng dependendo se qnt aceita números quebrados
tb("Vl_Venda") = CCur(List4.Text)  'Se for moeda caso contrário use CSng ou CDbl para Single e double respectivamente
tb("Cod_Prod") = Clng(List6.Text) ' Se for do tipo inteiro lono se for string use CStr
tb.Update
tb.Close

Tenta aí... Ve se funfa. Abraços, Sidnei

Aparece que o objeto nao é válido ou está indefinido.. =(