Boa tarde,
Fiz um banco de dados de 1 LIVRO CAIXA simples para minha empresa, com a ajuda aqui do fórum ficou bom, com o aumento das informações no banco de dados precisei incrementar uma pesquisa através de 3 campos: Nº lançamento, data e valor e um com um botão "Limpar Filtro" para restabelecer os dados.
tenho um único formulário que entro com as informações de cada registro e abaixo tenho uma caixa de listagem, que relaciona os itens em ordem crescente. Daí quando quero pesquisar um lançamento, através da minha nova pesquisa, na caixa de listagem realiza o filtro, quando clico na linha filtrada da caixa de listagem o registro aparece nos campo acima de entrada dos dados, através do comando:
Private Sub Lista58_Click()
DoCmd.OpenForm "Frm_Lancamento", acNormal, "", "[codigo]=[Forms]![Frm_Lancamento]![Lista58]", , acNormal
End Sub
Meu problema:
Ao remover o filtro através do botão "Limpar Filtro", acontece os problemas:
1. No registro de entrada não vai para o último registro,
2. O sistema entende que o 1º registro é o nº 114 e o último nº 26 (não sei como)
3. Após executar o comando se tiver no registro Nº 114 o botão de voltar registro não funciona, nem se tiver no registro nº 26 não avança para o próximo.
Resumindo queria saber um comando para desfazer o filtro e voltar na condição inicial do banco de dados, pois quando eu inicio o programa ele roda direitinho.
Abaixo a descrição o botaõ filtrar
Private Sub Limpar_Filtro_Click()
txt_PesqValor = ""
txt_PesqData = ""
txt_PesqLanc = ""
Me.Lista58 = 1
Me.Lista58.Requery
Me.Refresh
DoCmd.OpenForm "Frm_Lancamento", acNormal, "", "[codigo]<>[Forms]![Frm_Lancamento]![Lista58]", , acNormal
End Sub
Fiz um banco de dados de 1 LIVRO CAIXA simples para minha empresa, com a ajuda aqui do fórum ficou bom, com o aumento das informações no banco de dados precisei incrementar uma pesquisa através de 3 campos: Nº lançamento, data e valor e um com um botão "Limpar Filtro" para restabelecer os dados.
tenho um único formulário que entro com as informações de cada registro e abaixo tenho uma caixa de listagem, que relaciona os itens em ordem crescente. Daí quando quero pesquisar um lançamento, através da minha nova pesquisa, na caixa de listagem realiza o filtro, quando clico na linha filtrada da caixa de listagem o registro aparece nos campo acima de entrada dos dados, através do comando:
Private Sub Lista58_Click()
DoCmd.OpenForm "Frm_Lancamento", acNormal, "", "[codigo]=[Forms]![Frm_Lancamento]![Lista58]", , acNormal
End Sub
Meu problema:
Ao remover o filtro através do botão "Limpar Filtro", acontece os problemas:
1. No registro de entrada não vai para o último registro,
2. O sistema entende que o 1º registro é o nº 114 e o último nº 26 (não sei como)
3. Após executar o comando se tiver no registro Nº 114 o botão de voltar registro não funciona, nem se tiver no registro nº 26 não avança para o próximo.
Resumindo queria saber um comando para desfazer o filtro e voltar na condição inicial do banco de dados, pois quando eu inicio o programa ele roda direitinho.
Abaixo a descrição o botaõ filtrar
Private Sub Limpar_Filtro_Click()
txt_PesqValor = ""
txt_PesqData = ""
txt_PesqLanc = ""
Me.Lista58 = 1
Me.Lista58.Requery
Me.Refresh
DoCmd.OpenForm "Frm_Lancamento", acNormal, "", "[codigo]<>[Forms]![Frm_Lancamento]![Lista58]", , acNormal
End Sub