john_revelator
26-09-2008, 16:29
Il mio problema è il seguente: ho una serie di domande a cui è possibile dare un massimo di due risposte. Mi piacerebbe fare in modo che se l'utente prova a spuntare una terza voce gli apparisse un messaggio e che ovviamente fosse impossibilitato a fare questa operazione.
Poichè le domande sono tante ho pensato di assegnare un tag a ciascun gruppo di opzioni.
Per calcolare il numero di checkbox selezionate farei così
Sub Comando1_Click()
tot = 0
For Each ochk In Me.Controls
If ochk.Tag = "pippo" Then
If ochk.Value = -1 Then
tot = tot + 1
End If
End If
Next
MsgBox (tot)
End Sub
ma non so come gestire il problema che ho descritto.
Immagino di dover associare una routine per ogni singola checkbox ma non so come procedere. Spero possiate aiutarmi. Grazie per l'attenzione. :)
Poichè le domande sono tante ho pensato di assegnare un tag a ciascun gruppo di opzioni.
Per calcolare il numero di checkbox selezionate farei così
Sub Comando1_Click()
tot = 0
For Each ochk In Me.Controls
If ochk.Tag = "pippo" Then
If ochk.Value = -1 Then
tot = tot + 1
End If
End If
Next
MsgBox (tot)
End Sub
ma non so come gestire il problema che ho descritto.
Immagino di dover associare una routine per ogni singola checkbox ma non so come procedere. Spero possiate aiutarmi. Grazie per l'attenzione. :)