Newsgroup: it.comp.appl.access
Titolo: Ordinare casella di riepilogo

Ciao a tutti,
Ho il seguente problema:
ES. N° fattura - Data - Società, sono i dati visualizzati nella
casella di riepilogo che ha come origine dati una query.
E' possibile ordinare per data o per società in base a dei criteri
scelti con un pulsante o con gruppo di opzioni nella casella di
riepilogo?
Grazie 
Ciao Michele


è possibile ordinare tutto quello che vuoi ma ad esempio con un gruppo di
opzioni posizionato in una maschera e non nella caselle di riepilogo. per
ordinare devi fare una query che a secondo di quello che hai selezionato ti
esegue l'ordinamento oppure se ti risulta complicato 3 query diverse (poco
carino).
ciao
--------------------------------
Inviato via 
http://usenet.libero.it

...

Grazie per la risposta ma volevo evitare troppe query per fare questa
operazione, se era possibile volevo inserire all'interno dell'unica
query dove prelevo i dati un'istruzione anche in sql che mi opermetta
di fare l'ordinamento dei dati.
Grazie a risentirci
Michele


 wrote in message
803dba50.03060...@posting.google.com...

Creati dinamicamente con VBA la stringa SQL che imposterai come origine riga
della casella di riepilogo: nel far questo imposta opportunamente i campi
della proposizione ORDER BY a seconda del valore del gruppo di opzioni che
sarà contenuta nella maschera e non nella casella di riepilogo come tu
scrivi.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 scrivi.
Scusami Roberto ma il Messaggio non l'avevo Visto si la soluzione che
mi proponi era quella che ensavo io, il problema e che no so come
mettere la stringa SQL.
La stinga SQL è la seguente:
SELECT Tab_Fatture.IDFattura, Tab_Fatture.N_Fattura, Tab_Fatture.Data,
Format$(([totimponibile]+[iva]),"#,###.00",0) AS Totale,
Tab_Fatture.AliquotaIVA, ([Q_ta]*[prezzo]) AS importo,
Sum(([importo])) AS imponibile, [TotImponibile]*[AliquotaIVA] AS iva,
([imponibile]-[sconto_euro])-([imponibile]-[Sconto_euro])*[sconto_per]
AS TotImponibile, Tab_Fatture_Righe.Q_ta, Tab_Fatture_Righe.Prezzo,
Tab_Fatture.Sconto_Per, Tab_Fatture.Sconto_Euro,
Tab_Fatture.AliquotaIVA
FROM (Tab_Clienti INNER JOIN Tab_Fatture ON Tab_Clienti.IdCliente =
Tab_Fatture.IDCliente) INNER JOIN Tab_Fatture_Righe ON
Tab_Fatture.IDFattura = Tab_Fatture_Righe.IDFattura
GROUP BY Tab_Fatture.IDFattura, Tab_Fatture.N_Fattura,
Tab_Fatture.Data, Tab_Fatture.AliquotaIVA, Tab_Fatture_Righe.Q_ta,
Tab_Fatture_Righe.Prezzo, Tab_Fatture.Sconto_Per,
Tab_Fatture.Sconto_Euro, Tab_Fatture.AliquotaIVA,
Tab_Clienti.IdCliente
HAVING (((Tab_Fatture.N_Fattura)=([Tab_Fatture].[N_Fattura])) AND
((([Q_ta]*[prezzo]))>"") AND
((Tab_Clienti.IdCliente)=[Forms]![Mas_Anagrafica]![Mas_Clienti].[Form]![IdCliente]))
ORDER BY Tab_Fatture.N_Fattura;
Come posso inserirla in VBA???
Scusate ancora per la svista.
Michele

 ha scritto nel messaggio
news:803dba50.03061...@posting.google.com...

Per semplicità ipotizziamo che il codice SQL della query fosse:
SELECT IDFattura, N_Fattura, Data
FROM Tab_Fatture;
Se il nome della casella di riepilogo è Elenco.
Se il nome del gruppo opzioni è Scelta, ed esso assume il valore 1 o 2 a
seconda che si voglia ordinare la casella di riepilogo per N_Fattura o per
Data.
A fronte dell'evento su clic del pulsante di comando pigiando il quale vuoi
effettuare l'ordinamento genera il seguente codice VBA:
Dim strSQL As String
strSQL = "SELECT IDFattura, N_Fattura, Data FROM Tab_Fatture "
If Me!Scelta = 1
    strSQL = strSQL & "ORDER BY N_Fattura;"
Else
    strSQL = strSQL & "ORDER BY Data;"
End If
Me!Elenco.RowSource = strSQL
Me!Elenco.Requery


...

Soluzione perfettamente funzionante, ti ringrazio Roberto e a tutto il NG.
Michele