Newsgroup: it.comp.appl.access
Titolo: report - oggetti grafici collegati a valore di un campo

ciao a tutti, dovendo realizzare una maschera contenente una griglia, dove
ciascun settore (2 ascisse che si intersecano con 2 ordinate) puo contenere
alternativamente 2 simboli o risultare vuoto, ho fatto come segue:
1. nella tabella corrispondente ho creato un campo per ciascun settori (a11,
a12, a13, a14, b11, b12,...)
2. nella maschera, su click dell'etichetta a_11:
Private Sub a_11_Click()
Dim a As TextBox
Set a = Me!a11
If a = 0 Then
    a = 1
    Me!a11adx.Visible = True
    Me!a11adxM.Visible = False
ElseIf a = 1 Then
    a = 2
    Me!a11adx.Visible = False
    Me!a11adxM.Visible = True
ElseIf a = 2 Then
    a = 0
    Me!a11adx.Visible = False
    Me!a11adxM.Visible = False
End If
End Sub
in questo modo se clicco la prima volta sull'etichetta trasparente a_11
viene mostrata l'immagine a11adx, se clicco una seconda volta viene mostrata
l'immagine a11adxM, se clicco una terza volta vengono nascoste entrambe le
immagini. il tutto funziona a dovere.
ora mi si pone il problema di rendere la cosa nel report, ma non ho idea di
come procedere..
suggerimenti?
grazie
em.an

 ha scritto nel messaggio
news:%O5ye.1911$%7.3...@twister2.libero.it...

Ciao ragazzi, Ho risolto inserendo il codice seguente nel report, associato
all'evento "su apertura":
Private Sub Report_Open(Cancel As Integer)
Dim a11 As TextBox, a12 As TextBox ', ...
Set a11 = Forms!mioform!a11
Set a12 = Forms!mioform!a12
Set a13 = Forms!mioform!a13
Set a14 = Forms!mioform!a14
If a11 = 0 Then
    Me!a1adx.Visible = False
    Me!a1adxM.Visible = False
ElseIf a11 = 1 Then
    Me!a1adx.Visible = True
    Me!a1adxM.Visible = False
ElseIf a11 = 2 Then
    Me!a1adx.Visible = False
    Me!a1adxM.Visible = True
End If
...
Temendo l'appesantimento del database, e dovendo usare simboli grafici quali
cerchi, rettangoli e simili, stavo pensando all'opportunità di usare
caratteri "speciali" del font in uso, al posto dei bmp..
aprendo la "mappa caratteri" ci sono tutti quelli che mi servono, ma come
indicare il codice corrispondente al carattere desiderato (Unicode) nel
codice VB? ad esempio il codice per il cerchio è U+25CF, come fare?
grazie infinite per l'aiuto!
em.an

em.an ha scritto:

Quello dei caratteri speciali è un argomento interessante ma una cosa mi 
incuriosisce, perché hai creato degli oggetti textbox?
Se volevi assegnare a delle caselle di testo su un report il valore 
contenuto in altre caselle di testo ma su una form potevi fare direttamente:
me!a14 = Forms!mioform!a14
Sempre che "a14" sia una casella di testo...
Ciao.
-- 
Sergio MAZZA


ciao sergio
l'uso di oggetti textbox erano frutto di una prova, in realtà uso dei
bottoni: il fine è quello di inserire, tramite form, dei caratteri nei campi
di una tabella senza farli digitare all'utente, e che questi appaiano poi
nel report. ho visto che è possibile fare in modo che alla pressione del
tasto del mouse su di un controllo il valore del campo cambi, ma è "brutto"
vedere il carattere
selezionato col cursore che lampeggia, e quindi ho optato per dei bottoni.
per quanto riguarda il problema da mi rimane da risolvere credo sia meglio
postare 1 nuovo messaggio , più attinente ai caratteri unicode. ciao e
grazie

 grazie
Di nulla...
Ciao.
-- 
Sergio MAZZA