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]Ação Quando o Registro não for encontrado

    avatar
    Josealdo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ação Quando o Registro não for encontrado Empty [Resolvido]Ação Quando o Registro não for encontrado

    Mensagem  Josealdo 5/8/2020, 18:27

    Olá.

    Colegas, tenho uma edição que é feita através de formulario.
    Para editar o registro, antes da abertura do formulario é efetuada uma pesquisa, e no caso de não encontrar registro com o item pesquisado retorna uma mesagem que não há item registrado.

    Qual erro que ocorre? Após a mensagem de registro não localizado. O Acces abre uma janela com a seguinte informação: "A execução deste aplicativo foi interrompida devido a um erro em tempo de execução". E logo em seguida finaliza o programa.

    Como posso fazer para corrigir isto? Por favor.

    Abaixo segue a linha de comando utilizada.

    Private Sub Form_Open(Cancel As Integer)
    If Me.RecordsetClone.RecordCount = 0 Then
    Cancel = True
    MsgBox "Não registrado, por gentileza verificar...", vbCritical
    End If
    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3411
    Registrado : 21/04/2011

    [Resolvido]Ação Quando o Registro não for encontrado Empty Re: [Resolvido]Ação Quando o Registro não for encontrado

    Mensagem  Marcelo David 5/8/2020, 18:33

    Boa tarde,
    Pus um "tratamento" de erro genérico e alterei onde estava o Cancel = True

    Teste:

    Código:
    Private Sub Form_Open(Cancel As Integer)
    On Error Resume Next
    If Me.RecordsetClone.RecordCount = 0 Then
       MsgBox "Não registrado, por gentileza verificar...", vbCritical
       Cancel = True
    End If
    End Sub


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Ação Quando o Registro não for encontrado Marcel11

    Josealdo gosta desta mensagem

    avatar
    Josealdo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ação Quando o Registro não for encontrado Empty Re: [Resolvido]Ação Quando o Registro não for encontrado

    Mensagem  Josealdo 5/8/2020, 18:46

    Marcelo, antecipadamente muito obrigado pelo suporte.

    Eu fiz a alteração.

    O comando ta funcionando quando o banco de dados esta em .accdb mas ele é usado em .accdr e a falha permance.

    Se vc tive outra sugestão, agradeço.

    Obrigado.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3411
    Registrado : 21/04/2011

    [Resolvido]Ação Quando o Registro não for encontrado Empty Re: [Resolvido]Ação Quando o Registro não for encontrado

    Mensagem  Marcelo David 5/8/2020, 19:00

    Qualquer erro ocorrido e não tratado especificamente, estando em accdr irá causar isso.

    Também accdr não reconhece tratamento de erro em macros, se usa macros, não use a extenção accdr.
    Se não use, depure e compile o código, veja se será apresentando algum erro e nos retorne.



    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Ação Quando o Registro não for encontrado Marcel11
    avatar
    Josealdo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ação Quando o Registro não for encontrado Empty Re: [Resolvido]Ação Quando o Registro não for encontrado

    Mensagem  Josealdo 5/8/2020, 22:47

    Olá.

    Marcelo, não há macros. Sim eu já havia depurado e compilado antes, não aparece nenhum erro.

    avatar
    Josealdo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ação Quando o Registro não for encontrado Empty Re: [Resolvido]Ação Quando o Registro não for encontrado

    Mensagem  Josealdo 4/2/2021, 14:51

    ok
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3411
    Registrado : 21/04/2011

    [Resolvido]Ação Quando o Registro não for encontrado Empty Re: [Resolvido]Ação Quando o Registro não for encontrado

    Mensagem  Marcelo David 4/2/2021, 15:17

    Boa tarde, deu certo? Qual solução encontrou?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Ação Quando o Registro não for encontrado Marcel11
    avatar
    Josealdo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ação Quando o Registro não for encontrado Empty Re: [Resolvido]Ação Quando o Registro não for encontrado

    Mensagem  Josealdo 4/2/2021, 15:44

    Como não consegui localizar a falha, algo ocorrido conrrompeu e ocasionou a falha, peguei backup anteriores sem a presença da falha e trabalhei na recuperação dos dados faltantes.

    Gratidão.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3411
    Registrado : 21/04/2011

    [Resolvido]Ação Quando o Registro não for encontrado Empty Re: [Resolvido]Ação Quando o Registro não for encontrado

    Mensagem  Marcelo David 4/2/2021, 19:18

    Grato pelo retorno. cheers


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Ação Quando o Registro não for encontrado Marcel11

    Josealdo gosta desta mensagem


      Data/hora atual: 23/9/2021, 00:00