MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro formulário filtro de pesquisa, finaliza o BDA

    Compartilhe

    Josealdo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 14/12/2012

    [Resolvido]Erro formulário filtro de pesquisa, finaliza o BDA

    Mensagem  Josealdo em Sex 16 Jun 2017, 13:17

    Olá. Tenho um formulário que é utilizado como um filtro de pesquisa. Quando o item procurado é localizado no BDA retorna o relatório corretamente. Entretanto quando o item procurado não é localizado, ele informa erro de execução e fecha o BDA.
    O código que estou usando segue abaixo, poderiam me ajudar a efetuar a modificação no código, para quando o item procurado não for localizado, apenas informar que o item não foi localizado e não fechar o BDA?.
    Obrigado.

    Código:
    Option Compare Database
    Private Sub Comando2_Click()
    Dim stDocName As String
    Dim accobj As AccessObject
    On Error GoTo Err_Comando2_Click
    stDocName = "RtlPNS1"

    'This function closes the report if the report is open and then re-opens the report.
    Set accobj = Application.CurrentProject.AllReports.Item(stDocName)

    If accobj.IsLoaded Then
    If accobj.CurrentView = acCurViewPreview Then
    DoCmd.Close acReport, stDocName
    DoCmd.OpenReport stDocName, acViewReport
    End If
    Else
    DoCmd.OpenReport stDocName, acViewReport
    End If

    Exit_Comando2_Click
    Exit Sub

    Err_Comando2_Click:
    MsgBox err.Description
    Resume Exit_Comando2_Click
    End Sub

    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 20/04/2017

    Re: [Resolvido]Erro formulário filtro de pesquisa, finaliza o BDA

    Mensagem  daygdson em Sex 16 Jun 2017, 16:27

    Bom dia Josealdo, não sei se te ajuda, o tratamento de erro que você chamou estava quase correto, pelo menos da forma que eu entendo... não sou experiente mas acho que consigo te ajudar nisso ai, eu fiz umas alterações no seu código e veja se funciona.

    OBS: Recomendo você sempre definir nomes para os botões, caixas e textos, por exemplo "btnPesquisa, cxNome, txtNome ", assim fica mais fácil identificá-lo no código.

    Código:
    Option Compare Database
    Option Explicit 'Este melhora desempenho e execução na compilação

    Private Sub Comando2_Click()
    Dim stDocName As String
    Dim accobj As AccessObject

    'Ação tratar erro
    On Error GoTo TrataErro 'Alterei o nome para melhor entendimento

    stDocName = "RtlPNS1"

    'This function closes the report if the report is open and then re-opens the report.
    Set accobj = Application.CurrentProject.AllReports.Item(stDocName)

    If accobj.IsLoaded Then
    If accobj.CurrentView = acCurViewPreview Then
    DoCmd.Close acReport, stDocName
    DoCmd.OpenReport stDocName, acViewReport
    End If
    Else
    DoCmd.OpenReport stDocName, acViewReport
    End If

    ' Aqui onde acontece o tratamento do erro
    SaiDaSub:
       Exit Sub

    TrataErro: 'variável definida
       If Err.Number = N° erro Then 'Neste campo especifique o código do erro quando acontecer
                   DoCmd.GoToRecord , , acNewRec
           Exit Sub
       Else
           MsgBox "Pesquisa cancelada !" ' Aqui, digite o texto de mensagem de aviso
       End If
       Resume SaiDaSub
    End Sub

    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 20/04/2017

    Re: [Resolvido]Erro formulário filtro de pesquisa, finaliza o BDA

    Mensagem  daygdson em Seg 19 Jun 2017, 19:33

    Olá Josealdo, algum retorno referente ao seu problema, por favor se foi solucionado favor colocar tópico como Resolvido !

    Josealdo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 14/12/2012

    Erro formulário filtro de pesquisa, fecha o BDA

    Mensagem  Josealdo em Sab 19 Ago 2017, 16:23

    Obrigado.

    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 20/04/2017

    Re: [Resolvido]Erro formulário filtro de pesquisa, finaliza o BDA

    Mensagem  daygdson em Sab 19 Ago 2017, 17:39

    Obrigado pelo retorno, o fórum agradece !

      Data/hora atual: Sab 18 Nov 2017, 13:43