Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Che io sappia fino alla versione 2003, con la quale lavoro, non è possibile. Però si può ottenere graficamente diciamo. L’escamotage è quello di usare o un paio di immagini personalizzate oppure anche i caratteri presenti nel font Wingdings, precisamente quelli raggiungibili con la sequenza ALT+0111 e ALT+0254.
Nel caso del font ti crei due etichette con i caratteri come sopra e le chiami ad esempio “chkOFF” per lo stato False e “chkON” per lo stato True. Una tabella nella quale esista un campo “Si/No” chiamato esempio “Checkbox” ed associ questa tabella, che conterrà anche gli altri campi, alla tua maschera.
Sovrapponi le due etichette in modo che combacino perfettamente, imposti la proprietà “Visibile” = No di chkON ed applichi il seguente codice nell’evento “Su clic” di entrambi:
'commuta lo stato di visibilità dell'etichetta Me.chkON.Visible = Not Me.chkON.Visible 'controlla lo stato dell'etichetta chkON ed imposta il valore If Me.chkON.Visible = True Then Me.Checkbox = True Else Me.Checkbox = False End If
Applichi inoltre sull’evento “Su corrente” della tua maschera il codice:
'controlla il valore della checkbox ed imposta la visibilità di chkON If Me.Checkbox.Value = True Then Me.chkON.Visible = True Else Me.chkON.Visible = False End If
Ed il gioco è fatto. Un po’ laborioso ma funziona. Si potrebbe automatizzare il tutto con una bella Function ma il concetto non cambia.
Ciao, Massimo.