Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Você também pode criar uma caixa de mensagem de aviso antes de fechar uma caixa de diálogo. Veja:

Function FecharDialogo() On Error Goto Sair Dim FecharDialg as Integer FecharDialg = MsgBox("Deseja SAIR do Formulário?",1,"Sair Formulário") If (FecharDialg = 1) Then dlg.endExecute() Else End If On Error Goto 0 Exit Function Sair: MsgBox "Linha " & Str(Erl) & ": " & Error$, 176, "Erro: Falta de Parâmetro" On Error Goto 0 End Function

Você também pode criar uma caixa de mensagem de aviso antes de fechar uma caixa de diálogo. Veja:

Function FecharDialogo()
    On Error Goto Sair
        Dim FecharDialg as Integer
            FecharDialg = MsgBox("Deseja SAIR do Formulário?",1,"Sair Formulário")
                If (FecharDialg = 1) Then
                    dlg.endExecute()
                Else
                End If
    On Error Goto 0
    Exit Function
    Sair:
    MsgBox "Linha " & Str(Erl) & ": " & Error$, 176, "Erro: Falta de Parâmetro"
    On Error Goto 0
End Function

Function