Botões Anterior e Posterior

Ao abrir o Form Cadastro de Produtos os Botões ANTERIOR E POSTERIOR funcionam perfeitamente, utilizo o botão ABRIR do mesmo formulário para abrir o Form Lista de Produtos e selecionar um produto para ser carregado no Form Cadastro de Produtos. Carrega perfeitamente o registro mas os Botões ANTERIOR E POSTERIOR ficam inativos me impedindo de navegar pelos registros. Como resolvo isso? Segue o código dos botões:

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.

A C San Roman

Veja se ajuda.

Private Sub btnAnteriorProdutos_Click()

'Trata possível erro
On Error GoTo TrataErro

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

Me.btnProximoProduto.Enabled = True

'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

Me.btnProximorProduto.Enabled = True
Me.btnProximorProduto.SetFocus
Me.btnAnteriorProdutos.Enabled = False

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

Me.btnAnteriorProdutos.Enabled = True
Me.btnAnteriorProdutos.SetFocus
Me.btnProximoProduto.Enabled = False


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

Resume SaiDaSub


End Sub


Se os botões já abrem inativos, coloque no form Ao Abrir:

Me.btnProximorProduto.Enabled = True
Me.btnAnteriorProdutos.Enabled = True

Boa Tarde Claudio

Não funcionou, não vai nem para registros anteriores nem posteriores ao selecionado no Form Lista de Produtos.

Uso o seguinte código no botão OK do Form Lista de Produtos: para selecionar o registro:

DoCmd.OpenForm "Form Cadastro de Produtos", acNormal, , "[idProdutos]=" & Me.idProdutos
Forms![Form Cadastro de Produtos].Requery

Talvez por o Form Cadastro de Produtos já estar aberto, a consulta ao Form Lista de Produtos e feita por um botão abrir, so carregue o registro selecionado.

Tomara que possa me ajudar.

Abraços

A C San Roman

Amigo acho melhor postar esta parte do seu sistema, caso não queira, especifique melhor, pois precisamos de nomes.

Utilize este código no botão ok da lista de produtos.

Forms![Form Cadastro de Produtos]!btnProximorProduto.Enabled = True
Forms![Form Cadastro de Produtos]!btnAnteriorProdutos.Enabled = True

Bom dia Cláudio.

Vou tentar me explicar melhor.

Ao abrir o Form Cadastro de Produtos através de um Form Principal os Botões ANTERIOR E POSTERIOR funcionam perfeitamente, navegam por todos os registros inseridos no formulário. No Form Cadastro de Produtos tenho um botão ABRIR com seguinte código:

Private Sub btnAbrirProdutos_Click()

Me.btnAlterarProdutos.Enabled = True
DoCmd.OpenForm "Form Lista de Produtos"

End Sub

Com o Form Lista de Produtos aberto, que é em modo formulário tenho, a possibilidade de selecionar um registro específico. Após selecioná-lo clico no botão OK que possui o seguinte código:


Private Sub btnOkTodasCategorias_Click()

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

End Sub

O registro selecionado e mostrado com perfeição no Form Cadastro de Produtos.

ANTERIOR

Private Sub btnAnteriorProdutos_Click()

'Trata possível erro
On Error GoTo TrataErro

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

'Ativa o botão Alterar registros
Me.btnAlterarProdutos.Enabled = True

'Desativa os botões Cancelar, Excluir e Salvar registros
Me.btnCancelarProdutos.Enabled = False
Me.btnExcluirProdutos.Enabled = False
Me.btnSalvarProdutos.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

POSTERIOR

Private Sub btnProximoProduto_Click()

On Error GoTo TrataErro

'Ativa o botão Alterar registros
Me.btnAlterarProdutos.Enabled = True

'Desativa os botões Cancelar, Salvar e Excluir registros
Me.btnCancelarProdutos.Enabled = False
Me.btnSalvarProdutos.Enabled = False
Me.btnExcluirProdutos.Enabled = False

'Desativa adição, exclusão e edição de novos registros
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.AllowEdits = False

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

SaidaSub:
Exit Sub

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

Resume SaidaSub

End Sub

Ao tentar navegar com os botões ANTERIOR E POSTERIOR eles ficam travados no registro aberto mas, se inserir um novo registro através do botão NOVO e salva-ló os botões ANTERIOR E POSTERIOR navegam entre o registro selecionado no Form Lista de Produtos e o novo registro inserido. Me parece que ao abrir o Form Cadastro de Produtos com o registrgo selecionado no Form Lista de Produtos ele abre um novo Form Cadastro de Produtos só com o registro selecionado e ao inserir um novo registra através desse formujlário os botões navengam entre os dois:

Estou tentando inserir o registro selecionado sem abrir um novo form Cadastro de Produtos e não consigo, se realmente for esse o problema. Espero que possa me ajudar.

Tenha um lindo Feriado de independência

Grato

A C San Roman

Boa noite a todos,

Só um pitaco amigo Claudio.

Se você está abrindo um formulário filtrado, só vai aparecer o registro que corresponda ao filtro.



Nivaldo.

Exatamente como o amigo Nivaldo postou, você filtrou um registro, portanto aparece somente ele, e o novo que você inseriu depois da filtragem, os outros não irão aparecer mesmo.

Bom dia amigos.

Há alguma forma para que os outros registros também sejam carregados?

Tenham um lindo dia!

A C San Roman

Bom dia.

Se for para os outros registros aparecerem você não precisa filtrar.

Basta o código simples:

DoCmd.OpenForm "Form Cadastro de Produtos"

Bom dia Claudio.

Mas se não usar o filtro não carrega o registro selecionado e não teria sentido ter o Form Lista de Produtos.

Será que ao filtrar o registro os Botões Anterior e Posterior não possam carregar os registros. Mais ou menos assim:

Form Cadastro de produtos
Registro filtrado na tela
Botão anterior click
Carrega registros
Vai para o registro anterior ao filtrado

Se estou propondo alguma besteira já peço desculpas

Um abraço

A C San Roman

Bom como você mesmo propôs, não teria lógica usar o filtro e exibir todos os registros, por isso você fez o filtro.

Coloque um botão neste form para remover o filtro.

Ai sim vai exibir todos os registros.

Bom dia Cláudio.

Tenho um sistema de controle para bares aonde ao filtrar um registro de uma listagem os botões continuam selecionando os registros anteriores e posteriores, não sei que sistema eles usam, funciona perfeitamente. É o mesmo que quero para meus botões.

Acharemos a solução, continuo pesquisando. Ainda acho que a solução está em um código inserido nos botões Anterior e Posterior ou no botão OK do Form Lista de Produtos. Vamos lá a esperança nunca deve morrer.

Tenha um lindo dia

A C San Roman

Parceiro, tenta colocar no Ao Clicar do seu botão anterior e posterior a seguinte linha:

Me.FilterOn = False

Boa tarde Cláudio.

Contar com a ajuda de pessoas determinadas e outra coisa.

Com sua contribuição estamos chegando lá.

Funcionou parcialmente, os botões navegam pelos registros.

O Botão Anterior vai para o primeiro registro e o Botão Posterior vai para o quarto registro ao primeiro clique dado. Depois navegam por todos os registros seguindo a lógica ascendente ou descendente.

Falta pouco, muito obrigado.

Tenha uma boa noite.

A C San Roman

Ok, estamos ai.
Bom dia.