Newsgroup: it.comp.appl.access
Titolo: spazi finali campo ricerca

ho un campo nella testa di una maschera che utilizzo per inserire delle
stringhe da cercare nell'sql della maschera stessa
poi lancio l'aggiornamento della maschera con questa sub
Private Sub parametro_ricerca_Change()
Me.parametro_ricerca.SetFocus
Me.Form.Refresh
Me.Form.Requery
If Me.Form.CurrentRecord >= 1 Then Me.parametro_ricerca.SelStart =
Len(Me.parametro_ricerca.Text)
End Sub
il problema � che se digito uno spazio alla fine della stringa del campo
parametro_ricerca mi viene tolto
� possibile evitare questo problema?
ciao e tutti e buona giornata
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Ciao prova così
'================================
Private Sub parametro_ricerca_Change()
If Right(Me.parametro_ricerca.Text, 1) = " " Then
else
Me.parametro_ricerca.SetFocus
Me.Form.Refresh
Me.Form.Requery
If Me.Form.CurrentRecord >= 1 Then Me.parametro_ricerca.SelStart =
Len(Me.parametro_ricerca.Text)
End If
End Sub
'================================
Ciao
Alex

 ciao e tutti e buona giornata
Non dici qual'� lo statement dell'origine record della maschera. Hai
provato a mettere un * al posto dello spazio?
--
sv


 Alex
anzitutto grazie per la risposta
la cosa funziona solo in parte, perch� se poi inserisco una lettera dopo
lo spazio lo spazio viene tolto dalla stringa
altra soluzione?


 sv
anzitutto grazie per la risposta
lo statement � una query
se metto un asterisco non succede nulla di particolare, nel senso che se
cercavo la stringa ab e mi restituiva 10 record me ne restituisce sempre
10, ma questo mi sembra normale


 10, ma questo mi sembra normale
l'asterisco lo usi al posto dello spazio. Ad esempio se la stringa �
"Mario Rossi" scriverai "Mario*", oppure "*Rossi".
Vedi questo esempio:
http://www.accessgroup.it/HomeArgomenti.asp?ID=143&Oggetto2=Filtro
 su
listbox
--
sv


Ti cancella lo spazio?
e così
'======================
If Right(Me.parametro_ricerca.Text, 1) = " " Then
Else
Me.Requery
Me.parametro_ricerca.SetFocus
If Me.Form.CurrentRecord >= 1 Then Me.parametro_ricerca.SelStart =
Me.parametro_ricerca.SelLength
End If
'======================
Ciao
Alex

 Alex
cos� funziona:
Me.parametro_ricerca.SetFocus
If Right(Me.parametro_ricerca.Text, 1) = " " Then
Else
Me.Requery
Me.parametro_ricerca.SetFocus
If Me.Form.CurrentRecord >= 1 Then Me.parametro_ricerca.SelStart =
Len(Me.parametro_ricerca.Text)
End If
grazie mille


 grazie mille
per evitare un errore nel caso in cui non si trovi nessuna corrsipondenza
ho modificato cos� la sub:
Private Sub parametro_ricerca_Change()
On Error GoTo Err_parametro_ricerca_Change
Me.parametro_ricerca.SetFocus
    If Right(Me.parametro_ricerca.Text, 1) = " " Then
    Me.parametro_ricerca.SetFocus
    Else
errore_ricerca:
    Me.Requery
    Me.parametro_ricerca.SetFocus
    If Me.Form.CurrentRecord >= 1 Then Me.parametro_ricerca.SelStart =
Len(Me.parametro_ricerca.Text)
    End If
Exit_parametro_ricerca_Change:
    Exit Sub
Err_parametro_ricerca_Change:
 
    If Err.Number <> 2185 Then
    MsgBox Err.Number
        Else
        GoTo errore_ricerca:
    End If
    Resume Exit_parametro_ricerca_Change
End Sub
ciao a tutti
