contare le checkbox



  • contare le checkbox
    di skiro (utente non iscritto) data: 09/03/2016 14:59:27

    buongiorno a tutti ho la necessità di contare solo le checkbox presenti in una form e non tutti gli oggetti presenti, cosa che potrei risolvere con la seguente stringa:

    grazie a tutti
    a presto
     
    NumOle = Me.Controls.Count



  • di alfrimpa data: 09/03/2016 15:02:31

    Ciao Skiro

    Occorrerebbe vedere il tuo file per poter calibrare meglio il suggerimento; in ogni caso vedi il codice qui sotto e prova ad adattarlo alle tue esigenze.

    Alfredo 
     
    Private Sub CommandButton1_Click()
    Dim numcas As Integer
    Dim ctrl As Control
    numcas = 0
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "CheckBox" Then
            numcas = numcas + 1
        End If
    Next ctrl
    MsgBox numcas
    End Sub
    






  • di skiro (utente non iscritto) data: 09/03/2016 15:10:25

    funziona alla perfezione.
    grazie mille!
    saluti