scelta multipla

[LuckyLuke]

Salve a tutti.
Ho un form che deve contenere una serie di checkbox ognuna delle quali è
collegata ad un mese dell'anno; devo fare in modo che si possa selezionare
ogni checkbox indipendentemente dalle altre in modo da memorizzare il mese
corrispondente in una casella di testo.
In altre parole:
se spunto gennaio, viene scritto nella casella di testo gennaio; se spunto
gennaio, aprile e maggio, nella casella di testo viene scritto gennaio
aprile e maggio e così via.
Come posso realizzare questo senza scrivere un mare di codice di
concatenamento delle strighe?
Ho provato con il gruppo di opzioni che funziona in maniera ottima ma solo
per selezionare una checkbox alla volta; quindi dovrei fare la stessa cosa
ma per scelte multiple

Grazie a tutti
Luca

[AleC]

Post by LuckyLuke
Salve a tutti.
Ho un form che deve contenere una serie di checkbox ognuna delle quali è
collegata ad un mese dell'anno; devo fare in modo che si possa selezionare
ogni checkbox indipendentemente dalle altre in modo da memorizzare il mese
corrispondente in una casella di testo.
se spunto gennaio, viene scritto nella casella di testo gennaio; se spunto
gennaio, aprile e maggio, nella casella di testo viene scritto gennaio
aprile e maggio e così via.
Come posso realizzare questo senza scrivere un mare di codice di
concatenamento delle strighe?
Ho provato con il gruppo di opzioni che funziona in maniera ottima ma solo
per selezionare una checkbox alla volta; quindi dovrei fare la stessa cosa
ma per scelte multiple
Grazie a tutti
Luca

Crei una Sub dove fai la concatenazione e la richiami da ogni evento
DopoAggiornamento di ognuna delle checkbox.

Sub ValorizzaTextBoxMesi()
dim stringa as string

if me.chkGennaio then string = "Gennaio"
if me.chkFebbraio then string = iif(isnull(string), "Febbraio", ",
Febbraio")
if me.chkMarzo then string = iif(isnull(string), "Marzo", ", Marzo")
....
ecc
me.StringaMesi = string
end sub

forse si può fare anche con *meno* codice ma con il copia e incolla
della prima riga per undici volte cambi poi solo il nome dei mesi

AleC

[MA]

Post by AleC

Post by LuckyLuke
Salve a tutti.
Ho un form che deve contenere una serie di checkbox ognuna delle
quali è collegata ad un mese dell'anno; devo fare in modo che si
possa selezionare ogni checkbox indipendentemente dalle altre in
modo da memorizzare il mese corrispondente in una casella di testo.
se spunto gennaio, viene scritto nella casella di testo gennaio; se
spunto gennaio, aprile e maggio, nella casella di testo viene
scritto gennaio aprile e maggio e così via.
Come posso realizzare questo senza scrivere un mare di codice di
concatenamento delle strighe?
Ho provato con il gruppo di opzioni che funziona in maniera ottima
ma solo per selezionare una checkbox alla volta; quindi dovrei fare
la stessa cosa ma per scelte multiple
Grazie a tutti
Luca

Crei una Sub dove fai la concatenazione e la richiami da ogni evento
DopoAggiornamento di ognuna delle checkbox.
Sub ValorizzaTextBoxMesi()
dim stringa as string
if me.chkGennaio then string = "Gennaio"
if me.chkFebbraio then string = iif(isnull(string), "Febbraio", ",
Febbraio")
if me.chkMarzo then string = iif(isnull(string), "Marzo", ", Marzo")
....
ecc
me.StringaMesi = string
end sub
forse si può fare anche con *meno* codice ma con il copia e incolla
della prima riga per undici volte cambi poi solo il nome dei mesi
AleC

Private sub chkGennaio_Afterupdate()
Seleziona 1
end sub


sub Seleziona(i as integer)
dim ctl as control
dim strSel as string

strsel = strsel & ", " & choose(i, "Gennaio", "febbraio", "marzo")
end sub

se invece vuoi permettere anche la deselezione allora devi ciclare ogni volta i controlli