Newsgroup: it.comp.appl.access
Titolo: Caselle di controlo

Innanzitutto saluti a tutto il NG
Ho postato qs messaggio un paio di giorni fa, ma non ho avuto nessuna
risposta...
fatemi almeno sapere se sto tentando di fare una cosa impossibile...
please?!?!
sono alla mia prima realizzazione di db e di lavoro faccio tutt'altro...
Per un più semplice inserimento dei dati provenienti da un questionario ho
creato una maschera molto simile al formato cartaceo.
In un caso, in presenza di molteplici possibili risposte, non ho utilizzato
sottomaschere ma una serie di caselle di controllo.
Ora però dovendo creare un report da stampare in cui ho poco spazio non
posso riportare la serie di caselle di controllo come nella maschera.
Mi potreste indicare se è possibile far comparire nel report solo i valori
impostati a sì e assegnare ad ogni sì un testo specifico?
Ho provato a leggere sia la guida, che un libro, che 500 Vs messaggi, che il
sito comune prima di  chiedere aiuto ma non trovo una soluzione.... mi
potreste aiutare???
Grazie mille in anticipo
Sandro

 impostati a sì e assegnare ad ogni sì un testo specifico?
Dunque, potresti inserire tutte le caselle di testo sovrapposte e nascoste,
poi, su formattazione della sezione che le contiene, potresti fare un
controllo se sono vistate (= True) e, in questo caso, renderle visibili e
posizionarle opportunamente nel report sfruttando le proprietà Sinistra e Da
margine superiore.
Qualcosa del tipo:
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
  Dim x As Long
  If Forms![TuaForm]![CasellaControllo3] = True Then
    Me.CasellaControllo3.Visible = True
    Me.CasellaControllo3.left = 567 '1 cm
    Me.CasellaControllo3.top = 567
    Me.EtichCasellaControllo3.Visible = True
    Me.EtichCasellaControllo3.left = 650
    Me.EtichCasellaControllo3.top = 567
    x = x + 1
  End If
  If Forms![TuaForm]![CasellaControllo4] = True Then
    Me.CasellaControllo4.Visible = True
    Me.CasellaControllo4.left = 567
    Me.CasellaControllo4.top = 567 + 200 * x
    Me.EtichCasellaControllo4.Visible = True
    Me.EtichCasellaControllo4.left = 650
    Me.EtichCasellaControllo4.top = 567 + 200 * x
    x = x + 1
  End If
  If Forms![TuaForm]![CasellaControllo5] = True Then
    Me.CasellaControllo5.Visible = True
    Me.CasellaControllo5.left = 567
    Me.CasellaControllo5.top = 567 + 200 * x
    Me.EtichCasellaControllo5.Visible = True
    Me.EtichCasellaControllo5.left = 650
    Me.EtichCasellaControllo5.top = 567 + 200 * x
    x = x + 1
  End If
ecc. ecc.
End Sub
Cosa intendi x assegnare un testo specifico?
a) mettere in un'unica casella di testo vari testi che si sommano?
b) inserire un testo vicino alla casella di controllo relativa?
Nel caso a) inserisci una casella di testo nel report e in ogni If ... End
If inserisci una linea in cui sommi i testi desiderati, tipo:
    Me.CaselladiTesto1 = Me.CaselladiTesto1 & "il testo specifico"
Nel caso b) sfrutta l'etichetta della casella di controllo x inserirvi il
testo che desideri:
  Me.EtichCasellaControllo3.Text = "il tuo testo"
Buon lavoro.  :-))
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

Grazie per le indicazioni, ci provo subito...
Sandro