>Hi José,
>
>>I need to know when the data in a TextBox change.
>>
>
>Take a look at yourtextbox.interactivechange method.. (runs always when the user make some change)
>
>>
>>I try textbox.InterctiveChange() and textbox.programaticchange() and they don´t fire.
>>
>programmactchange - fires when the changes are made by your program
>
>interactivechange - fires when the changes are made by the user
>

No, Interactive method don´t run, TRY THAT.

PUBLIC otabform1

SET CLASSLIB TO f:\d\ds\comun\cls\tabclass.vcx ADDITIVE

CREATE TABLE TITAS26 (ctitas c(2), titas c(40))
INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c1","DESC C1")
INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c2","DESC C2")
INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c3","DESC C3")
GO TOP

otabform1=NEWOBJECT("tabform1")
otabform1.Show

RETURN


**************************************************
*-- Form:         tabform1 (c:\form1.scx)
*-- ParentClass:  
*-- BaseClass:    form
*-- Marca de hora:   02/26/03 05:11:14 PM
*
DEFINE CLASS tabform1 AS form


	DoCreate = .T.
	Name = "Tabform1"


	ADD OBJECT txtctitas AS textbox WITH ;
		Comment = "", ;
		ControlSource = "titas26.ctitas", ;
		Height = 23, ;
		Left = 213, ;
		MaxLength = 2, ;
		TabIndex = 2, ;
		Top = 99, ;
		Width = 38, ;
		Name = "txtCtitas"


	ADD OBJECT lblctitas AS label WITH ;
		AutoSize = .T., ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "Ctitas", ;
		Left = 173, ;
		Top = 99, ;
		Width = 32, ;
		TabIndex = 1, ;
		Name = "lblCtitas"


	ADD OBJECT txttitas AS textbox WITH ;
		Comment = "", ;
		ControlSource = "titas26.titas", ;
		Height = 23, ;
		Left = 211, ;
		MaxLength = 40, ;
		TabIndex = 4, ;
		Top = 140, ;
		Width = 288, ;
		Name = "txtTitas"


	ADD OBJECT lbltitas AS label WITH ;
		AutoSize = .T., ;
		WordWrap = .T., ;
		BackStyle = 0, ;
		Caption = "Titas", ;
		Left = 176, ;
		Top = 140, ;
		Width = 27, ;
		TabIndex = 3, ;
		Name = "lblTitas"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 204, ;
		Left = 216, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "SKIP", ;
		Name = "Command1"


	PROCEDURE txttitas.ProgrammaticChange
		WAIT WINDOW "HOLA"
	ENDPROC


	PROCEDURE txttitas.InteractiveChange
		WAIT WINDOW "HOLA"
	ENDPROC


	PROCEDURE command1.Click
		SELECT TITAS26
		SKIP
		THISFORM.Refresh()
	ENDPROC


ENDDEFINE
*
*-- EndDefine: tabform1
**************************************************