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]Mensagem de erro

    avatar
    Jedu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 36
    Registrado : 13/02/2018

    [Resolvido]Mensagem de erro Empty [Resolvido]Mensagem de erro

    Mensagem  Jedu em 10/10/2018, 14:40

    Bom dia a todos,

    Tenho um formulário chamado Fm_AtaRegistroPreço, que tem um botão para abrir um outro formulário chamado Fm_Empenho, o código é o seguinte:

    Private Sub Bt_AbreEmpenho_Click()

       DoCmd.OpenForm "Fm_Empenho", , , "IDAtaRegistro=" & Me.Txt_ControlID.Value

    End Sub

    O problema é quando eu tenho o FM_ataRegistroPreço sem dados, ao clicar no botão ele abre uma janela de erro como mostra a imagem.

    [Resolvido]Mensagem de erro Erro10

    O que eu queria era que em vez de aparecer essa janela aparecesse uma janela a dizer que faltam registros.

    [Resolvido]Mensagem de erro Erro110

    Estava a tentar uma coisa do estilo:

    Private Sub Bt_AbreEmpenho_Click()

       DoCmd.OpenForm "Fm_Empenho", , , "IDAtaRegistro=" & Me.Txt_ControlID.Value
       On Error GoTo Mensagem

    Mensagem:
       MsgBox "Não existem registro de Atas, por favor introduza uma registro para continuar."

    End Sub

    A mensagem aparece-me sempre quer tenha ou não registro, ou seja, quer exista ou não esse erro.
    Alguém pode dar uma olhada.

    Obrigado
    avatar
    Jedu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 36
    Registrado : 13/02/2018

    [Resolvido]Mensagem de erro Empty Re: [Resolvido]Mensagem de erro

    Mensagem  Jedu em 10/10/2018, 15:02

    Bem, acho que descobri o problema

    Private Sub Bt_AbreEmpenho_Click()

    On Error GoTo Mensagem
    DoCmd.OpenForm "Fm_Empenho", , , "IDAtaRegistro=" & Me.Txt_ControlID.Value
    Exit Sub

    Mensagem:
    MsgBox "Não existem dados de atas, por favor introduza"

    End Sub

    Obrigado
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6042
    Registrado : 15/03/2013

    [Resolvido]Mensagem de erro Empty Re: [Resolvido]Mensagem de erro

    Mensagem  ahteixeira em 10/10/2018, 15:19

    Olá Jorge,

    Obrigado pelo retorno, os membros do fórum agradecem.

    Qualquer coisa estamos cá.

    Abraço

    Conteúdo patrocinado

    [Resolvido]Mensagem de erro Empty Re: [Resolvido]Mensagem de erro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/6/2019, 04:11