Private Sub Command2_Click()
'Cancelar Reservacion
resp = MsgBox("Esta seguro de omitir la reservacin", vbYesNo + vbCritical, "Omitir Reservacin...")
If resp = vbYes Then
If Nnew = True Then
   MsgBox "No puede Omitir la Reservacin..." & Chr(13) & "Tiene que grabarla y cancelarla...", vbCritical, "Omitir Reservacin..."
Se inserta un registro en la tabla Userlog, especificando que el usuario
intento cancelar una reservacin aun no guardada.
    dbUlog.Recordset.AddNew
    dbUlog.Recordset.Fields("Confirmacion").Value = Rsvnconfirma.Text
    dbUlog.Recordset.Fields("Computadora").Value = FindComputerName
    dbUlog.Recordset.Fields("UsuarioWindows").Value = FindUserName
    dbUlog.Recordset.Fields("UsuarioSicres").Value = RsvUsuario.Text
    dbUlog.Recordset.Fields("Fecha").Value = Format(Now(), "dd/mm/yyyy")
    dbUlog.Recordset.Fields("Hora").Value = Format(Now(), "HH:MM:SS")
    dbUlog.Recordset.Fields("Actividad").Value = "Deshace Insertar Reservacin no grabada aun"
    dbUlog.Recordset.Update
    dbUlog.Refresh

   GoTo Salir
End If
inserta un registro en la tabla userlog, especificando que el usuario cancelo
una reservacin
dbUlog.Recordset.AddNew
dbUlog.Recordset.Fields("Computadora").Value = FindComputerName
dbUlog.Recordset.Fields("UsuarioWindows").Value = FindUserName
dbUlog.Recordset.Fields("UsuarioSicres").Value = RsvUsuario.Text
dbUlog.Recordset.Fields("Fecha").Value = Format(Now(), "dd/mm/yyyy")
dbUlog.Recordset.Fields("Hora").Value = Format(Now(), "HH:MM:SS")
dbUlog.Recordset.Fields("Actividad").Value = "Deshace Insertar Reservacion"
dbUlog.Recordset.Update
dbUlog.Refresh
dbReservas.Recordset.CancelUpdate
Btn_cancel = False
Reg_Saved = False
GoTo Salir
End If
Salir:
se llama a la rutina checapax para que muestre los pasajeros ocupados y pax libres del servicio, con fecha y hora  de la reservacin, que este en pantalla
Checa_pax Left(SSDateCombo1.DateValue, 10), Rsvactiv.Text, Rsvhora.Text
'Habilitar Controles
SSDateCombo1.Enabled = False
Command1.Enabled = True
cmdConsulta.Enabled = True
Hotel.Enabled = True
'cmdSalir.Enabled = True
cmdModificar.Enabled = True
Command12.Enabled = True
Command3.Enabled = False
''Deshabilitar Controles
Rsvactiv.Enabled = False
Rsvhora.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Rsvnombre.Enabled = False
Rsvhotel.Enabled = False
Rsvtelefono.Enabled = False
Rsvhab.Enabled = False
Text1.Enabled = False
Rsvnotas.Enabled = False
Rsvcventas.Enabled = False
Rsvsventas.Enabled = False
RsvAgente.Enabled = False
End Sub
