Private Sub cmdMostrarReservaciones_Click()
Dim NConfirmacion As String
Dim Actividad As String
Dim FechaConvertida As String
Dim Dia As String
Dim Mes As String
Dim Ao As String

Si el botn dice: Mostrar Reservaciones Segun Fecha
If cmdMostrarReservaciones.Caption = "Mostrar &Reservaciones              Segun Fecha" Then
   Se habilita los botones que van a ser usados
   cmdInsertarPago.Enabled = True
   cmdReimprimirPago.Enabled = True
    cmdLiberarEmbarcaciones.Enabled = True
   cmdCambioEmbarcacion.Enabled = True
    Dia = Mid(txtFechaInicial.Text, 4, 2)
    Mes = Left(txtFechaInicial.Text, 2)
    Ao = Right(txtFechaInicial.Text, 2)
    FechaConvertida = Dia & "/" & Mes & "/" & Ao
DataConfirmacion.DatabaseName = frmMain.Ap_Path & frmMain.dbName
El control data DataConfirmation se llena con los registros de la tabla 
       Reservaciones segn la fecha capturada en el cuadro de texto txtFechaInicial
	DataConfirmacion.RecordsetType = 1
DataConfirmacion.RecordSource = "Select NConfirmacion, No_cupon, Nombre, Hotel, Sub_canal, Agente, Pagado, Actividad, Hora, Canal_venta FROM Reservaciones WHERE Reservaciones.Fecha = #" & FechaConvertida & "#"
DataConfirmacion.Refresh
DataConfirmacion.Recordset.MoveFirst
	se cambia el titulo del botn a: Buscar Reservaciones Diferente Fecha
    cmdMostrarReservaciones.Caption = "Buscar &Reservaciones           Diferente Fecha"
    Se hace visible la etiqueta lblBuscarPor
    lblBuscarPor.Visible = True
    lblBuscarPor = "Buscar por Confirmacion:"
	se asigna espacios en blanco a los cuadros de texto de bsqueda, y para
la casilla de verificacin se establece a Falso
    txtConfirmacion = ""
    txtCupon = ""
    txtNombre = ""
    txtHotel = ""
    txtSubCanal = ""
    txtAgente = ""
    CasillaPagado = 0
    txtActividad = ""
    txtHora = ""
	se inhabilita el cuadro de texto txtFechaInicial
    txtFechaInicial.Enabled = False
se hace visible el cuadro de texto txtConfirmacion
    txtConfirmacion.Visible = True
se habilita el control DBGrid
    DBGrid1.Enabled = True
    txtConfirmacion.SetFocus
 se establece el ancho de las columnas del DBGrid    
DBGrid1.Columns(0).Width = 1200
DBGrid1.Columns(1).Width = 1200
DBGrid1.Columns(2).Width = 2000
DBGrid1.Columns(3).Width = 1200
DBGrid1.Columns(4).Width = 1200
DBGrid1.Columns(5).Width = 1500
DBGrid1.Columns(6).Width = 700
DBGrid1.Columns(7).Width = 1100
DBGrid1.Columns(8).Width = 700
 Se oculta las columnas del DBGrid
Set Cols = DBGrid1.Columns
For Each c In Cols
c.Visible = False
Next c
se vuelven a mostrar las columnas del DBGrid, esto es para que se
refresque el valor de las celdas. Ya que el DBGrid, tiene como DataSource
el control data DataConfirmacion, entonces el DBGrid, muestra las reservas
de la fecha capturara en txtFechaInicial
Cols(0).Visible = True
Cols(1).Visible = True
Cols(2).Visible = True
Cols(3).Visible = True
Cols(4).Visible = True
Cols(5).Visible = True
Cols(6).Visible = True
Cols(7).Visible = True
Cols(8).Visible = True

se escribe el titulo de cada columna del DBGrid
DBGrid1.Columns(0).Caption = "Confirmacion"
DBGrid1.Columns(1).Caption = "Cupon"
DBGrid1.Columns(2).Caption = "Nombre"
DBGrid1.Columns(3).Caption = "Hotel"
DBGrid1.Columns(4).Caption = "Sub Canal"
DBGrid1.Columns(5).Caption = "Agente"
DBGrid1.Columns(6).Caption = "Pagado"
DBGrid1.Columns(7).Caption = "Actividad"
DBGrid1.Columns(8).Caption = "Hora"
Else
	si no es cierto que el botn dice: Mostrar Reservaciones Segun Fecha
	se inhabilitan los controles que no se deben de usar en este momento
    cmdInsertarPago.Enabled = False
    cmdReimprimirPago.Enabled = False
    cmdLiberarEmbarcaciones.Enabled = False
    cmdCambioEmbarcacion.Enabled = False
	se habilita el txtFechaInicial, y se establece su valor a cadena vaca
    txtFechaInicial.Enabled = Trae
	  txtFechaInicial = ""
    txtFechaInicial.SetFocus
se oculta la etiqueta lblbuscarpor y todos los cuadros de texto de bsqueda
    lblBuscarPor.Visible = False
    txtConfirmacion.Visible = False
    txtCupon.Visible = False
    txtNombre.Visible = False
    txtHotel.Visible = False
    txtSubCanal.Visible = False
    txtAgente.Visible = False
    CasillaPagado.Visible = False
    txtActividad.Visible = False
    txtHora.Visible = False
        se refresca el control data DataConfirmacion para que el DbGrid
muestre todas las reservaciones de la base de datos
    Set DataConfirmacion.Recordset = Nothing
    DataConfirmacion.RecordsetType = 1
    DataConfirmacion.RecordSource = "Select NConfirmacion, No_cupon, Nombre, Hotel, Sub_canal, Agente, Pagado, Actividad, Hora, Canal_venta FROM Reservaciones" ' WHERE Reservaciones.Fecha = '" & txtFechaInicial & "'"
    DataConfirmacion.Refresh
    
DBGrid1.Columns(0).Width = 1200
DBGrid1.Columns(1).Width = 1200
DBGrid1.Columns(2).Width = 2000
DBGrid1.Columns(3).Width = 1200
DBGrid1.Columns(4).Width = 1200
DBGrid1.Columns(5).Width = 1500
DBGrid1.Columns(6).Width = 700
DBGrid1.Columns(7).Width = 1100
DBGrid1.Columns(8).Width = 700
Set Cols = DBGrid1.Columns
For Each c In Cols
c.Visible = False
Next c
Cols(0).Visible = True
Cols(1).Visible = True
Cols(2).Visible = True
Cols(3).Visible = True
Cols(4).Visible = True
Cols(5).Visible = True
Cols(6).Visible = True
Cols(7).Visible = True
Cols(8).Visible = True
DBGrid1.Columns(0).Caption = "Confirmacion"
DBGrid1.Columns(1).Caption = "Cupon"
DBGrid1.Columns(2).Caption = "Nombre"
DBGrid1.Columns(3).Caption = "Hotel"
DBGrid1.Columns(4).Caption = "Sub Canal"
DBGrid1.Columns(5).Caption = "Agente"
DBGrid1.Columns(6).Caption = "Pagado"
DBGrid1.Columns(7).Caption = "Actividad"
DBGrid1.Columns(8).Caption = "Hora"
    se inhabilita el DBGrid, para que no se pueda hacer ningn accin con l.
    DBGrid1.Enabled = False
    se cambia el titulo de el botn a: Mostrar Reservaciones Segun Fecha
    cmdMostrarReservaciones.Caption = "Mostrar &Reservaciones              Segun Fecha"
End If
End Sub
