Private Sub casillaTodo_Click()
Dim dbName As String
Dim conn As ADODB.Connection
Dim strUpdate As String
Dim Filas As Integer
Dim iRow As Integer
Dim i As Integer
Dim j As Integer
Dim tFields() As String
Dim sTmp As String

    dbName = frmMain.Ap_Path & frmMain.dbName
        Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & dbName & ";" & _
        "Persist Security Info=False"
    conn.Open
    
    Filas = SCGrid1.Rows
Si la casilla de verificacin toma el valor de Verdadero, entonces selecciona todos los cupones, y cambia la etiqueta de la casilla de verificacin a Deseleccionar Todo
    If casillaTodo = 1 Then
        casillaTodo.Caption = "&Deselecciona Todo"
        For j = 0 To Filas - 1
            ReDim tFields(SCGrid1.Cols - 1)
            For i = 0 To SCGrid1.Cols - 1
         
                sTmp = SCGrid1.Text(j, i)
                Select Case i
                Case 0
                tFields(i) = sTmp
                Case 2, 4
                    tFields(i) = "'" & sTmp & "'"
                Case 11
                    tFields(i) = "True"
            End Select
    Next i
Consulta de actualizacin para que cambien los valores de la columna Facturar a verdadero
        strUpdate = "update [Facturacion Temporal] set "  'CFFacturado = " & Facturar
        strUpdate = strUpdate & SCGrid1.Key(-1, 11) & "=" & tFields(11)
        strUpdate = strUpdate & " where " & SCGrid1.Key(-1, 1) & "=" & tFields(0) & " And " & SCGrid1.Key(-1, 2) & "=" & tFields(2) & " And " & SCGrid1.Key(-1, 4) & "=" & tFields(4)
        db.Execute strUpdate
    Next j
Si la casilla de verificacin toma el valor de Falso, entonces deselecciona todos los cupones, y cambia la etiqueta de la casilla de verificacin a Seleccionar Todo
    Else
        casillaTodo.Caption = "&Selecciona Todo"
        For j = 0 To Filas - 1
            ReDim tFields(SCGrid1.Cols - 1)
            For i = 0 To SCGrid1.Cols - 1
                sTmp = SCGrid1.Text(j, i)
                Select Case i
                Case 0
                tFields(i) = sTmp
                Case 2, 4
                tFields(i) = "'" & sTmp & "'"
                Case 11
                    tFields(i) = "False"
            End Select
    Next i
Consulta de actualizacin para que cambien los valores de la columna Facturar a falso
        strUpdate = "update [Facturacion Temporal] set "  'CFFacturado = " & Facturar
        strUpdate = strUpdate & SCGrid1.Key(-1, 11) & "=" & tFields(11)
        strUpdate = strUpdate & " where " & SCGrid1.Key(-1, 1) & "=" & tFields(0) & " And " & SCGrid1.Key(-1, 2) & "=" & tFields(2) & " And " & SCGrid1.Key(-1, 4) & "=" & tFields(4)
        db.Execute strUpdate
    Next j
    End If
    setGrid
    displayList
    initVariables
       
End Sub
