[Resolvido]Busca e depois Excuir

Olá,

Tenho uma rotina de Pesquisa retirada em outro forum a qual coloquei no meu Form.

A pesquisa funciona normal, só que se eu resolver excluir o que pesquisei, a exclusão acontece, mas abre o form logo após sem campo nenhum e sem os controles, como posso contornar essa situação, Poderia abrir o form normalmente após exclusão com todos registros e no Primeiro registro.

tentei um requery mas não deu certo pois parece que esta filtrado em um unico registro.

A Rotina de Pesquisa é essa e no form tem um Botão para excluir.

Private Sub CmdPesquisa_Click()
'**************************************************************
'Elaborado por: José Martins
'Site: www.accessexemplos.com
'Data: 22-09-2011
'NOTA: Não remover este cabeçalho. Respeite o autor do código.
'***************************************************************
On Error GoTo Err_Comando6_Click
Dim palavras() As String
Dim x As Integer
Dim strSql As String
Dim strWhere As String
palavras = Split(Me.TxtPesquisa, " ")
For x = 0 To UBound(palavras)
strWhere = strWhere & "numano Like '*" & palavras(x) & "*' or "
Next x
strWhere = Left$(strWhere, Len(strWhere) - 3)
strSql = "SELECT * FROM tab_entrevista where " & strWhere & " ORDER BY [numano] "
Me.RecordSource = strSql
Exit_Comando6_Click:
Exit Sub
Err_Comando6_Click:
MsgBox Err.Description
Resume Exit_Comando6_Click
End Sub


Obrigado

Boas Flecha, poste o seu Bd para que possamos ver...

Mas a principio creio que como o form está filtrado, ao excluir a pesquisa... este fica sem registro válido, portanto esconde os objetos...


Cumprimentos.

Piloto,

Acho que pode usar o mesmo desse Tópico na 4ª mensagem.

http://maximoaccess.forumeiros.com/t9958-resolvidopegar-dados-do-campo-estado-na-tabela-so-que-esta-armazenado-o-codigo-26-e-nao-o-nome-sp

Entre no Bd e abra o FormGeral, Busque uma entrevista e exclua.

Se não der eu coloco novamente aqui.

Vamos la....

Está ocorrendo o seguinte:

Ao filtrar o form com a entrevista você carrega o recordsource form com um SQL filtrado, portanto ele fica com um registro apenas, o registro filtrado.

Em seguida você o exclui e o form não tendo nenhum registro esconde todos os objetos.


A solução:

Nas declarações do módulo do form, defina uma variável to tipo boolean (Falso/Verdadeiro)
Essa variável será utilizada (será definida como verdadeira) ao filtrar o form com a entrevista

Código:

Option Compare Database
Dim Excluir As Boolean

No botão que executa a consulta:

[code]Private Sub CmdPesquisa_Click()
'**************************************************************
'Elaborado por: José Martins
'Site: www.accessexemplos.com
'Data: 22-09-2011
'NOTA: Não remover este cabeçalho. Respeite o autor do código.
'***************************************************************
On Error GoTo Err_Comando6_Click
Dim palavras() As String
Dim x As Integer
Dim strSql As String
Dim strWhere As String
palavras = Split(Me.TxtPesquisa, " ")
For x = 0 To UBound(palavras)
strWhere = strWhere & "numano Like '*" & palavras(x) & "*' or "
Next x
strWhere = Left$(strWhere, Len(strWhere) - 3)
strSql = "SELECT * FROM tab_entrevista where " & strWhere & " ORDER BY [numano] "
Me.RecordSource = strSql
Excluir = True

Exit_Comando6_Click:
Exit Sub
Err_Comando6_Click:
MsgBox Err.Description
Resume Exit_Comando6_Click
End Sub


>>>> Observe que acrescentei a variável e defini a mesma como true (isso significa que foi utilizado o botão de pesquisa)


No botão excluir:

Private Sub CmdExcluir_Click()
On Error GoTo Err_CmdExcluir_Click
Dim strSql As String

If Excluir = True Then

strSql = "SELECT * FROM tab_entrevista ORDER BY [numano] "
Me.RecordSource = strSql

If MsgBox("Deseja excluir a Entrevista selecionada?", vbQuestion + vbYesNo, "Exclusão de Entrevista") = vbYes Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Excluir = False
End If

Else
If MsgBox("Deseja excluir a Entrevista selecionada?", vbQuestion + vbYesNo, "Exclusão de Entrevista") = vbYes Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

End If
End If
Exit_CmdExcluir_Click:
Exit Sub

Err_CmdExcluir_Click:
MsgBox Err.Description
Resume Exit_CmdExcluir_Click

End Sub

>>>> Observe que utilizo a variável para executar condicionalmente a exclusão.
Caso a variável esteja definida como true, recarrega totalmente o form com os registro da tabela e executa a exclusão, em seguida define novamente a variável como false.

