caselle ricerca

[pinokkietto]

Salve a tutti, avrei un problemino (grande per me) da porvi, spero di spiegarmi bene e che qualcuno trovi la soluzione...

si tratta di una ricerca su di un unica tabella, io ho trovato questo modo per farla e funziona alla perfezione, ma vorrei inserire almeno altre 3 caselle di ricerca, tutte slegate dalle altre, cioè Se scrivo qualcosa in txtricerca e in txtricerca1 deve filtrare entrambi i valori, così come per le txtricerca2 e txtricerca3 .....vorrei che ognuna delle txtricerca, controlli l'altra per ottenere un filtro multiplo....anche se vuote
credete sia possibile?
qui sotto il codice che uso per una sola txtricerca.
grazie....

Private Sub txtRicerca_Change()
Dim strR As String
Dim strSQL As String
strR = Me!txtRicerca.Text
If Not IsNull(Me!txtRicerca.Text) Then
strSQL = "SELECT codice, descrizione, cliente , qta,data " & _
"FROM [totale mov] " & _
"where (Codice Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or descrizione Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or data Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or cliente Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or qta Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & ");"



Debug.Print strSQL
Me!Lista.RowSource = strSQL
Me!Lista.Requery
Me!txtRicerca = strR
Me!txtRicerca.SetFocus
Me!txtRicerca.SelStart = 255

End If

End Sub

[Geremia]

Post by pinokkietto
Salve a tutti, avrei un problemino (grande per me) da porvi, spero di spiegarmi bene e che qualcuno trovi la soluzione...
si tratta di una ricerca su di un unica tabella, io ho trovato questo modo per farla e funziona alla perfezione, ma vorrei inserire almeno altre 3 caselle di ricerca, tutte slegate dalle altre, cioè Se scrivo qualcosa in txtricerca e in txtricerca1 deve filtrare entrambi i valori, così come per le txtricerca2 e txtricerca3 .....vorrei che ognuna delle txtricerca, controlli l'altra per ottenere un filtro multiplo....anche se vuote
credete sia possibile?
qui sotto il codice che uso per una sola txtricerca.
grazie....

puoi unire il risultato delle tre query indipendenti , ad esempio:

(SELECT nome, stelle, citta, nazione FROM hotel_italia WHERE ...qui usi
latxtricerca..)
UNION
(SELECT name AS nome, stars AS stelle, city AS citta, country AS nazione
FROM hotel_italia where...qui usi latxtricerca1...)
(SELECT nome, stelle, citta, nazione FROM hotel_italia WHERE .....)
UNION
(SELECT nome, stelle, citta, nazione FROM hotel_italia WHERE ...qui usi
latxtricerca2....)
ORDER BY stelle DESC, nome ASC;

[David Kietto]

Post by pinokkietto
Salve a tutti, avrei un problemino (grande per me) da porvi, spero di spiegarmi bene e che qualcuno trovi la soluzione...
si tratta di una ricerca su di un unica tabella, io ho trovato questo modo per farla e funziona alla perfezione, ma vorrei inserire almeno altre 3 caselle di ricerca, tutte slegate dalle altre, cioè Se scrivo qualcosa in txtricerca e in txtricerca1 deve filtrare entrambi i valori, così come per le txtricerca2 e txtricerca3 .....vorrei che ognuna delle txtricerca, controlli l'altra per ottenere un filtro multiplo....anche se vuote
credete sia possibile?
qui sotto il codice che uso per una sola txtricerca.
grazie....
Private Sub txtRicerca_Change()
Dim strR As String
Dim strSQL As String
strR = Me!txtRicerca.Text
If Not IsNull(Me!txtRicerca.Text) Then
strSQL = "SELECT codice, descrizione, cliente , qta,data " & _
"FROM [totale mov] " & _
"where (Codice Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or descrizione Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or data Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or cliente Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or qta Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & ");"
Debug.Print strSQL
Me!Lista.RowSource = strSQL
Me!Lista.Requery
Me!txtRicerca = strR
Me!txtRicerca.SetFocus
Me!txtRicerca.SelStart = 255
End If
End Sub

Geremia, grazie e scusa per il ritardo...
ho provato, ma non ci ho capito un gran che....
colpa mia....
grazie

[Geremia]

Post by pinokkietto
strSQL = "SELECT codice, descrizione, cliente , qta,data " & _
"FROM [totale mov] " & _
"where (Codice Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or descrizione Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or data Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or cliente Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or qta Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & ");"

avri tre caselle di testo di ricerca, per cui tre parametri di ricerca:

strR = Me!txtRicerca.Text
strR1 = Me!txtRicerca1.Text
strR2 = Me!txtRicerca2.Text

e l'istruzione sql diventa così :





strSQL = "(SELECT codice, descrizione, cliente , qta,data " & _
"FROM [totale mov] " & "where (Codice Like " & Chr$(34) & "*" & strR
&...etc...)
UNION
(SELECT codice, descrizione, cliente , qta,data " & "FROM [totale mov] "
& "where (Codice Like " & Chr$(34) & "*" & strR1 &...etc...)
UNION
(SELECT codice, descrizione, cliente , qta,data " & "FROM [totale mov] "
& "where (Codice Like " & Chr$(34) & "*" & strR2 &...etc...);"

[Bruno Campanini]

Post by pinokkietto
Salve a tutti, avrei un problemino (grande per me) da porvi, spero di
spiegarmi bene e che qualcuno trovi la soluzione...
si tratta di una ricerca su di un unica tabella, io ho trovato questo modo
per farla e funziona alla perfezione, ma vorrei inserire almeno altre 3
caselle di ricerca, tutte slegate dalle altre, cioè Se scrivo qualcosa in
txtricerca e in txtricerca1 deve filtrare entrambi i valori, così come per le
txtricerca2 e txtricerca3 .....vorrei che ognuna delle txtricerca, controlli
l'altra per ottenere un filtro multiplo....anche se vuote credete sia
possibile? qui sotto il codice che uso per una sola txtricerca. grazie....
Private Sub txtRicerca_Change()
Dim strR As String
Dim strSQL As String
strR = Me!txtRicerca.Text
If Not IsNull(Me!txtRicerca.Text) Then
strSQL = "SELECT codice, descrizione, cliente , qta,data " & _
"FROM [totale mov] " & _
"where (Codice Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or descrizione Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or data Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or cliente Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & " or qta Like " & Chr$(34) & "*" & _
strR & "*" & Chr$(34) & ");"
Debug.Print strSQL
Me!Lista.RowSource = strSQL
Me!Lista.Requery
Me!txtRicerca = strR
Me!txtRicerca.SetFocus
Me!txtRicerca.SelStart = 255
End If
End Sub

Non ho capito il tuo problema.
Il risultato della query che già hai con strR = txtRicerca,
unitamente ai risultati di altre tre query identiche in tutto
salvo che per strV che sarà rispettivamente txtRicerca1,
txtRicerca2, txtRicerca3, è esattamente quanto vorresti
ottenere dalla modifica del tuo codice?

Bruno

[David]

grazie a tutti, per gli aiuti..