Forms

3.15 Miglioramenti nell'utilizzo del controllo OptionGroup.
  Federico Luciani, Karl Donaubauer
Utilizzando il controllo OptionGroup (Gruppo di opzioni) per l'inserimento di un dato numerico in un campo, mi sono accorto che:
1) su record nuovo, e quindi con il valore Null nel campo, i Pulsanti di opzione appaiono grigi;
2) una volta selezionata una opzione e salvato il record, non è più possibile eliminare il dato e quindi riportare il valore a Null.

Il primo problema è facilmente risolvibile impostando un valore predefinito per il campo che indichi 'campo vuoto'. Nel mio caso ho utilizzato lo zero.
Il secondo problema è stato risolto da Karl, con questa funzione:
Public Function f_OGToZero(CB As Byte)
   If Screen.ActiveControl = CB Then Screen.ActiveControl = 0
End Function
Per utilizzarla basta inserire, nell'evento 'Su pulsante mouse giù' di ogni Pulsante di opzione, la chiamata:
=f_OGToZero(n)
dove n è il 'Valore opzione' del pulsante.

In questo modo ogni volta che si clicca sul pulsante già selezionato, il valore nel campo viene reimpostato a zero, cioè 'campo vuoto'.
La soluzione indicata funziona anche quando nell'OptionGroup si utilizzano le Caselle di controllo o gli Interruttori.

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.