Re: scelta multipla

AleC ha scritto:
>On 9 Ott, 17:48, "LuckyLuke" <m...@forse . fr > wrote:
>> Salve a tutti.
>> Ho un form che deve contenere una serie di checkbox ognuna delle quali =
>=E8
>> collegata ad un mese dell'anno; devo fare in modo che si possa selezionar=
>e
>> ogni checkbox indipendentemente dalle altre in modo da memorizzare il mes=
>e
>> corrispondente in una casella di testo.
>> In altre parole:
>> se spunto gennaio, viene scritto nella casella di testo gennaio; se spunt=
>o
>> gennaio, aprile e maggio, nella casella di testo viene scritto gennaio
>> aprile e maggio e cos=EC 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 sol=
>o
>> per selezionare una checkbox alla volta; quindi dovrei fare la stessa cos=
>a
>> 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 =3D "Gennaio"
>if me.chkFebbraio then string =3D iif(isnull(string), "Febbraio", ",
>Febbraio")
>if me.chkMarzo then string =3D iif(isnull(string), "Marzo", ", Marzo")
>....
>ecc
>me.StringaMesi =3D string
>end sub
>
>forse si pu=F2 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
>
>
>
Potresti usare un bottone dove implementi un ciclo x 'leggere' tutte le cekbox.....una cosa del tipo

dim C as control

for each C in me.form
if c.contoltype=acCheckBox AND c.value = true then
NomeMese=NomeMese & ";" & c.Name
end if
next

ovviamente bisogna manipolarla un po'....è solo un'idea.....

--
Questo articolo e` stato inviato dal sito web http://www.nonsolonews.it