[Resolvido]Colocar mensagem de erro em macro

Boa tarde companheiros tenho um form com um listbox, e um botão que abre outro form com o registro selecionado na listbox e se não estiver selecionado da uma mensagem de erro mas uma mensagem "feia" então eu gostaria de colocar minha propria mensagem de erro tipo "selecione um funcionário" o cod que estou usando neste botão é
"DoCmd.OpenForm "frmfuncionario2", , , "Codfuncionario=" & Lista4.Column(0), acFormEdit, acDialog"

Fala Kebao, tudo bem?

Seguinte, vc pode tratar de 2 maneiras esse seu problema.

1º: Fazendo um tratamento que não tentará abrir o formulário caso o usuário não tenha selecionado nada na listbox e mostrar uma mensagem;

2º: Colocar um tratamento de erro com o número de erro que aparece ao clicar no botão sem ter algo selecionado;

Vou lhe mostrar as duas maneiras, a primeira é mais recomendada, pois vc evita o erro, mas a segunda é uma boa pra te mostrar sobre tratamento de erros.

1º:

Código:


Private Sub Btn_Abrir_Click()
    'Verifica se existe algum item selecionado na listbox
    If Lst_Formularios.ListIndex > -1 Then
        DoCmd.OpenForm "frmfuncionario2", , , "Codfuncionario=" & Lista4.Column(0), acFormEdit, acDialog
    Else
        MsgBox "Selecione um formulário", vbOKOnly + vbInformation, "Atenção..."
    End If
End Sub


2º:

Código:


Private Sub Btn_Abrir_Click()
    'Envia qualquer erro a partir daqui para o marcador TrataErro
    On Error GoTo TrataErro
    
    'Verifica se existe algum item selecionado na listbox
    DoCmd.OpenForm "frmfuncionario2", , , "Codfuncionario=" & Lista4.Column(0), acFormEdit, acDialog

'Caso ocorra algum erro o código executará a partir daqui
TrataErro:
    'Número do código de erro a ser tratado (Se quiser tratar qualquer erro, basta colocar Err.Number <> 0)
    If Err.Number = 123 Then
        MsgBox "Selecione um formulário", vbOKOnly + vbInformation, "Atenção..."
    End If
End Sub


É isso aí, qualquer dúvida estamos aí.

Abrass

Vlw mesmo Marcos vc é 10:D