COMO FUNCIONA O VBYESNOCANCEL

USUARIO.EXCLUIDOS 19/12/2006 14:30:31
#190903
Ola td bem?

fiz o seguinte codigo 

Dim Sair As String
    Sair = MsgBox("Deseja salvar as alterações?", vbYesNoCancel, "Sair")
 If Sair = 6 Then
    Data1.Recordset.Update
    Unload Me
    frm_cadclientesefornecedores.Show 1
 Else
    Unload Me
    frm_cadclientesefornecedores.Show 1


Quando o usuario clica em Sim, o programa entao salva as alterações, mas se ele clicar em não sai da tela, ate ta funcionando... Mas existe o botão Cancel que quando o usuario aperta também esta saindo da tela.

Como faco para quando o Usuario apertar Cancel continue na mesma tela ?

Nao pode salvar o registro, nem sair da tela

Valeu
USUARIO.EXCLUIDOS 19/12/2006 14:33:58
#190909 Resposta escolhida 
  

Dim Sair As String
    Sair = MsgBox("Deseja salvar as alterações?", vbYesNoCancel, "Sair")
    
    Select Case Sair
    
    Case vbYes
        Data1.Recordset.Update
        Unload Me
        frm_cadclientesefornecedores.Show 1
    Case vbNo
        Unload Me
        frm_cadclientesefornecedores.Show 1
    Case vbCancel
        'Não faz nada
    End Select

3LTON 19/12/2006 14:35:07
#190911
ou voce pode usar tambem o vbyesno somente.
USUARIO.EXCLUIDOS 19/12/2006 14:39:59
#190914 


If MsgBox("Deseja Sair ? ", vbYesNoCancel, "Atenção") = vbYes Then
   Unload Me
End If
USUARIO.EXCLUIDOS 19/12/2006 14:46:47
#190921
Valeu ANDREMILARE, era isso mesmo que eu tava precisando !!!
USUARIO.EXCLUIDOS 19/12/2006 15:05:46
#190942
Falow Carinha! Agora, no canto superior direito deste post, utilize-o para encerrar o tópico!
Tópico encerrado , respostas não são mais permitidas
Voltar