Private Sub Text7_LostFocus()
Dim FechaTour As String
Dim tPaxes As Integer
       
    FechaTour = Format(SSDateCombo1.DateValue, "MM/DD/YY")
Si hay algn error ir a la etiqueta de este cdigo GDisponibilidad,
normalmente hay un error cuando es la primera reservacin para esta fecha,
ya que al no existir algn registro en la tabla NConfirma para esta fecha, lo 
que se har en la seccin de Cdigo GDisponibilidad ser insertar un
registro en esta tabla con la fecha del tour, y los valores de ultimo
consecutivo de Confirmacin y ultimo consecutivo de Cancelacin como
cero, enseguida el programa regresa a la etiqueta VDisponibilidad, donde va
aadir la primera reservacin para la fecha requisitada. En el caso de que ya
exista alguna reservacin para la fecha capturada entonces el programa
nunca pasa a la seccin GDisponibilidad, y solo se ejecuta la seccin
VDisponibilidad que genera el nmero de confirmacin, como esta explicado
en la pagina ii de la introduccin de este material.
On Error GoTo GDisponibilidad
VDisponibilidad:
    dbNConfirma.DatabaseName = frmMain.Ap_Path & frmMain.dbName
    dbNConfirma.RecordsetType = 1
 Se llena el Control data con los valores de la tabal NConfirma, segn la
fecha del tour.
    dbNConfirma.RecordSource = "Select * FROM NConfirma WHERE MConfirma=#" & FechaTour & "#"
    dbNConfirma.Refresh
    dbNConfirma.Recordset.MoveFirst
    NConfirmacion = dbNConfirma.Recordset.Fields("NConfirma").Value
se aade el valor de una unidad al campo NConfirma de la tabal NConfirma
    NConfirmacion = NConfirmacion + 1
    dbNConfirma.Recordset.Edit
    dbNConfirma.Recordset.Fields("NConfirma").Value = NConfirmacion
    dbNConfirma.Recordset.Update
    se asigna un nmero de confirmacin a la reservacin
    Rsvnconfirma.Text = Mid(frmLogin.LoginUser_ID, 1, 2) & "-" & Mid(SSDateCombo1.Text, 1, 2) & Mid(SSDateCombo1.Text, 4, 2) & Format(NConfirmacion, "00") & Format(Rnd * 100, "00")
se aade un registro a la tabla Userlog, especificando que se esta
asignando una confirmacin
    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 = "Asignar Confirmacion"
    dbUlog.Recordset.Update
    dbUlog.Refresh
   End If
calcula total de pasajeros de la reservacin
tPaxes = Val(Text5.Text) + Val(Text6.Text)
S el total de Pasajeros supera el total de pasajeros Libres que se tenia antes de ingresar o modificar esta reservacin no te deja continuar hasta que se corrija
If tPaxes > LibresInicial Then
   resp = MsgBox("Verifique el Numero de Pax ...", vbCritical, "Pax Disponibles...")
   Text5.SetFocus
End If
Actualiza los cuadros de Texto donde se despliega los valores de pasajeros libres y pasajeros ocupados para este servicio, fecha y hora.
Rsvlibres.Text = LibresInicial - tPaxes
Rsvocup.Text = DisponibilidadInicial - Val(Rsvlibres)
GoTo Terminar
Seccin que se ejecuta cuando no existe reservacin para esta fecha,
y servicio
GDisponibilidad:
dbNConfirma.DatabaseName = frmMain.Ap_Path & frmMain.dbName
    dbNConfirma.RecordsetType = 1
    dbNConfirma.RecordSource = "Select * FROM NConfirma"
    dbNConfirma.Refresh
    dbNConfirma.Recordset.MoveFirst
dbNConfirma.Recordset.AddNew
inserta un registro con los valores de la fecha que se capture en el Sheridan
Date combo, y con ceros en los campos NConfirma y CancelN
dbNConfirma.Recordset.Fields("MConfirma").Value = Left(SSDateCombo1.DateValue, 10)
dbNConfirma.Recordset.Fields("NConfirma").Value = 0
dbNConfirma.Recordset.Fields("CancelN").Value = 0
dbNConfirma.Recordset.Update
dbNConfirma.Refresh
dbNConfirma.Recordset.Close
GoTo VDisponibilidad
Terminar:
End Sub
