[Resolvido]Formulário de Pesquisa Desabilitando Controles de Navegação

Boa Noite caros colegas!!

Tenho um formulário de cadastro onde este possui alguns botões, novo, editar, avançar, anterior, etc..
Também tenho um formulário de pesquisa para pesquisar os cadastros no BD.

No formulário de pesquisa quando dou um duplo clique na lista ele carrega os dados da lista no meu formulário de cadastro para que eu possa alterar ou excluir.

O problema que tenho é que ao carregar os dados da lista no formulário de cadastro os botões de navegação (primeiro, anterior, proximo e ultimo) simplismente param de funcionar.

Ficaria muito grato com uma ajudinha.

Segue abaixo os códigos e o BD:

Botao Localizar:

Código:



Private Sub Btn_Localizar_Click()

DoCmd.Close
DoCmd.OpenForm "Frm_Pesq_Cad_Forn"

End Sub



Lista ao clicar:

Código:


Private Sub ltxListaProdutos_Click()
    
    Selecionado = True
    
End Sub


Lista ao clicar 2x:

Código:


Private Sub ltxListaProdutos_DblClick(Cancel As Integer)
On Error GoTo ltxListaProdutos_Click_Err
    
    DoCmd.OpenForm "Frm_Cad_Forn", acNormal, "", "[CLIENTES]=[Forms]![Frm_Pesq_Cad_Forn]![ltxListaProdutos]", , acNormal
    DoCmd.Close acForm, "Frm_Pesq_Cad_Forn"

ltxListaProdutos_Click_Exit:
    Exit Sub
ltxListaProdutos_Click_Err:
    MsgBox Error$
    Resume ltxListaProdutos_Click_Exit
End Sub


Olha, aqui funcionou normalmente... inclusive alertando que esta no ultimo Registro e tal...


Uma coisa vc nao pode esquecer é que: Quando vc abre o formulario la pela pesquisa, ele é carregado FILTRANDO um unico Registro, dessa forma ele nao exibe os outros registros, portanto nao da pra ir ao proximo... Para isso temos que Mandar exibir todos os Registros... Coloquei um Botaozinho la pra isso... De uma Olhada...

Se nao for esse o Caso, detalhe melhor, pois aqui nao consegui obter esse Erro...

fabiopaes, obrigado por ajudar.

Quando abre o formulario de cadastro ele carrega com todos os registros.. pensei que tivesse jeito de ao carregar os dados do formulario de pesquisa no formulario de cadastro nao ficasse com filtro.

Um exemplo pratico de como eu estou pensando que poderia ser segue o link:

https://www.maximoaccess.com/t25823-resolvidocaixa-de-listagem-e-botao-avancar

Atraves desse link você vai entender pq o que estou pretendendo é praticamente a mesma coisa. So que no exemplo do link o Listbox é no mesmo formulário e agora o Listbox é atraves de outro form.


Desculpa a demora pra responder...

Grato pela atenção  fabiopaes, fico no aguardo...

Ideia:
Existe alguma maneira de aplicar uma condição nos botões?

"Se o formulario estiver com filtro ?
Remove filtro e executa comando do botao!

"Se o formulario nao estiver com filtro !
Nao executa o remove filtro e so executa o comando do botao

Caramba esses códigos todos tão fritando meu cérebro !!

Mas eu gosto...

fabiopaes Agradeço muito sua ajuda.

Atraves daquele botão consegui fazer de uma maneira que nao prescisasse apertar o botão.

Deixo o tópico como resulvido!!

Bora pra próxima pedra!!!

Deixo aqui a minha solução para o caso de alguém também precisar um dia:

Solução, coloquei uma condição nos botões para verificar se o formulário está com filtro ou não,
se estiver ele remove o filtro e executa o comando do botão, se não estiver filtrado só executa o comando do botão :

Código:

Código:


Private Sub Btn_Primeiro_Click()
On Error GoTo Err_Btn_Primeiro_Click

If FilterOn = True Then
    DoCmd.ShowAllRecords
    DoCmd.GoToRecord , , acFirst
Else
If FilterOn = False Then
    DoCmd.GoToRecord , , acFirst
End If
End If

Exit_Btn_Primeiro_Click:
    Exit Sub

Err_Btn_Primeiro_Click:
    MsgBox Err.Description
    Resume Exit_Btn_Primeiro_Click
    
End Sub

-------------------------------------------------
Private Sub Btn_Anterior_Click()
On Error GoTo Btn_Anterior

If FilterOn = True Then
    DoCmd.ShowAllRecords

    If Form.CurrentRecord = 1 Then 'se posição do registro = 1
        DoCmd.GoToRecord , , acFirst ' mantem ponteiro no primeiro registro
        MsgBox "Você chegou ao primeiro registro", vbInformation, "Atenção"
    Else
        DoCmd.GoToRecord , , acPrevious ' retornar posição até chegar o 1º registro
    End If
Else

If FilterOn = False Then

    If Form.CurrentRecord = 1 Then 'se posição do registro = 1
        DoCmd.GoToRecord , , acFirst ' mantem ponteiro no primeiro registro
        MsgBox "Você chegou ao primeiro registro", vbInformation, "Atenção"
    Else
        DoCmd.GoToRecord , , acPrevious ' retornar posição até chegar o 1º registro
    End If
End If
End If
Btn_Anterior:
Exit Sub
    
End Sub
--------------------------------------------------------------------------------------
Private Sub Btn_Proximo_Click()
On Error GoTo Btn_Proximo

Dim iCount As Integer

If FilterOn = True Then
    DoCmd.ShowAllRecords

    iCount = Nz(DCount("CódigoDoProduto", "Tbl_Cad_Produtos"), 0)

    If iCount = Me.CurrentRecord Then
        MsgBox "Você chegou ao último registro", vbInformation, "Atenção"
    Else
        DoCmd.GoToRecord , , acNext
    End If
Else

If FilterOn = False Then
    
    iCount = Nz(DCount("CódigoDoProduto", "Tbl_Cad_Produtos"), 0)

    If iCount = Me.CurrentRecord Then
        MsgBox "Você chegou ao último registro", vbInformation, "Atenção"
    Else
        DoCmd.GoToRecord , , acNext
    End If
End If
End If

Btn_Proximo:
Exit Sub
    
End Sub
-----------------------------------------------------------------------------------
Private Sub Btn_Ultimo_Click()
On Error GoTo Err_Btn_Ultimo_Click

If FilterOn = True Then
    DoCmd.ShowAllRecords
    DoCmd.GoToRecord , , acLast
Else
If FilterOn = False Then
    DoCmd.GoToRecord , , acLast
End If
End If

Exit_Btn_Ultimo_Click:
    Exit Sub

Err_Btn_Ultimo_Click:
    MsgBox Err.Description
    Resume Exit_Btn_Ultimo_Click
    
End Sub


A minha ideia era ao filtrar os dados no formulario de pesquisa e carregar os dados no formulario de cadastro os botoes avançar ou anterior continuassem percorrer todos os registros apartir do filtro, mas dessa maneira ja me atendeu.

Mais uma vez obrigado.

Bacana que deu certo amigo, Vamod pro proximo...