Newsgroup: it.comp.appl.access
Titolo: Ricerca con filtro

Mi scuso pubblicamente con il NG intero!!!! Ho sbagliato l'altra volta ad
inserire un oggetto non corretto. Non lo ho fatto assolutamente con malizia,
e dunque spero accettiate le mie scuse. Ritornando al mi problema,
sono disperato... non riesco a impostare questa benedetta ricerca.
Allora.....
Data una casella di testo (name) e una listbox e un pulsante cerca riesco a
ritrovare la persona che mi interessa con questo codice, preso dall'esempio
"ricerca" trovato su sitocomune:
Private Sub Cerca_Click()
If Not IsNull(Me.name) Then Me.List.RowSource = "Cerca_cognome"
If Me.List.ListCount = 0 Then
strmsg = MsgBox("Nessun record trovato !", vbExclamation, "Attenzione...")
End If
End Sub
Con una queri cerca_cognome con il seguente criterio impostato al cognome:
Like ("*" & [Forms]![cerca]![name] & "*")
Fin qui tutto ok....
Adesso quello che io chiedo č questo:
se volessi fare in modo di impostare una ricerca con un campo testo (name) e
un select (credo si chiami cosě il menů a tendina) che ha impostato di
default i valori : tutti, 1, 2, 3 dove i numeri corrispondono al valore
della tabella "fascia" e tutti il valore che mi mostra tutte i nominativi di
tutte le fascie come posso fare?
Il nome della select  diciamo che č "filtro" come diamine posso fare?
Se non sono stato chiaro ditemelo.
E grazie a tutti e scusate ancora....

 ha scritto nel messaggio
news:bvk3t1$a35$1...@lacerta.tiscalinet.it...

Penso che il problema si riduca al passaggio contemporaneo di due variabili
riferite a due campi in una qry.
Ti riporto una traccia.Ti dichiari tre variabili una per il costrutto SQL e
due per i campi che ti servono per effettuate
la ricerca.Quindi assegni alle variabili il valore che ti interessa e poi
passi l'istruzione SQL direttamente da VBA alla List.
dim strSQL as String
dim intFascia as Integer
dim strRicerca as String
strRicerca = Me.Name.Value 'Name dovrebbe essere la tua casella di testo
dove effettui la ricerca
intFascia =te lo vai a caricare a seconda dell'oggetto che usi per
visualizzare le fascie cioč pulsanti di opzioni o combo
strSQL = "SELECT * FROM TuaTabella WHERE Fascia = " & intFascia & " AND
[Cerca_cognome]  = " & Chr$(34) & strRicerca & Chr$(34) & ";"
List.RowSource = strSQL
List.Requery
Se usi un gruppo di opzioni per selezionare il valore della fascia puoi fare
cosě ricordandoti di dichiarare
la variabile intFascia in testa al codice VBA della maschera per poterlo
usare sulle varie routine.
Private Sub FiltriFascia_AfterUpdate()
Select Case FiltriFascia
Case 1
intFascia = 1
Case 2
intFascia = 2
Case 3
intFascia = 3
End Select
End Sub
SunRex

 ha scritto nel messaggio
news:bvk3t1$a35$1...@lacerta.tiscalinet.it...
[CUT]
Un consiglio spassionato: studia almeno un po' Access: una persona che
chiama "select" le caselle combinate sarà moooolto difficile che riesca a
realizzare un database con Access.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:LQqTb.7807$Mt6.3...@twister2.libero.it...

Hai ragione...... dovrei studiare un pò + i database.... anche se quelli che
ho fatto fino ad ora non sono poi tanto male....
Ho usato il termine select perchè in html, di cui io mi occupo
principalmente, le caselle combinate si chiamano in questo modo... tutto
qui, non è un termine inesistente.
Salvatore

 Salvatore
Il mio consiglio spassionato riguardava la realizzazione di database con
Access e non presupponeva che tu non fossi capace, con altri linguaggi, di
sviluppare applicativi.


 ha scritto nel messaggio
news:q5sTb.8883$U4.3...@twister1.libero.it...

Ma la differenza secondo te la fa la teoria o la pratica?

 Ma la differenza secondo te la fa la teoria o la pratica?
A mio avviso un professionista dell'informatica non può pescindere né dalla
pratica né dalla teoria, a meno che si contenti di essere un praticone.


 Roberto
Sottoscrivo.
Chi non si prefigge entrambi gli obiettivi non sarà mai
completo e non non farà altro che rincorrere con pezze accrocchi
causati dalla mancanza di solide basi di Teoria.
E' lo stesso approccio che spinge molti a chiedere senza leggere un
minimo d'istruzioni sull'Help in linea................ecc.....
@Alex.