ME.TextBox1.Pos = 3
ME.TextBox1.Select(3, Len(ME.TextBox1.Text))
@milio
grazie delle dritte , ho buttato giĆ¹ del codice e sembra che funzioni
PUBLIC SUB TextBox2_KeyRelease()
DIM sqlc AS String
DIM StrIm, StrRis AS String
SELECT Key.code
CASE Key.Enter, Key.Return, Key.Down, Key.up, Key.Left, Key.Right, Key.Delete, Key.BackSpace, Key.BackTab, Key.Tab
RETURN
STOP EVENT
END SELECT
StrIm = Mid(TextBox2.text, 1, textbox2.Pos)
IF FasMod AND Len(StrIm) > 2 AND RadioButton1.value THEN
sqlc = "SELECT * FROM clienti WHERE cognome LIKE '" & StrIm & "%'"
MyRsc = MODMain.MyConn.Exec(sqlc)
IF MyRsc.Available THEN
StrRis = MyRsc!cognome
TextBox2.text = StrRis
TextBox2.Select(Len(StrIm), Len(StrRis))
ELSE
TextBox2.text = StrIm
ENDIF
ENDIF
END