Newsgroup: it.comp.appl.access
Titolo: report con visio...

ciao
dal momento che ho seri problemi a creare un report che soddisfi le mie
richieste riguardo la formattazione condizionale e l'ordinamento, vorrei
sapere se
è possibile (ed eventualmente quanto complicato) ottenere un organigramma
con Visio  da un report di Access.
grazie

"Luciano"

Quali sono questi insormontabili problemi a livello di formatt. condizionale
e ordinamento?

 ha scritto nel messaggio
news:nXcKc.57162$c_1.1...@twister1.libero.it...

ciao,
mi  sono preso un poì di tempo perchè non è facile spiegare: intanto il
report è effettivamente un organigramma, e cioè restituisce record di una
query che indica la posizione nella Struttura di ogni Residente. La query
restituisce valori dalle tabella Residenti e dalla tabella Settori&Ruoli e
il seguente è il codice:
********
SELECT Residenti.Nome, Residenti.Cognome, [Settori&Ruoli].Incarico,
[Settori&Ruoli].Settori
FROM Residenti INNER JOIN [Settori&Ruoli] ON Residenti.IDUtente =
[Settori&Ruoli].IDUtente
WHERE ((([Settori&Ruoli].DataTermine) Is Null) AND ((Residenti.Archivia)=0))
ORDER BY
Switch([Incarico]="AiutoCoordinatore",1,[Incarico]="Responsabile",2,[Incaric
o]="Lavorante",3,[Incarico]="Declassato/a",4,[Incarico]="Fuori
Struttura",5);
********
Il report, essendo in effetti un organigramma, l'ho creato in base ai
Settori, i quali hanno, ognuno, un AiutoCoordinatore, un Responsabile e uno
o più Lavoranti.
Quindi ho pensato di dare un ordinamento personalizzato, in base
all'omogeneità del settori, e non alfabetico, e di contraddistinguere i
settori con uno sfondo che sia comune nelle attinenze. Mi spiego: Il settore
Punto e il settore Segreteria sarebbrero, nell'organigramma, i primi della
lista con una colorazione identica perchè fanno parte della stessa area, e
così per esempio Culturale e Animazione ecc..
1° problema: non riesco a dare un'ordinamento personalizzato, (la scelta è
crescente o decrescente e così mi mescola i settori)
2° con il codice VBA qui sotto dovrebbe restituirmi colori e sfondi come
indicati ed invece (non so perchè) non lo rispetta quasi mai, nel senso che
di questi 18 ne azzeccherà 2 o 3, il resto mi da, che ne so, il verde al
posto del rosso, ma anche il nero al posto del rosso, insomma fa una casino.
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
Select Case Me!Settori.Value
    Case "Punto"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbRed
    Case "Segreteria"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbRed
    Case "Medico Legale"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbRed
    Case "Culturale"
        Me!Settori.ForeColor = vbBlack
        Me!Settori.BackColor = vbYellow
    Case "Animazione"
        Me!Settori.ForeColor = vbBlack
        Me!Settori.BackColor = vbYellow
    Case "Cucina"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbBlack
    Case "Economato"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbBlack
    Case "Utensileria"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbGreen
    Case "Manutenzione"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbGreen
    Case "Orto"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbGreen
    Case "Giardino"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbGreen
    Case "Delta"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbRed
     Case "Fuori Struttura"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbRed
    Case "Nessun Settore"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbRed
    Case "Pulizie"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbBlue
    Case "Lavanderia"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbBlue
    Case "Tutti i Settori"
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbBlack
    Case Else
        Me!Settori.ForeColor = vbWhite
        Me!Settori.BackColor = vbBlue
End Select
End Sub
************
ciao

"Luciano>
(megaCut)
Beh, adesso capisco perchč nessuno ha risposto :-)
La questione č troppo complessa: francamente si capirebbe solo con l'.mdb
davanti.
A meno che ... non puoi semplificare con un esempio pratico con valori
inventati?
Pixel