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

    [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 : 6828
    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

      Data/hora atual: 14/8/2020, 00:13