[Resolvido]Impedir usuario Fechar Formulario

Como poderia fazer para obrigar o usuario a clicar num determinado botão antes de salvar ou fechar o formulario?

Desdabilite o botão fechar.. e crie um botão Sair.. e nele o comando DoCmd.Close.. mas antes desse a cláusula de clicar no botão que pretende...

To Indo.. amanha to de volta.. Saudações Amigão...

Ai é que ta como crio esta clausula ?

Siga as instruções do Hary e no botão:

Dim Msg,Style,Title
Msg="Deseja encerrar?"
Style=vbYesNo
Title="Aviso"
msg = MsgBox(msg, Style, Title)
If Msg=vbYes Then
DoCmd....faz qualquer coisa
Else
Faz outra coisa
End If

Veja os códigos...


Private Sub btnClick_Click()
If Me.btnClick.Caption = "Click" Then
Me.btnClick.Caption = "Clicado"
Me.btnClick.ForeColor = vbRed
End If
End Sub

Private Sub btnSair_Click()
If Me.btnClick.Caption = "Clicado" Then
DoCmd.Close
Else
MsgBox "Voce deve Clicar no botão Click antes de sair!", vbCritical, "Clicar no Botão"
Me.btnClick.SetFocus
End If
End Sub

Saudações


http://dl.dropbox.com/u/26441349/Agravina_11_08_2011.rar

Valeu Vieira e Hary obrigado pela atenção!

O Fórum agradece o retorno.. Bom trabalho

Boa tarde

Se puder colaborar agradeço, aproveitando esse caso:

Se em vez de usar um botão, tiver um grupo de opções, como esse código ficaria:

Private Sub btnClick_Click()
If Me.btnClick.Caption = "Click" Then
Me.btnClick.Caption = "Clicado"
Me.btnClick.ForeColor = vbRed
End If
End Sub

Private Sub btnSair_Click()
If Me.btnClick.Caption = "Clicado" Then
DoCmd.Close
Else
MsgBox "Voce deve Clicar no botão Click antes de sair!", vbCritical, "Clicar no Botão"
Me.btnClick.SetFocus
End If
End Sub

Saudações