Newsgroup: it.comp.appl.access
Titolo: Funzione di ricerca

Vorrei inserire in una maschera la funzione di ricerca che mi permetta di
cercare una parola in tutti i campi. Avete qualche consiglio sul da farsi?
Grazie
Fabio

 ha scritto nel messaggio
news:rCiAb.56364$AX1.2...@news1.tin.it...

Ciao Fabio
vai sul sito comune che trovi quello che ti serve.
Ciao Daniele
http://www.sitocomune.com/


Sarei interessato anch'io alla cosa, ma sul sitocomune non sono riuscito a
trovarla.
F
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 
http://www.sitocomune.com/
Innanzi tutto grazie della risposta, purtroppo avevo già guardato sul sito
comune e avevo trovato due ricerche che però non mi sembra facciano al caso
mio, avrei bisogno di un find tipo quello che c'è nelle maschere di access
ma con "cerca in = tabella corrente" e "Confronta = parte del campo". Se si
potesse passargli questi due parametri appena viene cliccato il pulsante
trova sarebbe già un'ottima cosa.
Ciao
Fabio


Io lo faccio con il SendKeys:
Es.(acc'97)
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
    SendKeys "%O P"
'--> evita di selezionare l'opzione della ricerca nel "campo corrente"
    SendKeys "%E"
    SendKeys "%T"
Ciao.
--
Sergio MAZZA

     SendKeys "%T"
Grazie mille, č proprio quello che cercavo.
Ciao
Fabio


Ciao....ho provato ad aggiungere alla routine di ricerca l'istruzione
Sendkeys, ma non funziona, mi da beep sia all'avviamento dell'evento tasto e
sia se tento di inviare sequenze di tasti. Come mai?
ciao


 F
Devi creare un nuovo pulsante, cliccare sulle proprietą e poi su routine
evento, dovrai avere un testo simile:
N.B.1 Ovviamente la prima riga devi lasciarla com'č, non copiarla.
----
Private Sub quellocheč()
Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
    SendKeys "%O P"
'--> evita di selezionare l'opzione della ricerca nel "campo corrente"
    SendKeys "%E"
    SendKeys "%T"
End Sub
----
N.B.2 Non conosco questa parte di access, su come inserire il comando ci
sono arrivato "a naso", a me funziona, perņ non garantisco nulla :-)
Ciao
Fabio


Nulla da fare le istruzioni sendkeys aggiunte all'evento click nel tasto di
ricerca non fanno cambiare la routine. Come se non ci fossero
Sbaglierò io? Domanda: cosa fanno le tre istruzioni Sendkeys?
grazie



Io ci ho riprovato ma nulla da fare come se le istruzioni Sendkeys non ci
fossero e la maschera di ricerca rimane quella di default. Potrei essere io
ad aver letto male il posto, ma le tre istruzioni Sendkeys cosa dovrebbero
fare?



E' probabile che per le versioni acc'200x non funzioni; io utilizzo acc'97.
In sintesi il codice fa questo:
- ritorna il fuoco nel controllo dove era il cursore;
- apre la finestra di ricerca (binocolo);
- cambia l'opzione di "Confronta" da "campo intero" a "parte del campo";
- toglie il flag a "Cerca solo nel campo corrente";
- e riporta il cursore nella casella "Trova";
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:ze1Bb.65320$AX1.2...@news1.tin.it...

Ciao Sergio
Funziona BENISSIMO anche con A2k sp1
Ciao Daniele

 E' probabile che per le versioni acc'200x non funzioni; io utilizzo
acc'97.
Porto un piccolo contributo, in access 2000 funziona e adesso l'ho provato
anche in xp e va senza problemi.
Oltre a spiegare come ho fatto io, sinceramente non ho altre idee per
aiutare Francesco.
Ciao
Fabio

-Fabio- ha scritto:

Se hai una chiave primaria nella tabella puoi crearti una query con due
campi: uno sarą la chiave primaria e l'altro un campo calcolato costituito
dall'unione di tutti gli altri campi della tabella separati da un
carattere poco comune:
record: campo1 & "#" & campo2 & "#" & campo3 & ....
Questa la puoi usare in parecchi modi, facendo le ricerche sempre con
l'operatore like.
Per esempio:
Me.recordsetclone.findfirst "ID=" & dlookup("ID","query","record like
""*""" & parola & """*""")
SELECT * FROM tabella WHERE ID In (SELECT ID FROM query WHERE record like
"* & parola & "*");
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it