Caso a variávl esteja definida como false, executa somente a exclusão




Cumprimentos.

Perfeito!

Nunca eu iria conseguir resolver essa parada!

Vou sempre adaptando daqui e dali e quando não consigo vou mudando tudo.

Parabéns e obrigado mais uma vez.

Forum e pessoal de Parabéns.

Não se esqueça de clicar no Joinha da menssagem que o auxiliou!!!!


O Fórum agradece o retorno.

Estou postando novamente, pois em teste deparei com uma falha na pesquisa:

Quando não localiza ou não existe o registro, não tem um tratamento e a tela esta ficando como antes nada filtrado e some tudo.

Andei olhando exemplos que tenho mas não consegui acertar.

Portanto estou recorrendo aos mestres.

Procurei no forum nos exemplos mas não achei uma rotina de busca "padrão" para
localizar registros.

Substitua:


Private Sub CmdPesquisa_Click()
'**************************************************************
'Elaborado por: José Martins
'Site: www.accessexemplos.com
'Data: 22-09-2011
'NOTA: Não remover este cabeçalho. Respeite o autor do código.
'***************************************************************
On Error GoTo Err_Comando6_Click
Dim palavras() As String
Dim x As Integer
Dim strSql As String
Dim strWhere As String


If DCount("*", "tab_Entrevista", "NumAno = '" & Me.TxtPesquisa & "'") = 0 Then
MsgBox "Registro Não Encontrado", vbCritical, "ATENÇÃO"
Exit Sub
Else
palavras = Split(Me.TxtPesquisa, " ")
For x = 0 To UBound(palavras)
strWhere = strWhere & "numano Like '*" & palavras(x) & "*' or "
Next x
strWhere = Left$(strWhere, Len(strWhere) - 3)
strSql = "SELECT * FROM tab_entrevista where " & strWhere & " ORDER BY [numano] "
Me.RecordSource = strSql
Excluir = True
End If

Exit_Comando6_Click:
Exit Sub
Err_Comando6_Click:
MsgBox Err.Description
Resume Exit_Comando6_Click
End Sub



Cumprimentos.

Valeu Piloto,

Coloquei uma linha para limpar o campo txtpesquisa após consulta e Testando !

O Fórum agradece o Retorno.

Voltei,

Tem mais uma detalhe! Depois de consultar a pessoa pode: só ler ou se
for o caso alterar ou excluir.

Acontece que depois de ler ou editar tem que fechar o form, pois não sai do registro buscado, só fechando e abrindo
para mostrar todos.

É claro amigão... pois o form está carregado apenas com um único registro...

Crie um Botão, coloque o nome de: Limpar Filtro e no código:

Private Sub Comando51_Click()
On Error GoTo Err_Comando51_Click
Dim strSql As String



strSql = "SELECT * FROM tab_entrevista ORDER BY [numano] "
Me.RecordSource = strSql
Me.Requery

Exit_Comando51_Click:
Exit Sub

Err_Comando51_Click:
MsgBox Err.Description
Resume Exit_Comando51_Click

End Sub


Cumprimentos.

Mais uma vez, valeu Piloto.

Eu até tentei com o Requery e o Select * mas não tive
sucesso, mas com os erros vai se aprendendo.

Fazendo mais testes!

Agradecemos o Retorno.

Olá,

Reabri o tópico, pois quando pesquiso uma Entrevista ela aparece Filtrada no Form (só ela).
Se eu escolher Excluir, vem a seguinte sequência:
Aparece a Mensagem se para confirmar e se vê que o registro pulou para o Início, portanto quando excluo
deleta o Primeiro e não o que foi filtrado.
Parece que quando clicar em Excluir "desfaz" o filtro.

Se eu percorrer os registros e parar em um qualquer, deleta normal.
O problema esta quando pesquisa e quer deletar em seguida!

As funções estão como nos posts anteriores.

Obrigado.

Olá,

Andei fazendo tentativas e mudei a primeira parte do código para:

On Error GoTo Err_CmdExcluir_Click
Dim strSql As String

If Excluir = True Then



If MsgBox("Deseja excluir a Entrevista selecionada?", vbQuestion + vbYesNo, "Exclusão de Entrevista") = vbYes Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Excluir = False

strSql = "SELECT * FROM tab_entrevista ORDER BY [numano] "
Me.RecordSource = strSql

End If

Else

Notei que quando clicava no excluir após localizar, antes de excluir ele estava
abrindo o arquivo no primeiro registro para depois excluir o que estava na tela
e estava errado.

Assim ele esta excluindo o que esta filtrado de depois ele abre novamente o form
pela strSql e não fica vazia a tela.

Se tiverem saída mais profissional coloquem para mim.

Obrigado

Olá,

Aparentemente, cumpriu o propósito e
ainda não deu erro.

Vou colocar como resolvido.

Obrigado a todos.