Private Sub DBGrid1_HeadClick(ByVal ColIndex As Integer)
Dim ColumnaABuscar As Integer
Dim FechaConvertida As String
Dim Dia As String
Dim Mes As String
Dim Ao As String

    Dia = Mid(txtFechaInicial.Text, 4, 2)
    Mes = Left(txtFechaInicial.Text, 2)
    Ao = Right(txtFechaInicial.Text, 2)
    FechaConvertida = Dia & "/" & Mes & "/" & Ao
Columna en donde se hizo click
ColumnaABuscar = DBGrid1.Columns(ColIndex).ColIndex
    Set DataConfirmacion.Recordset = Nothing
    Establece el recordsource del DataConfirmacion para que tenga las
	reservaciones de la fecha capturada en el cuadro de texto txtFechaInicial
    DataConfirmacion.DatabaseName = frmMain.Ap_Path & frmMain.dbName
    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
Select Case ColumnaABuscar
Si la columna es la primera muestra el cuadro de texto txtConfirmacion
Case 0
    lblBuscarPor = "Buscar Por Confirmacion:"
    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"
    
    txtCupon.Visible = False
    txtCupon = ""
    txtNombre.Visible = False
    txtNombre = ""
    txtHotel.Visible = False
    txtHotel = ""
    txtSubCanal.Visible = False
    txtSubCanal = ""
    txtAgente.Visible = False
    txtAgente = ""
    CasillaPagado.Visible = False
    CasillaPagado = 0
    txtActividad.Visible = False
    txtActividad = ""
    txtHora.Visible = False
    txtHora = ""
    txtConfirmacion.Visible = True
    txtConfirmacion.SetFocus
Si la columna es la segunda muestra el cuadro de texto txtCupon
Case 1
    lblBuscarPor = "Buscar Por Cupon:"
    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"
    txtConfirmacion.Visible = False
    txtConfirmacion = ""
    txtNombre.Visible = False
    txtNombre = ""
    txtHotel.Visible = False
    txtHotel = ""
    txtSubCanal.Visible = False
    txtSubCanal = ""
    txtAgente.Visible = False
    txtAgente = ""
    CasillaPagado.Visible = False
    CasillaPagado = 0
    txtActividad.Visible = False
    txtActividad = ""
    txtHora.Visible = False
    txtHora = ""
    txtCupon.Visible = True
    txtCupon.SetFocus
Si la columna es la tercera muestra el cuadro de texto txtNombre
Case 2
    lblBuscarPor = "Buscar Por Nombre:"
    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"
    txtConfirmacion.Visible = False
    txtConfirmacion = ""
    txtCupon.Visible = False
    txtCupon = ""
    txtHotel.Visible = False
    txtHotel = ""
    txtSubCanal.Visible = False
    txtSubCanal = ""
    txtAgente.Visible = False
    txtAgente = ""
    CasillaPagado.Visible = False
    CasillaPagado = 0
    txtActividad.Visible = False
    txtActividad = ""
    txtHora.Visible = False
    txtHora = ""
    txtNombre.Visible = True
    txtNombre.SetFocus
Si la columna es la cuarta muestra el cuadro de texto txtHotel
Case 3
    lblBuscarPor = "Buscar Por Hotel:"
    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"
    
    txtConfirmacion.Visible = False
    txtConfirmacion = ""
    txtCupon.Visible = False
    txtCupon = ""
    txtNombre.Visible = False
    txtNombre = ""
    txtSubCanal.Visible = False
    txtSubCanal = ""
    txtAgente.Visible = False
    txtAgente = ""
    CasillaPagado.Visible = False
    CasillaPagado = 0
    txtActividad.Visible = False
    txtActividad = ""
    txtHora.Visible = False
    txtHora = ""
    txtHotel.Visible = True
    txtHotel.SetFocus
Si la columna es la quinta muestra el cuadro de texto txtSubcanal
Case 4
    lblBuscarPor = "Buscar Por Sub Canal:"
    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"
    
    txtConfirmacion.Visible = False
    txtConfirmacion = ""
    txtCupon.Visible = False
    txtCupon = ""
    txtNombre.Visible = False
    txtNombre = ""
    txtHotel.Visible = False
    txtHotel = ""
    txtAgente.Visible = False
    txtAgente = ""
    CasillaPagado.Visible = False
    CasillaPagado = 0
    txtActividad.Visible = False
    txtActividad = ""
    txtHora.Visible = False
    txtHora = ""
    txtSubCanal.Visible = True
    txtSubCanal.SetFocus
Si la columna es la sexta muestra el cuadro de texto txtAgente
Case 5
    lblBuscarPor = "Buscar Por Agente:"
    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"
    
    txtConfirmacion.Visible = False
    txtConfirmacion = ""
    txtCupon.Visible = False
    txtCupon = ""
    txtNombre.Visible = False
    txtNombre = ""
    txtHotel.Visible = False
    txtHotel = ""
    txtSubCanal.Visible = False
    txtSubCanal = ""
    CasillaPagado.Visible = False
    CasillaPagado = 0
    txtActividad.Visible = False
    txtActividad = ""
    txtHora.Visible = False
    txtHora = ""
    txtAgente.Visible = True
    txtAgente.SetFocus
Si la columna es la sptima muestra la casilla de verificacin CasillaPagado
Case 6
lblBuscarPor = "Buscar Por Status:"
    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"
    txtConfirmacion.Visible = False
    txtConfirmacion = ""
    txtCupon.Visible = False
    txtCupon = ""
    txtNombre.Visible = False
    txtNombre = ""
    txtHotel.Visible = False
    txtHotel = ""
    txtSubCanal.Visible = False
    txtSubCanal = ""
    txtAgente.Visible = False
    txtAgente = ""
    txtActividad.Visible = False
    txtActividad = ""
    txtHora.Visible = False
    txtHora = ""
    If CasillaPagado = 0 Then
        CasillaPagado = 1
    CasillaPagado.Visible = True
    CasillaPagado.SetFocus
    Else
        CasillaPagado = 0
    CasillaPagado.Visible = True
    CasillaPagado.SetFocus
    End If
Si la columna es la octava muestra el cuadro de texto txtActividad
Case 7
    lblBuscarPor = "Buscar Por Actividad:"
    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"
    
    txtConfirmacion.Visible = False
    txtConfirmacion = ""
    txtCupon.Visible = False
    txtCupon = ""
    txtNombre.Visible = False
    txtNombre = ""
    txtHotel.Visible = False
    txtHotel = ""
    txtSubCanal.Visible = False
    txtSubCanal = ""
    txtAgente.Visible = False
    txtAgente = ""
    CasillaPagado.Visible = False
    CasillaPagado = 0
    txtHora.Visible = False
    txtHora = ""
    txtActividad.Visible = True
    txtActividad.SetFocus
Si la columna es la novena muestra el cuadro de texto txtHora
Case 8
    lblBuscarPor = "Buscar Por Hora:"
    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"
    
    txtConfirmacion.Visible = False
    txtConfirmacion = ""
    txtCupon.Visible = False
    txtCupon = ""
    txtNombre.Visible = False
    txtNombre = ""
    txtHotel.Visible = False
    txtHotel = ""
    txtSubCanal.Visible = False
    txtSubCanal = ""
    txtAgente.Visible = False
    txtAgente = ""
    CasillaPagado.Visible = False
    CasillaPagado = 0
    txtActividad.Visible = False
    txtActividad = ""
    txtHora.Visible = True
    txtHora.SetFocus
End Select
End Sub
