[Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

Prezados,

Estou desenvolvendo uma funcionalidade para 'Estornar Venda' em um BD de controle de estoque e vendas de uma Livraria. Essa funcionalidade é acionada por um botão "EstornarVenda' no formulário 'Vendas', que possui um subformulário 'DetalheVenda'. O trecho de código VBA abaixo mostra o estorno sendo realizado (deleta todos os registros da Tabela 'DetalheVenda' para o código de Venda na tela e, após, deleta o próprio registro daquela Venda:

If Resposta = vbOK Then
'Exclui os registros de detalhe desta Venda sendo estornada
strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
CurrentDb.Execute strSQL, dbFailOnError

'Exclui o registro desta Venda
strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
CurrentDb.Execute strSQL, dbFailOnError
Me.Requery
End If

A lógica está funcionando, pois todos os registros daquela venda foram excluídos. O problema está no comando 'Me.Requery', que está produzindo o erro de execução '3167 - Registro excluído'. Na tela os campos aparecem preenchidos com '#excluído'. Gostaria de saber como fazer para atualizar a tela, mostrando o registro de uma outra venda cadastrada (p/ex. a primeira ou a última).

Obrigado.

Devo acrescentar que observei que esta mensagem de erro só ocorre quando se aciona o botão 'EstornarVenda' logo após uma nova venda ter sido gravada (o registro da nova venda ainda está na tela do formulário Vendas e seu subformulário 'DetalheVenda'. Se eu fecho o formulário e reabro, selecionando o registro dessa Venda e clicando em 'EstornarVenda', o programa funciona normalmente, deletando os registros desta Venda nas Tabelas 'Vendas' e 'DetalheVenda' e executando o comando 'Me.Requery' com sucesso (após o 'Requery', a tela apresenta o primeiro registro da Tabela 'Vendas').

Boas.....


Tente isso.

If Resposta = vbOK Then
'Exclui os registros de detalhe desta Venda sendo estornada
strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
CurrentDb.Execute strSQL, dbFailOnError

'Exclui o registro desta Venda
strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
CurrentDb.Execute strSQL, dbFailOnError
End If

DoCmd.GoToRecord , , acLast ' vai para o último registro da tua tabela. Retirado o comando me.requery da linha de código.

Prezado Silvio,

Coloquei o comando que você sugeriu e retirei o 'Me.Requery', mas ainda não consegui que funcionasse. Não aparece mais a mensagem de 'Erro 3167 - Registro excluído' porém:

1. Na tela do formulário 'Vendas' continua aparecendo o registro da Venda recém-estornada, mesmo com o comando 'DoCmd.GoToRecord , , acLast');
2. Quando eu tento fechar o formulário 'Vendas' surge uma mensagem do Access 'Registro excluído';(os registros foram efetivamente deletados);
3. Quando eu dou OK nessa mensagem do Access surge outra mensagem 'Não é possível salvar este registro agora. .........'. Tenho que responder OK para efetivamente fechar o formulário 'Vendas'.

Assim, de algum modo, não estamos conseguindo posicionar o formulário 'Vendas' em um registro válido após o estorno. Abraços.

Boa tarde amigos,
ao invés do requery após excluir, use refresh.

Me.Refresh

Prezado Marcelo David,

Colocando o comando 'Me.Refresh', em vez de 'Me. Requery' continua a mensagem de erro '3167 - Registro excluído'.

Abraços.

Boa tarde;

Tenta compactar e reparar seu banco.

Prezado Fernando Bueno,

Tenho feito isso regularmente. Mas fiz a compactação e reparação do BD uma vez mais, sem eliminar o erro 3167.

Abraços

Poderia postar o banco para verificarmos?

Boas.....

Coloque um tratamento de erro.

Algo parecido com isso.
on error goto fim

If Resposta = vbOK Then
'Exclui os registros de detalhe desta Venda sendo estornada
strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
CurrentDb.Execute strSQL, dbFailOnError

'Exclui o registro desta Venda
strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
CurrentDb.Execute strSQL, dbFailOnError
End If

fim:
if err.number= 3167 then
DoCmd.GoToRecord , , acLast
end if

Prezado Silvio,

A inclusão de um tratamento de erro, como sugerido, evita a interrupção do código VBA no comando 'Me.Requery' (ou Refresh), mas na tela continua visível o registro excluído. Não aponta automaticamente para o último registro válido.
Achei uma solução de compromisso que é um MsgBox informando que a Venda foi estornada com sucesso, seguido de um comando para fechar o formulário 'Vendas', conforme abaixo:

If Resposta = vbOK Then

strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
CurrentDb.Execute strSQL, dbFailOnError

'Exlui o registro desta Venda
strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
CurrentDb.Execute strSQL, dbFailOnError
MsgBox ("Venda estornada com sucesso.")
'DoCmd.Close

End If

Funciona bem. Como estornar uma Venda é uma operação não usual, basta o usuário reabrir o formulário 'Vendas' via botão do Painel de Navegação que fica sempre aberto ao iniciar o BD Access.

Abraços e obrigado pelo interesse.

Boa tarde

A tabela "Vendas" deve estar relacionada com a tabela "DetalheVenda" pelo campo "Codvenda".
Se isso estiver a acontecer então basta executar o comando "DELETE" só na tabela "Vendas" que a relação automaticamente tem de anular na tabela "DetalheVenda".


'Se CodVenda for numerico
CurrentDb.Execute "DELETE * From Vendas Where [Codvenda]= " & Me.CodVenda

Poste:
Só estas duas tabelas e o formulário aonde tem o comando "Anular"

Boas...

Verdade mesmo, se houver um relacionamento um para muitos entre as tabelas e haver a propagação automática de exclusão, Assis está coberto de razão.

Prezados Assis, Silvio, Marcelo David e demais colegas do Forum MA,

Realmente, a colocação do Assis permitiu simplificar o código da funcionalidade 'EstornarVendas' ao editar a relação entre as Tabelas 'Vendas' e 'DetalheVendas', inserindo a condição 'propagar exclusão dos registros relacionados'. Mas como o problema está na atualização do formulário 'Vendas' após o estorno ser feito com sucesso, decidi enviar o BD para avaliação de vocês (arquivo zipado anexo).

No painel de navegação que abrirá automaticamente, cliquem no botão 'Nova Venda' ou 'Todas as Vendas' e, no formulário 'Vendas' que abrir, insiram alguns dados de uma nova Venda e, em seguida (sem clicar no botão 'ConcluirVenda'), cliquem no botão 'EstornarVenda'. O código VBA irá pedir confirmação e, após o OK, surgirá a mensagem 'Venda estornada com sucesso'. Eu retornei o código original, com o comando 'Me.Requery', que originou o erro '3167 - registro excluído' objeto desse Tópico que abri. Peço que avaliem o que pode estar acontecendo e se existe alguma solução para o erro que não exija o fechamento do formulário 'Vendas'.

Peço que desconsiderem as evidencias de ser um projeto de BD Access de desenvolvedor amador, sem habilidades maiores com o VBA. É um projeto meu para doação a uma instituição de caridade de cunho espiritual, que possui livraria sem qualquer controle de estoque e vendas.

De antemão, obrigado a todos pelo empenho em ajudar meu projeto.

Boa noite

Teste e retorne

Prezado Assis,

Para a funcionalidade 'Nova Venda' (preencher o formulário de uma nova venda e imediatamente clicar no botão 'EstornarVenda') eu continuo a obter a mensagem '3167 - Registro excluído'. Se eu fechar o formulário recém-preenchido com uma venda e abrir de novo, selecionando aquela venda, e clicar 'EstornarVenda' o erro não ocorre.

Observei que a única modificação feita por você foi migrar o comando 'Me.Requery' para o final da Sub 'EstornarVenda'.

Abraços.

Qual a versão do seu Office ?

No meu Office 2013 32 não acontece aquilo que citou.

Office Professional Plus 2016

Abraços.

Boa tarde,


Abaixo dessa linha:

Código:

Dim strSQL As String

ponha:

Código:

On Error Resume Next

Apague o requey e e ponha isso:

Código:

SendKeys "{ESC}"
NovaVenda_Click
SendKeys "{F5}"
DoEvents
MsgBox ("Venda estornada com sucesso.")

A MsgBox tem que está exatamente como pus.

Caro Marcelo David,

A solução apresentada funcionou, eliminando o erro 3167. Gostaria de entender o que os comandos colocados realizam, antes de colocar o Tópico como 'Resolvido'.

Observei, porém, que após a mensagem "Venda Estornada com sucesso", o Access limpa o formulário 'Vendas' e o subformulário 'DetalheVenda', preparando para uma nova Venda. Nesse formulário limpo, porém, a primeira ComboBox preenchível (Tarefeiro) está vazia, ou seja não apresenta a seleção de dados da Tabela 'Tarefeiros' para escolha. Como é campo obrigatório gera um impasse no preenchimento da 'Nova Venda'.

Abraços, e obrigado pelo interesse

Bom dia,
Para a combo se manter com os itens para seleção, após essa linha:

Código:

DoEvents

ponha essa:

Código:

Me.CodColab.Requery

Segue o que as linha fazem:
On Error Resume Next
Como sugere o que está escrito, ao ocorrer algum erro, siga (pelo menos tenta) para a próxima linha sem interromper o procedimento

SendKeys "{ESC}"
Envio a tecla ESC do teclado. Como se fosse você clicando nela, isso desfaz a última ação ocorrida no registro
NovaVenda_Click
Executo o método do botão Nova Venda, para assim deixar o formulário preparado para tal
SendKeys "{F5}"
Envio a tecla F5 do teclado. Como se fosse você clicando nela, isso atualiza imediatamente o que estiver no formulário, retirando assim o texto #Excluído dos campos
DoEvents
Faz com que o sistema operacional execute outras tarefas na execução do código, no nosso caso, ele exibe a MsgBox e o Requery da Combo mesmo após ocorrer algum erro que não interrompa o fluxo do programa, pois estamos usando o On Error Resume Next.
Me.CodColab.Requery
Recarrega a combo buscando novamente os registros da SQL

Prezado Marcelo David,

Finalmente posso considerar esse Tópico como resolvido.

Obrigado pelo empenho na solução e pelas explicações sobre a mesma.

Ótimo que ficou a contento. O fórum agradece o retorno!