[Resolvido]Excluir registro de dois formulários com base na mesma tabela

Bem amigos, esta é a primeira vez que faço um consulta no fórum. Tenho dois formulários baseados na mesma tabela (produtos). O Primeiro é o (Form Cadastro de Produtos) e o segundo em forma de formulário contínuo é o (Form Todos Produtos), acesso os dados do segundo formulário através de um botão com o seguinte código:

DoCmd.OpenForm "Form Lista de Produtos"

Até ai tudo bem!

No segundo formulário seleciono um produto e tenho um botão OK para que carregue o primeiro formulário com o registro escolhido com o seguinte código:

DoCmd.OpenForm "Form Cadastro de Produtos", , , "[idProdutos]=" & Me.idProdutos

Me.Form.Visible = False

O código funciona em parte, consigo carregar o primeiro formulário com os dados do registro escolhido no segundo formulário e ai que começam os problemas:

1 - Ao Excluir um registro do primeiro formulário não exclui no segundo até que o mesmo seja fechado, segue código de exclusão:

Private Sub btnExcluirProdutos_Click()

Dim strMsg1 As String

  If MsgBox("Deseja excluit este registro? Ao exclui-lo não podera desfazer essa ação", _
             vbQuestion + vbYesNo, "EXCLUIR REGISTRO") = vbYes Then
 
      DoCmd.RunCommand acCmdDeleteRecord
      strMsg1 = MsgBox("Registro excluido com sucesso", vbInformation + vbOKOnly, "AVISO")
     
      Me.NomeProduto.SetFocus
             
  Else
 
      Me.NomeProduto.SetFocus
     
  End If

End Sub

2 - Meus botões Anterior e Posterior do primeiro formulário não vão para outro registro, ficam no registro selecionado do segundo formulário, vejam código:


Private Sub btnAnteriorProdutos_Click()

On Error GoTo TrataErro

'Vai para o registro anterior
DoCmd.GoToRecord , , acPrevious

Me.btnExcluirProdutos.Enabled = False

'Desativa os métodos de Adição, Exclusão e Edição dos registros
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.AllowEdits = False

SaiDaSub:
  Exit Sub

TrataErro:
  If Err.Number = 2105 Then
      Exit Sub
      'Call MsgErro(2105)
  Else
      MsgBox Err.Description
  End If
Resume SaiDaSub

End Sub


Gostaria que ao abrir o registro selecionado meus botões Anterior e Posterior navegassem pelos registros do primeiro formulário e que ao excluir um registro no primeiro formulário o mesmo fosse excluído também no segundo formulário sem ter que fechar o mesmo.

Olá,

Seja bem vindo ao fórum.

Tenta o seguinte no evento Ao Ativar do FormCadastroProdutos:

Me.Form.Requery


Deve resolver.


Nivaldo.

Após o código de exclusão.. podes tentar de duas formas..

Fazer um requery no form:
Me.Requery
Ou se para o outro form:
Forms!NomeDoForm.Requery

Segunda opção.. Recarregar o form aberto utilizando comando de abertura, mesmo com ele aberto:

DoCmd.OpenForm "NomeDoForm"

Cumprimentos.

Opa Amigo Nivaldo.. Não percebi que estavas a responder.

Abraços.

Boa Noite

Não funcionou, continuo com os mesmos problemas ao excluir, só exclui no Form Cadastro de produtos. Só fechando o Form Lista de Produtos e que exclui do mesmo.

Os botões Anterior e Posterior continuam sem função ao carregar registros do Form Lista de Produtos.

Sem problemas Piloto. Ajuda sempre é bom. Esteja à vontade.

Meu caro, qual orientação não funcionou??

Explique com detalhes o que você fez.

Nivaldo.

Envie-nos um modelo com os objetos envolvidos para que possamos ver isto pra ti.

A exclusão em realidade é efetuada na tabela... Sendo que tem dois forms baseados na mesma tabela.. As dicas do Nivaldo e minha deveriam funcionar...
Deves ver em como está aplicando-as...


Cumprimentos.

Bom dia Nivaldo e Piloto

Primeiro muito obrigado pela atenção, parabéns!

Coloquei o método REQUERY no evento CLICK do botão EXCLUIR e funcionou perfeitamente ao excluir o registro, segue o código:

Private Sub btnExcluirProdutos_Click()

Dim strMsg1 As String

If MsgBox("Deseja excluit este registro? Ao exclui-lo não podera desfazer essa ação", _
vbQuestion + vbYesNo, "EXCLUIR REGISTRO") = vbYes Then

DoCmd.RunCommand acCmdDeleteRecord
Forms![Form Lista de Produtos].Requery

Else

Me.NomeProduto.SetFocus

End If

Resolvido o problema de exclusão nas duas tabelas. Agora vou implementar o tratamento de possíveis erros!

Quanto aos botões ANTERIOR E POSTERIOR do Form Cadastro de Produtos ainda não funcionam ao abrir o registro pelo Form Lista de Produtos segue código:

Botão ANTERIOR

Private Sub btnAnteriorProdutos_Click()

'Trata possível erro
On Error GoTo TrataErro

'Vai para o registro anterior
DoCmd.GoToRecord , , acPrevious



'Desativa o botão Excluir
Me.btnExcluirProdutos.Enabled = False

'Desativa os métodos de Adição, Exclusão e Edição dos registros
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.AllowEdits = False

SaiDaSub:
Exit Sub

TrataErro:
If Err.Number = 2105 Then
Exit Sub
Else
MsgBox Err.Description
End If

Resume SaiDaSub

End Sub


Botão POSTERIOR:

Private Sub btnProximoProduto_Click()

On Error GoTo TrataErro

'Vai para o próximo registro
DoCmd.GoToRecord , , acNext



'Desativa o botão Excluir
Me.btnExcluirProdutos.Enabled = False

'Desativa os métodos de Adição, Exclusão e Edição dos registros
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.AllowEdits = False


SaiDaSub:
Exit Sub

TrataErro:
If Err.Number = 2105 Then
'Call MsgErro(2105)
Exit Sub
Else
MsgBox Err.Description
End If

Resume SaiDaSub


End Sub

Bem, espero que possam me ajudar a resolver esse problema e novamente parabéns pelo site!

A C San Roman

Boas...

Nova Dúvida... Novo Tópico.. Assim manteremos a integridade do fórum que é por assunto.
Este assunto condiz com exclusão de registro. Abra um novo Tópico para sua dúvida.

Dê este por resolvido clicando no Botão de Resolvido e tambem no Joinha da mensagem que o auxiliou.


Cumprimentos.

Bom dia Piloto

Obrigado pela dica sobre o fórum.

Aprendo rápido

O problema com a exclusão de registro foi perfeitamente resolvido.

Muito obrigado!

O Fórum agradece o Retorno.

Sucesso!