MENSAGEM NA HORA DE FECHAR

USUARIO.EXCLUIDOS 21/08/2007 10:29:35
#231804
Ola
tenho um form mais gostaria que quando eu clicase para sair ele me desse uma mensagem Por exemplo: Desmarque e opçao ULTIMO CADASTRO antes de sair...
Valeu
Mais eu quero colocar essa mensagem quando eu clico no X para fazer a janale

esse X e aquele que fica junto com o MINIMIZAR MAXIMIZAR FECHAR
USUARIO.EXCLUIDOS 21/08/2007 10:30:42
#231807
Coloque no unload do Form.
F001E 21/08/2007 10:33:48
#231808
como piolho falou..no Unload Form....um exemplo..

If MsgBox("Confirmar a Saida do Sistema ?", 36, "Saida") = 6 Then
End
Else
Cancel = -1
End If

Cancel = -1 ....caso vc clique no NAO
USUARIO.EXCLUIDOS 21/08/2007 10:37:38
#231811
Com isso, mesmo que tenha um botão cmdFechar, utilizando no botão o comando Unload Me, vai fazer essa pergunta e só fechará após desmarcar essa opção.

obs.: coloquei um Checkbox para exemplo, mas se for outro tipo de objeto, basta adaptar a sua necessidade.

Private Sub Form_Unload(Cancel As Integer)
    If Me.chkUltimoCadastro.Value Then
        MsgBox "Desmarque a opção último cadastro", vbInformation, Me.Caption
        Cancel = True
    End If
End Sub
USUARIO.EXCLUIDOS 21/08/2007 10:43:57
#231816
F001E no unload nem precisa colocar o End, pois já é um comando de fechamento, bastando apenas fazer o Cancel = True, caso queira cancelar, senão ele será fechado sem a necessidade do END. Espero que ajude!
F001E 21/08/2007 10:48:21
#231819
nossa verdade....burrice minha..kkkkkk....nem precisa disso....mas ta valendo......rs...
USUARIO.EXCLUIDOS 21/08/2007 10:50:05
#231823
O que vale é a intenção!! rs. é isso aí! rs. O importante é que estamos ajudando o companheiro GMancine.
Tópico encerrado , respostas não são mais permitidas
Voltar