A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Access » Database Design
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

[Access] Ordinamento Crescente Tabelle in VBA



 
 
Thread Tools Display Modes
  #1  
Old September 15th, 2007, 01:58 PM posted to microsoft.public.access.tablesdbdesign
Serafino Sosi
external usenet poster
 
Posts: 1
Default [Access] Ordinamento Crescente Tabelle in VBA

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...


 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 12:54 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.