contar checks seleccionados...

[emilio21]

tengo un formulario con una columna de checks en arrays. Y quiero que cuando el usuario seleccione los checks de su preferencia me indique en un label cuantos ha seleccionado.

saludos!!!

[David]

Iniciado por emilio21

tengo un formulario con una columna de checks en arrays. Y quiero que cuando el usuario seleccione los checks de su preferencia me indique en un label cuantos ha seleccionado.

saludos!!!

Código:

Dim Checks As Integer
Dim Count As Integer
For Checks = 0 To Check1.Count - 1
    If Check1(Checks).Value = 1 Then
        Count = Count + 1
    End If
Next Checks
Label1.Caption = Count

Así... si no es Check1 cambia por el nombre del Check...

[emilio21]

ok voy a probarlo

[David]

Iniciado por emilio21

ok voy a probarlo

Bien... Avisame si te salió bien...

[emilio21]

todo me funciono.... me salio bien

[emilio21]

todos los captions de los checks seleccionados los he enviado a una base de datos access, entonces yo quiero hacer que el usuario quiera modificar lo que él haya seleccionado, haciendo lectura desde la bd y marcando todos los checks que el seleccionó. Y enviar lo modificado a la bd.

saludos!!!

[David]

Iniciado por emilio21

todos los captions de los checks seleccionados los he enviado a una base de datos access, entonces yo quiero hacer que el usuario quiera modificar lo que él haya seleccionado, haciendo lectura desde la bd y marcando todos los checks que el seleccionó. Y enviar lo modificado a la bd.

saludos!!!

Pues entonces lees los Datos de la BD y le seteas la propiedad Value:

Código:

 
Check1(0).Value = 1

[vbx3m]

Esta es otra forma de hacerlo:

Código:

Dim check As Object
c = 0
For Each check In Controls
    If TypeOf check Is CheckBox Then
        If check.Value = 1 Then c = c + 1
     End If
Next
MsgBox "Seleccionados " & c

[David]

Iniciado por vbx3m

Esta es otra forma de hacerlo:

Código:

Dim check As Object
c = 0
For Each check In Controls
    If TypeOf check Is CheckBox Then
        If check.Value = 1 Then c = c + 1
     End If
Next
MsgBox "Seleccionados " & c

Sí, pero no es q' quiera seleccionar todos los Checks sino solo los q' están en la BD si bien entendí...

[emilio21]

no encuentro que hacer...

los datos en la base de datos están guardados de la siguiente manera: si seleccionó los checks A1, B2, C3, B4 entonces a la base de datos va así:

A1-B2-C3-B4

con un - por el medio.

Entonces yo quiero que los checks con captions A1, B2, C3, B4, se seleccionen cuando el usuario quiera modificar los datos que seleccionó.

Como hago para leer los datos que estan unidos con -?

[David]

Iniciado por emilio21

no encuentro que hacer...

los datos en la base de datos están guardados de la siguiente manera: si seleccionó los checks A1, B2, C3, B4 entonces a la base de datos va así:

A1-B2-C3-B4

con un - por el medio.

Entonces yo quiero que los checks con captions A1, B2, C3, B4, se seleccionen cuando el usuario quiera modificar los datos que seleccionó.

Como hago para leer los datos que estan unidos con -?

Aquí el Código:

Código:

 
Function GetIndex(ByVal Cadena As String, ByVal Separador As String, ByVal Index As Integer) As String
Dim UlParada As Integer
Dim Buscar As Integer
Dim IIndex As Integer
If Right(Cadena, 1) <> Separador Then Cadena = Cadena & Separador
UlParada = 1
Do
    Buscar = InStr(UlParada, Cadena, Separador)
    If Buscar = 0 Then Exit Do
    If IIndex = Index Then
        GetIndex = Mid$(Cadena, UlParada, Buscar - UlParada)
        Exit Do
    End If
    IIndex = IIndex + 1
    UlParada = Buscar + 1
Loop
End Function
Sub SelectChecks(ByVal StrChecks As String)
Dim Index As String
Dim Count As Integer
Do
    Index = GetIndex(StrChecks, "-", Count)
    If Index = "" Then Exit Sub
    Count = Count + 1
    FindCheckByCaption(Index).Value = 1
Loop
End Sub
Function FindCheckByCaption(ByVal iCaption As String) As CheckBox
Dim iControls As Integer
For iControls = 0 To Me.Controls.Count - 1
    If UCase(Me.Controls(iControls).Caption) = UCase(iCaption) Then
        If TypeOf Me.Controls(iControls) Is CheckBox Then
            Set FindCheckByCaption = Me.Controls(iControls)
            Exit Function
        End If
    End If
Next iControls
End Function
Private Sub Command1_Click()
SelectChecks "check1-check3"
End Sub

[emilio21]

hermano lo felicito, me ha sacado de un gran vacío.... Es Ud. un tremendo programador... gracias de verdad... si tengo otra dudita la escribire n este mismo post.

GRACIAS!!!! MUCHAS GRACIAS!!!!

[David]

Iniciado por emilio21

hermano lo felicito, me ha sacado de un gran vacío.... Es Ud. un tremendo programador... gracias de verdad... si tengo otra dudita la escribire n este mismo post.

GRACIAS!!!! MUCHAS GRACIAS!!!!

Puede q' te haya "sacado de un gran vacío", pero lo de ser un tremendo programador no lo soy, por cierto hay muchísimos que son mejores, por cierto, se me ha olvidado verificar si el q' tiene el Caption especificado es un CheckBox (ahora lo corregí), pero de todos modos De Nada -)...

[emilio21]

lo que se me presenta es esto... yo quiero administrar lo que selecciona el usuario... ejemplo:

como explique anteriormente en la base queda guardado los datos asi; por ej: A1-A2-B4.... separados por un guion... entonces yo quiero saer como hago para contabilizar cuantos usuarios han seleccionado A1-A2 y todas las opciones que presento a traves de los checks. Ademàs hacer que me indique q A1 la seleccionaron 25 usuarios y asi con todas las opciones....

gracias!!!

[jc_moty]

Lo que podes hacer es usar la funcion COUNT dentro de un SQL:

Código:

SELECT COUNT(campo) FROM tabla WHERE campo='A1%'

Espero te sirva

[emilio21]

tengo en la tabla un campo cuyos datos por registro estan guardados asi:

A1-B2-A3-D4-E5.....

quiero que me haga un conteo de cuantos registros tienen A1, cuantos tienen D4 y asi con todos...

gracias!!!

creo que me explique mejor. Con el COUNT no lo pude hacer.