[Resolvido]Conflito de Gravacao

Tenho 2 Formularios A e B, um chama o outro ( B) , espera sua execucao e depois termina, neste caso o (A).

No Form B eu altero 2 campos da Tabela QNT e Validade
Ao Terminar e Fechar este Form B, Volta ao Form A e termina sua Execucao. Mas aparece a seguinte Mensagem de Errom:



Nao quero que apareca isso, pelo que entendi o Form B ainda estaria em execucao, mas ao sair do FORM B, eu coloquei um comando pra fechar o Form B.

Se escolho a pimeira opcao cancelo as alteracoes feitas no FORM B, se escolho a Terceira opcao , mantenho as alteracoes feitas no form B.

Como fazer pra nao aparecer esta mensagem de conflito ?

Andre

O problema é que não actualizas o registo quando sais de um e vais para outro formulário.
Pesquisa as funções

Docmd.refreshrecord
Me.Require

Ola,

DoCmd.RefreshRecord
Me.Requery

Coloquei este no Form B ( que e acionado pelo Form A ), mas deu o mesmo problema

Nesta linha: DoCmd.OpenForm "A6_Validade_Compras", , , , , acDialog, aciono o Form B
Apos entrar no Form B a QNT e Validade, este ao fechar volta ao Form A. Este Form A apresenta em QNT a QNT entrada em Form B e puxa tb seu preco de custo, entao se eu alterar seu preco de custo e colocar seu novo preco de custo, aparece esta mensagem.

Código:


Private Sub CodigoProduto_AfterUpdate()

 DoCmd.SetWarnings False
If Forms![Frm_Compras]![Frm_ComprasSub].Form.nomeProduto.Value = "Valor de Frete" Then
Me.QntCompra = 1
Me.PrecoCompra.SetFocus
Exit Sub
End If

DoCmd.OpenForm "A3_Menu", acNormal
Forms![A3_menu].Form.txt_CodBarra.Value = Me.CodigoBarra.Value

  DoCmd.OpenForm "A6_Validade_Compras", , , , , acDialog

Me.QntCompra.SetFocus
Me.QntCompra.Value = CDbl(Forms![Frm_Compras].Form.Teste.Value)
Me.PrecoCompra.SetFocus

End Sub



andei pesquisando aui pelo forum, e encontrei varios relacionados com este tema, mas em nehum consegui solucionar meu problema, Certo que aqui alguem podera me ajudar.

Andre

fazerbem

Quer postar só os formulários em questão e as respetivas tabelas ?

Aguardo

tentar postar aqui um pouco bz amigao.

Assis: esta no anexo

1 - Abra o Form Compras, preencha os dados acima.
2- escolha um dos cod barras, isso abrira o Form A6_Validaes
3 - Apos este Form aberto, a6_Validade, entre a QNT que sera somada ao Estoque, feito isto adicione a Validade , Depois clicar em Botao OK
4 - Feito isto o Form A6_Validade se fecha e volta ao Form Compras.

OBS; Gostaria que ficasse ja focado o Form, pois ele ainda nao esta focado. so depois de clicar nele ele se focara.

OBS 2 : apos precionar TAB para finalizar esta linha e abrir outra linha , dara a mensagem de erro.

Quero acabar com ela , e as modificoes feitas em A6-Validade se manterem. E se por acaso eu modificar o valor de custo esta tb ser atendida.

Grato pela sua ajuda

Andre

fazerbem

Fiz o meu melhor, mas atenção não importe estes dados para o seu projeto porque:

Criei relação entre tabelas que não tinha.

Alterei a tabela " Tbl_DetalhesCompras " , meti o campo nome do produto e Unidades. A BD ia captar estes valores de outra maneira e por isso criava o conflito de escrita (erro)

E alterei também o VBA claro

Teste e retorne.

Ola Assis, testei aqui seu exemplo, vou fuçar agora pra fazer as modificacoes no meu.

Mas faltou uma coisa, ao fechar o A6_Validade e retornar ao Compras, tenho que clicar no Form pra ativar o mesmo e entao usar o TAB pra pular a linha.

Tem como ao retorna ao Compras este form ja estar ativado e aoo precionar o TAb, ja que esta focado em cima do valor de custo, ja pular de campo e em seguida pular de linha ?

Grato

Andre

Fazerbem

No formulário "A6_Validade_Compras"

Altere no click do Botão Verde

A ultima linha está assim

Forms![Frm_Compras]![Frm_ComprasSub].Form.precoCompra.SetFocus

Altere para

Forms![Frm_Compras].SetFocus ' meta esta nova
Forms![Frm_Compras]![Frm_ComprasSub].Form.precoCompra.SetFocus

Obrigado Assis, mais tarde eu testo sim e volto aqui e te digo e ai fecho o topico.

Muito Obrigado mesmo amigo.

Andre

Assis, deu certo sim, muito grato.

Abraços.