Pessoal, volto aqui novamente pois meu problema continua ja tentei de tudo ate a onde meu conhecimento vai, tentei fazer uma saide dos produtos fia a tela de venda tudo tentei com picturebox label a label na tela criar duas tabelas uma pro produto e outra pro cliente mas ai nao atualiza certo nao sei mais o que fazer pesso umildimente que se alguem tiver um exemplo de caixa de venda onde selecione o produto seja por combox ou leitor de codigo barras coloque a quantidade e busque os dados do cliente pra uma eventual venda a prazo por favor me envie pois nao sei mais o que fazer !, ja procurei em todo lugar vi varios exemplos tentei aplicar mas nao da certo ja se vao 4 meses atras disso e um sistema que nao tem caixa de venda !

Qual tabela vc quer atualizar?

oi, e o seguinte apos varias tentativas fracassada tive a seguinte ideia de fazer duas tabela uma pra colocar os produtos vendidos e outra onde fecho o valor da venda e o cliente que comprou usei entao o crystal reporte e tentei unir as tabelas mas nao sei porque quando vendo mais de um produto e clico no botao imprimir aparece apenas o 1 produto digitado ai fecho a tela de venda e volto novamente clico no botao imprimir ai ele esta com todos os dados ?

juan carlos obrigado pela força e tentei mas nao deu certo olha como fasso pra salvar os registros

 

Dim AreaTrabalho As Workspace
Dim query As String
Dim dyn As Dynaset

'SALVA PARA CUPOM DE VENDA
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase("c:GestorCadastro.Mdb", False, False)
query = "Select * From RecebeFinanceiro where Codigo = '" & Codigo & "'"
Set dyn = xxbco.CreateDynaset(query)

Dim SQL2 As String
SQL2 = "INSERT INTO RecebeFinanceiro (Codigo,Data,Cliente,Endereco,Cpf,Bairro,Cep,RecebiTotal,Venci1,Venci2,Venci3,Venci4,Venci5,Venci6,Venci7,Val1,Val2,Val3,Val4,Val5,Val6,Val7,Po1,Po2,Po3,Po4,Po5,Po6,Po7,Todos) "

SQL2 = SQL2 & " values ('" & Codigo & "', '" & Data & "', '" & Cliente & "', '" & Endereco & "', '" & Cpf & "', '" & Bairro & "','" & cep & "', '" & RecebiTotal & "',  '" & Venci1 & "', '" & Venci2 & "', '" & Venci3 & "', '" & Venci4 & "', '" & Venci5 & "', '" & Venci6 & "', '" & Venci7 & "', '" & Val1 & "', '" & Val2 & "', '" & Val3 & "', '" & Val4 & "', '" & Val5 & "', '" & Val6 & "', '" & Val7 & "', '" & Po1 & "', '" & Po2 & "', '" & Po3 & "', '" & Po4 & "', '" & Po5 & "', '" & Po6 & "', '" & Po7 & "', '" & Todos & "')"

MsgBox ("Registro Salvo,ok!"), vbInformation, (Cliente)

xxbco.Execute SQL2
xxbco.Close
Set xxbco = Nothing

 

Caixa.CrystalReport1.Reset   'reinicia os valores do relatorio (blanquea)
Caixa.CrystalReport1.Destination = crptToWindow
Caixa.CrystalReport1.ReportFileName = App.Path & "Cupon2.rpt"
Caixa.CrystalReport1.DataFiles(0) = App.Path & "Cadastro.MDB"
Caixa.CrystalReport1.DiscardSavedData = True
Caixa.CrystalReport1.WindowState = crptMaximized
Caixa.CrystalReport1.Action = 1

mas continua dando erro c vc puder eu gostaria de mandar o meu sisema pra vc dar uma olhada pra me ajudar c nao te atrapalhar ? e so vc me passar o email que te envio ok