MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    avatar
    Josealdo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Josealdo 16/6/2017, 09: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
    avatar
    daygdson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  daygdson 16/6/2017, 12: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
    avatar
    daygdson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  daygdson 19/6/2017, 15:33

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Josealdo 19/8/2017, 12:23

    Obrigado.
    avatar
    daygdson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  daygdson 19/8/2017, 13:39

    Obrigado pelo retorno, o fórum agradece !

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:39