Newsgroup: it.comp.appl.access
Titolo: Cercare per descrizione

Buona sera
 
Volevo provare a fare questo :
 
Ho una casella Riepilogo in cui scelgo il fornitore 
poi una Casella di testo (TXTCercaDescrizione) dove scrivo parte di testo 
e un pulsante (CmdCercaDescrizione )per cercarlo
 
Private Sub CmdCercaDescrizione_Click()
Dim A As String
   A = "SELECT Precodice,CodiceProdotto,DescrizioneProdotto,ScontoCategoriaFor1,EAN,Peso,IDFornitore,IDCdf,ConfezioneMinima,MarcaProdotto,IDCategoriaSconto,CategoriaScontoFornitore,Prezzo,DataPrezzo,PrezzoVecchio, " & _
   " PrezzoNetto,IDCategoria,ScontoCategoriaFor1,ScontoCategoriaCliente,IDSottocategoria,DataAcquistoNetto FROM Query_RICERCA_GENERALE_2 Where DescrizioneProdotto Like '*" & TxtCercaDescrizione.Value & "*';"
        Form_ABC_CERCA_per_DESCRIZIONE_2.RecordSource = A
        Form_ABC_CERCA_per_DESCRIZIONE_2.Requery  
 
End Sub
 
tutto ok nella Form continua mi compare quello che ho cercato 
 
però a questo punto vorrei effettuare un'altra ricerca   
sempre con un altra Casella di testo (TXTCercaDescrizione_2) dove scrivo altro testo
e un altro pulsante (CmdCercaDescrizione_2) per restringere la ricerca 
 
Private Sub CmdCercaDescrizione_2_Click()
Dim Abc As String
   Abc = "SELECT Precodice,CodiceProdotto,DescrizioneProdotto,ScontoCategoriaFor1,EAN,Peso,IDFornitore,IDCdf,ConfezioneMinima,MarcaProdotto,IDCategoriaSconto,CategoriaScontoFornitore,Prezzo,DataPrezzo,PrezzoVecchio, " & _
   " PrezzoNetto,IDCategoria,ScontoCategoriaFor1,ScontoCategoriaCliente,IDSottocategoria,DataAcquistoNetto FROM Query_RICERCA_GENERALE_2 Where DescrizioneProdotto Like '*" & TXTCercaDescrizione_2.Value & "*';"
         Form_ABC_CERCA_per_DESCRIZIONE_2.RecordSource = Abc
         Form_ABC_CERCA_per_DESCRIZIONE_2.Requer     
 
End Sub
 
Il problema è che non so come fare per fargli effettuare la seconda ricerca 
solo sul risultato della prima ricerca , perchè invece il risultato è che la seconda ricerca viene fatta sempre 
sul totale dei record ( della query che è alla base della Form ) non su quelli filtrati .
 
 
puoi vedere nel link:
https://we.tl/t-FlUV5Jm6xL
 
 
Grazie Giuseppe


se non ho capito male vuoi che il risultato sia la lista delle voci che 
soddisfano ENTRAMBE le condizioni
devi quindin usare AND
 
SELECT bla bla bla FROM bla bla bla WHERE  DescrizioneProdotto Like '*" 
& TxtCercaDescrizione.Value & "*' AND DescrizioneProdotto Like '*" & 
TxtCercaDescrizione.Value & "*'"
 
 
tra l'altro non servono due pulsanti, ne basta uno
BFS
 
 
 
 

 BFS
 
 
Ciao  
 
scusa ma non ho spiegato bene  che vorrei le due ricerche  "separate"
perché se la prima ricerca della  "DescrizioneProdotto"  mi soddisfa allora non proseguo
se invece voglio stringere la ricerca allora  uso anche la seconda casella testo (TXTCercaDescrizione_2)	
che dovrebbe cercare i record filtrati dalla prima  (TxtCercaDescrizione)
 
 
questo è quanto inserito delle tue istruzioni Su Clic 
SELECT...............FROM.............WHERE  DescrizioneProdotto Like '*" 
 & TXTCercaDescrizione_2.Value & "*' AND DescrizioneProdotto like '*" & TxtCercaDescrizione.Value & "*" '
 
(TXTCercaDescrizione_2  è la seconda casella testo della ricerca)
(TxtCercaDescrizione è la prima casella testo della ricerca)
 
La prima ricerca era STATORE e il risultato era che avevo troppi record 
quindi faccio la seconda Aprilia (solo per modelli Aprilia)  
 
Mi dice :
errore di sintassi nella stringa nell'espressione della query
'DescrizioneProdotto Like '*Aprilia*' AND DescrizioneProdotto like '*STATORE*' .
 
dove sbaglio ?

 dove sbaglio ?
 
 
incolla l'intero sql che ottieni
 
ciao
 
 
 

 ciao
 
Private Sub CmdCercaDescrizione_Click()
 
 
Dim A As String
 
 
     A = "SELECT Precodice,CodiceProdotto,DescrizioneProdotto,ScontoCategoriaFor1,EAN,Peso,IDFornitore,IDCdf,ConfezioneMinima,MarcaProdotto,IDCategoriaSconto,CategoriaScontoFornitore,Prezzo,DataPrezzo,PrezzoVecchio, " & _
"PrezzoNetto,IDCategoria,ScontoCategoriaFor1,ScontoCategoriaCliente,IDSottocategoria,DataAcquistoNetto FROM Query_RICERCA_GENERALE_2 Where DescrizioneProdotto Like '*" & TxtCercaDescrizione.Value & "*';" 
 
così  funziona la prima ricerca perfetto 
 
se aggiungo AND....  non va bene 
 
.....FROM Query_RICERCA_GENERALE_2 Where DescrizioneProdotto Like '*" & TxtCercaDescrizione.Value & "*' AND DescrizioneProdotto like '*" & TXTCercaDescrizione_2.Value & "*" '
 
 
        Form_ABC_CERCA_per_DESCRIZIONE_2.RecordSource = A
        Form_ABC_CERCA_per_DESCRIZIONE_2.Requery


occhio al ultimo apice... deve essere tra * e "
 
 
cosi
 
.....FROM Query_RICERCA_GENERALE_2 Where DescrizioneProdotto Like '*" & 
TxtCercaDescrizione.Value & "*' AND DescrizioneProdotto like '*" & 
TXTCercaDescrizione_2.Value & "*'"
 
 
ciao
 
 
 
 

 occhio al ultimo apice... deve essere tra * e "
 
 
Perfetto funziona come volevo , un cazzetto di carattere (') "insignificante" 
mi ha fatto dolere la testa .
 
Ciao e grazie mille 
 
Giuseppe