MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Ação Quando o Registro não for encontrado

    avatar
    Josealdo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Ação Quando o Registro não for encontrado Empty Ação Quando o Registro não for encontrado

    Mensagem  Josealdo em 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 100%

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

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

    Mensagem  Marcelo David em 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


    .................................................................................
    Marcelo David
    https://www.freetool.dev (em construção)

    Josealdo gosta desta mensagem

    avatar
    Josealdo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Josealdo em 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 100%

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

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

    Mensagem  Marcelo David em 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.



    .................................................................................
    Marcelo David
    https://www.freetool.dev (em construção)
    avatar
    Josealdo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Josealdo em 5/8/2020, 22:47

    Olá.

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


      Data/hora atual: 19/10/2020, 17:08