Newsgroup: it.comp.appl.access
Titolo: una combo da effetti speciali...

Il mio lavoro è quasi pronto e vorrei aggiungerci un chicca per renderlo ancora più accattivante.
la maschera di accesso ai dati accede a una query QRY_dati tramite una combo che mi consente di scegliere la struttura da esaminare.
i dati sono in ordine alfabetico secondo la denominazione della struttura.
 
Mi piacerebbe realizzare un " qualcosa di bello" ( pulsante o gruppo di opzioni o altro che in base alla scelta mi permetta di:
 
-1) popolare la combo in ordine alfabetico sul campo Denominaizione
-2) popolare la combo in ordine decrescente rispetto,al valore del campo costo
-3) popolare la combo da un altra query QRY_all
 
la mia,idea sarebbe, (ma ho qualche problema di codice...) un pulsante che ad ogni pressione cambia valore e "colora" una casella che dice" stai esaminando in base a......"è al tempo stesso, varia, se si può fare, l'origine dati della combo nel caso 3
 
Grazie in anticipo per ogni suggerimento o contributo, anche e sopratutto grafico.


Su AfterUpdate del controllo GruppoOpzioni usa una condizione con
SELECT CASE e ricostruisci o ridefinisci la proprietà RowSource della
Combo...
 
SELECT CASE Me!GruppoOpzioni.Value
   Case Is=1
         Me.NomeCombo.RowSource="1° Caso......"
 
   Case Is=2
         Me.NomeCombo.RowSource="2° Caso......"
 
   Case Is=3
         Me.NomeCombo.RowSource="3 Caso....."
 
End Select
 
Ciao
@Alex


grazie mille Alex,
ho capito il tuo suggerimento per quanto riguarda la terza condizione.
Invece, se nella prima e seconda condizione volessi ordinare la combo che ha la seguente origine dati:
 
SELECT [Anagrafica MIA].Pod, [Anagrafica MIA].Indirizzo_Pod, [Anagrafica MIA].Cod_Imm, [Anagrafica MIA].Destinazione_Uso, [Anagrafica MIA].Tensione, [Anagrafica MIA].Pot_Disp_KW, [Anagrafica MIA].[Costo SAP 2011], [Anagrafica MIA].[Costo SAP 2012]
FROM [Anagrafica MIA]
ORDER BY [Anagrafica MIA].Indirizzo_Pod;
 
Nella prima condizione avrei bisogno di un ordinamento crescente in base a[Anagrafica MIA].
Nella seconda condizione avrei bisogno di un ordinamento decrescente in base a[Costo SAP 2012].
 
ti ringrazio infinitamente pe rilprezioso aiuto..
 
 


Beh scrivi il PREDICATO SQL esattamente come ti serve per INTERO...
con l'ordinamento che ritieni opportuno.
Dal momento che lo cambi tutto hai tutte le flessibilità che chiedi...
 
Cosa non ti è chiaro...?
 
@Alex


Scusami l'ignoranza. Ho provato ma non riesco.
In pratica ho cercato di incollare il codice sql di sopra sulla prima condizione di scelta ma il codice diventa rosso.
ho fatto questo:
 
Private Sub Cornice104_AfterUpdate()
Select Case Me!GruppoOpzioni.Value
   Case Is = 1
Me.SceltaPOD.RowSource =  [Anagrafica MIA].Pod, [Anagrafica MIA].Indirizzo_Pod, [Anagrafica MIA].Cod_Imm, [Anagrafica MIA].Destinazione_Uso, [Anagrafica MIA].Tensione, [Anagrafica MIA].Pot_Disp_KW, [Anagrafica MIA].[Costo SAP 2011], [Anagrafica MIA].[Costo SAP 2012]
FROM [Anagrafica MIA]ORDER BY [Anagrafica MIA].Indirizzo_Pod;
 
Non capisco se è un errore di concetto o di sintassi che sbaglio e poi mi viene il dubbio...ma nella origine dati della combo devo levare questo codice giusto ?
 
grazie ancora per il prezioso aiuto.


Quello che hai incollato non ha senso...!
 
SELECT CASE e ricostruisci o ridefinisci la proprietà RowSource della
Combo...
 
SELECT CASE Me!GruppoOpzioni.Value
   Case Is=1
         Me.NomeCombo.RowSource="SELECT * FROM Tabella ..... ORDER BY
NomeCampo1"
 
   Case Is=2
         Me.NomeCombo.RowSource="SELECT * FROM Tabella ..... ORDER BY
NomeCampo2"
 
   Case Is=3
         Me.NomeCombo.RowSource="SELECT * FROM Tabella ..... ORDER BY
NomeCampo3"
 
End Select
 
@Alex

 Quello che hai incollato non ha senso...!
Dura la vita! Ehhh?!
Ciao Alex
 
 
-- 
 
ac (x=y-1)


Perfetto, ho finalmente capito....e poi a forza di provare ho anche scoperto che il desc va inserito dopo il campo dell'ordinamento e quindi mi hai fatto due favori in uno...mi ritengo debitore di un caffè...
grazie


wrote:

Durissima... ma io che "lo" duro la vinco...!
Già perchè una volta lo avevo ora lo....
 
;-)
 
Ciao Baffo
 
@Alex