[Resolvido]Formulário de Vendas

Vou tentar explicar o que acontece com meu formulário de vendas
1º Tenho um Formulário de vendas maximizado ,com evento ao apertar tecla
If KeyCode = vbKeyF2 Then
Me.tipo.Value = "A Vista"
DoCmd.OpenForm "frmtroco"
KeyCode = 0
End If
end sub até ai tudo certo
2º Tenho um form para pesquisa,com uma cxtexto onde entro com nome do produto e faz a pesquisa na listbox
ao encontrar o produto ,seleciono é incluido no frmvendas certo.

O problema é se já estiver um produto na lista de compra do frmvendas, ao abrir a form pesquisa eu entrar na cxtexto para pesquisar ,o frmvendas salva os itens que estão na lista e começa uma nova venda
3º me parece que seria por causa do evento ao apertar tecla lá do primeiro item.
mas como corrigir isso sem mexer no evento 1º?

Manda o DB ai Alexandre..

Cumprimentos

segue bd veja frmvendas!
http://speedy.sh/3hVEQ/Banco-de-Dados2.rar

Boas Agravina, faltou o módulo com as variaveis.. aquele que utilizamos para varregar os produtos da lista lembra?

Não veio. Reenvie-nos novamente.

Abraços.

Modulo variaveispublicas

Option Compare Database

Public Str_1 As String
Public Str_2 As Double
Public Str_3 As String

Isso é preguiça de atualizar o LInk?? hehehehehe

Amigão ainda não dá pra testar, ao apertar F2, falta formulários... Tem que enviar com todos os objetos citados na duvida.

Cumprimentos.

Utilizando a sua sugestão de teste:

utilize os códigos 10,25 faça uma venda, depois f8 escolha um item na lista e tente incluir na venda

Correu tudo normalmente.

Cumprimentos.

Agora se apertar as teclas
F3, F4 e F5

e tiver produtos na lista ele salva e começa um novo registro, pois nesses códigos faz referencia ao comando

Call Comando32_Click

Que é:


Private Sub Comando32_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
End Sub

Harysonh insira item na lista pressione f8 entre no campo de pesquisa e veja os dados que inseriu antes cade?

Inseri o produto 10 e 0 23 péla caixa texto...

Depois cliquei em f-8 e inseri mais um

Tudo certinho..

Os tres itens foram pra lista

no form pesquisa entre na cx pesquisar produto ,pesquise o produto ai tente incluir

Vamos la Amigão... Não fique chateado.. Mas você ja tá careca de saber que para este tipo de situação as tabelas devem ter chave primaria.

A solução deste problema.

1 - A tabela DetalheVenda Crie um campo ID (NumeraçãoAutomática) e o coloque como chave primaria
2 - A vinculação do campo Mestre x CampoFilho (para o form e sub form está invertida. O Campo Mestre é o da tblVenda
3 - Nos relacionamentos, coloque para:
3.1 - Impor integridade referencial
3.2 - Propagar atualização....
3.3 - Propagar exclusão.

4 - no Form DetalheVendas, abra em modo Design, va nas propriedades, aba Dados, Entrada de dados = Não

Cumprimentos.

Alterações feitas problema corrigido!
valeu Harysonh

O Fórum agradece o retorno.