Newsgroup: it.comp.appl.access
Titolo: ricercare in campo memo

Ciao come posso fare ad impostare una ricerca in un campo memo, tipo motore
di ricerca per intenderci, cioč ricercare tutti i record che contengono una
determinata sequenza di parole; es:
dammi tutti i record dove il campo note contiene la sequenza: mangiare la
frutta
grazie
F
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 F
Vai sul Sito Comune (link qui sotto) e nella Sezione Forms leggi la FAQ
intitolata "Come si puň filtrare una maschera in base a una o piů parole o
frasi contenute all'interno di un suo controllo?".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Grazie per l'aiuto ma cercavo qualcosa che mi consentisse di scrivere la
stringa di ricerca in un solo controllo, non so se mi spiego
ciao


 ha scritto nel messaggio
news:81Z211Z169Z94Y...@usenet.libero.it...

Scusa non capisco.
L'esmpio che ti ho consigliato puň usare sino a 4 sequenze di parole (o
frasi che dir si voglia) da usare in AND o OR per ricercare i record; perň
funziona anche con una sola sequenza (o frase).


 frutta
select * from myTabella where CampoMemo Like "*mangiare la frutta*" ;


Ho provato a mettere la stringa sql in un evento di apertura maschera ma mi
da errore "Tipo non corrispondente"; come mai?



Urge la soluzione...vi prego


 Inviato via 
http://arianna.libero.it/usenet/
Mettiamo che:
- la casella di testo "Testo24" contiene la parola o frase da cercare;
- la casella di testo "xMemo" ha come origine dati il campo di tabella memo;
- il bottone che avvia la ricerca si chiama "Comando26";
- la casella di controllo che indica se trovata o meno la prima occorrenza
si chiama "xGiaTrovato"
nell'evento "su clic" di "Comando26" inserisci:
'-------------
Private Sub Comando26_Click()
If Me!xgiaTrovato = True Then
    Me.RecordsetClone.FindNext "[xmemo] like " & Chr(34) & "*" & Me!Testo24
& "*" & Chr(34)
Else
    Me.RecordsetClone.FindFirst "[xmemo] like " & Chr(34) & "*" & Me!Testo24
& "*" & Chr(34)
End If
If Me.RecordsetClone.NoMatch Then
    MsgBox Me!Testo24 & ", non trovato!"
    Me!xgiaTrovato = False
Else
    Me!xgiaTrovato = True
    DoCmd.GoToRecord acDataForm, Me.Name, acGoTo,
Me.RecordsetClone.AbsolutePosition + 1
    Me!xMemo.SetFocus
    Me!xMemo.SelStart = InStr(1, Me!Testo24, Nz(Me!xMemo.Value, ""))
    Me!xMemo.SelLength = Len(Me!Testo24)
End If
End Sub
'-------------
Ciao.
--
Sergio MAZZA

 ha
scritto:

Si blocca qui:
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo,
e mi da errore: "Impossibile trovare il metodo o il membro dei dati"
Ma al posto di me.Name ci vuole me.nomemiocampomemo?



Ho omesso di dire prima che la maschera di ricerca è diversa da quella dei
risultati



In questa linea
Me.RecordsetClone.AbsolutePosition + 1
mi viene tolto automaticamente il segno +; ho provato, come da help a fare
Me.RecordsetClone (.AbsolutePosition + 1)
ma mi da un altro errore
scusami se son prolisso ma mi sto perdendo senza alcun risultato
ciao


 ha scritto nel messaggio
news:81Z211Z167Z69Y...@usenet.libero.it...

Meglio tardi che mai.
Allora inserisci nella maschera i controlli:
- testo24, xGiaTrovato, Comando26;
poi nell'evento "su clic" di Comando26 inserisci:
'--------------
If Me!xgiaTrovato = True Then
    Forms!nomeFormConCampoMemo.Form.RecordsetClone.FindNext "[xmemo] like "
& Chr(34) & "*" & Me!Testo24 & "*" & Chr(34)
Else
    Forms!nomeFormConCampoMemo.Form.RecordsetClone.FindFirst "[xmemo] like "
& Chr(34) & "*" & Me!Testo24 & "*" & Chr(34)
End If
If Forms!nomeFormConCampoMemo.Form.RecordsetClone.NoMatch Then
    MsgBox Me!Testo24 & ", non trovato!"
    Me!xgiaTrovato = False
Else
    Me!xgiaTrovato = True
    DoCmd.GoToRecord acDataForm, "nomeFormConCampoMemo", acGoTo,
Forms!nomeFormConCampoMemo.Form.RecordsetClone.AbsolutePosition + 1
    Forms!nomeFormConCampoMemo!xMemo.SetFocus
    Forms!nomeFormConCampoMemo!xMemo.SelStart = InStr(1, Me!Testo24,
Nz(Forms!nomeFormConCampoMemo!xMemo.Value, ""))
    Forms!nomeFormConCampoMemo!xMemo.SelLength = Len(Me!Testo24)
End If
fai attenzione a non spezzare le istruzioni lunghe...
Ciao.
--
Sergio MAZZA