Urgente!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[mamc]

Espero te sirva estos códigos:

desde el X :

Private Sub Form_Unload(Cancel As Integer)
Dim Resp As Integer
With FrmMain.SDITree
Select Case .ActiveForm.Name
Case Is = "FrmMain"
Resp = MsgBox(" ¿ Desea Salir del Sistema Ventas ? ", vbQuestion + vbYesNo + vbDefaultButton2, Me.Caption)
If Resp = vbYes Then
If .ActiveForm Is FrmMain Or _
.ActiveForm Is Nothing Then
Else
Call .CloseForm(.ActiveForm)
End If
End
Else
Cancel = True
End If
Case Else
Call .CloseForm(.ActiveForm)
Cancel = True
End Select
End With
End Sub


desde el Editor de Menues:

Private Sub mnu_salir_Click()
Dim Resp As Integer
Resp = MsgBox(" ¿ Desea Salir del Sistema Ventas ? ", vbQuestion + vbYesNo + vbDefaultButton2, Me.Caption)
If Resp = vbYes Then
End
Else
Exit Sub
End If
End Sub