[Access] Ordinamento Crescente Tabelle in VBA

S

Serafino Sosi

Salve ragazzi/e mi chiamo Serafino e sono nuovo del forum.
Segni particolari: sono disperato...

Sono alle prime armi con questo linguaggio e non trovo soluzione. Mi hanno
dato un esercizio e non riesco a risolvere una banalità.
Ho creato un database di prodotti suddivisi per categorie in diverse
tabelle. Tramite un form con menù a tendina scelgo la tabella e chiedo se si
vuole spendere poco oppure scegliere materiali di qualità; a questo punto
partendo da un prezzo massimo o da un minimo, a seconda della scelta, la
tabella viene correttamente filtrata con i prodotti disponibili.
Ora però devo ottenere un ordinamento crescente, nella stessa tabella,
riguardo il campo "Prezzo". Premetto che non posso generare query o creare
form "devo esclusivamente lavorare sulla tabella ottenuta".

Intanto questo è il codice:

codice:
Private Sub CasellaCombinata88_BeforeUpdate(Cancel As Integer)

'Dichiaro le variabili Tabella e Domanda come stringhe cioè
testo'

Dim Tabella As String
Dim Domanda As String


'Assegno il valore (CasellaCombinata88) alla variabile
Tabella così che'
'la variabile assumerà il valore scelto nel menù a tendina'

Tabella = CasellaCombinata88

'Descrivo un'etichetta di riferimento (Err_Torna) che mi
servirà'
'come controllo per il comando If...Then'

'Eseguo la Domanda di controllo a risposta variabile (si/no)'
'aprendo una finestra di input.'
'Si o No saranno le uniche risposte ammesse'

Err_Torna: Domanda = InputBox(prompt:="vuoi spendere poco? (si/no)")

'Apro comunque la tabella scelta per visualizzare
inizialmente tutti i dati'

DoCmd.OpenTable Tabella, acViewNormal, acEdit

'Inizio il ciclo If...Then...Else nel quale applico il filtro
sul Prezzo'
'Se rispondo si mi chiederà di inserire un prezzo massimo
oltre il quale'
'non verranno più visualizzati record. Se rispondo no mi
chiederà di'
'inserire un prezzo minimo al di sotto del quale non verranno
più
'visualizzati record.'

If Domanda = "si" Then
DoCmd.ApplyFilter "", "[Prezzo]<=[inserisci prezzo
massimo]"
ElseIf Domanda = "no" Then
DoCmd.ApplyFilter "", "[Prezzo]>=[inserisci prezzo
minimo]"
Else: GoTo Err_Torna
End If

End Sub


Che devo fare adesso?
In altri forum mi hanno detto di lavorare su query e su form ma non posso
perché l'esercizio non lo richiede.

Grazie ancora per l'eventuale aiuto...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top