Private Sub cmdIniciaDia_Click()
Dim FechaIniciada As Date
Dim FechaTrabajo As Date
Dim strSelect As String
    FechaIniciada = SSDateCombo1.DateValue
    strSelect = "Select FechaTrabajo From [Fecha Trabajo]"
    If rcds.State = adStateOpen Then rcds.Close
    rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
	Abre el recordset rcds, que contiene el registro de la tabla Fecha Trabajo
    rcds.MoveFirst
    FechaTrabajo = rcds(0).Value
Si la fecha capturada en el Sheridan Date Combo es menor a la fecha ultima
abierta, no te permite iniciar el da
    If FechaIniciada < FechaTrabajo Then
        MsgBox "No puede iniciar una fecha anterior a la fecha de trabajo actual"
        Exit Sub
    End If
    As mismo si se intenta abrir una fecha que es igual a la ultima abierta, no
te permite
    If FechaIniciada = FechaTrabajo Then
        MsgBox "No puede iniciar una fecha igual a la fecha de trabajo actual"
        Exit Sub
    End If
 Se busca en la tabla Embarcaciones, si alguna est en Status 7, 8, 9  10.                       Es decir si alguna embarcacin se queda el da anterior en status para rentar o
en renta, no te permite iniciar el da, hasta que todas las unidades estn liberadas
    If DLookup("NumEmbarcacion", "Embarcaciones", "Status=7") = "No Encontrado" And DLookup("NumEmbarcacion", "Embarcaciones", "Status=8") = "No Encontrado" And DLookup("NumEmbarcacion", "Embarcaciones", "Status=9") = "No Encontrado" And DLookup("NumEmbarcacion", "Embarcaciones", "Status=10") = "No Encontrado" Then
Se actualiza en la tabla el valor de la fecha de trabajo
    rcds(0).Value = FechaIniciada
    rcds.Update
    rcds.Close
	se actualiza todos los servicios y horarios de manera que no estn en tour
    strSelect = "Select EnTour from Horarios"
    rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
    rcds.MoveFirst
    For i = 1 To rcds.RecordCount
        rcds(0).Value = False
        rcds.Update
        rcds.MoveNext
    Next i
    rcds.Close
       se abre el formulario frmRolGuias, para establecer el rol del da de los
guas.
    frmRolGuias.Show vbModal
    Else
        MsgBox "Todava hay alguna embarcaciones que estn prximas a salir al Tour o estn en Tour"
        Exit Sub
    End If
End Sub
