Marcar todos los CheckBox en un Msflexgrid - VB-MUNDO

data_uy · #1 (**permalink**) 08-03-2007, 19:11:14

Que tal gente

Tengo un codigo donde voy cambiando de a uno los chekbox pagos, pero la verdad

que habeces son todos y necesito una funcion donde me los cambie a todos.

Si alguien me puede ayudar, muchas gracias

Esteban

J.M.Movilla · #2 (**permalink**) 08-03-2007, 20:36:07

Yo uso un par de botones para "Marcar todos" (CmdMarc) y "Desmarcar todos" (CmdDesm)

Te paso el código, aunque tú deberás adaptarlo a tus variables y a tus controles...

Código:

Private Sub CmdMarc_Click()
    With rsClie
        If .State Then .Update: .Close
        dbConex.Execute "Update Cliente Set Marca = True"
        .Open "Select * From Cliente Order by Nombre", dbConex, adOpenStatic, adLockOptimistic
    End With
    Set DGClie.DataSource = rsClie
    DGClie.Refresh
End Sub

Private Sub CmdDesm_Click()
    With rsClie
        If .State Then .Update: .Close
        dbConex.Execute "Update Cliente Set Marca = False"
        .Open "Select * From Cliente Order by Nombre", dbConex, adOpenStatic, adLockOptimistic
    End With
    Set DGClie.DataSource = rsClie
    DGClie.Refresh
End Sub

Por supuesto, Marca es el campo que presento como CheckBox.