FoxPro/Visual FoxPro - Validar un indice principal con mi propio codigo

Tengo una tabla con un indice principal de cedula de indentidad y un text para mostar y agregar los datos , ahora lo que quiero es validar que si el usuario intenta agregar una una cedula que ya existe mostrarle un mensaje esto lo puedo hacer yo con una rutina desde mi boton de agregar pero cuando el usuario introduce el ultimo numero de la cedula que esta intentando volver a introducir me muestra el mensaje de la unicidad infrigida como puedo solucinarlo para hacer yo mi validacion.

Mi otro proble es que estoy desarrollando una aplicacion en una computadora portatil con configuracion United States es decir tanto la configuracion regional, como el teclado y el windows(Me) son en ingles y por mas que le cambio la configuracion regional a una en español y elimino el Vfp6renu.dll los botones de mis messagebox me salen en ingles como lo puedo solucionar.

Saludos y garcias
LRJ

LRJ: Hola, para tu primer pregunta, es facil, debes realizar un SEEK usando tu indice primario. si el SEEK encuentra un registro entonces muestras un mensaje de error, sino, se puede insertar el valor.
Con respecto a tu segunda pregunta, no estoy seguro, pero creo que el idioma lo toma del idioma en el que está instalado el FOX.

En relidad mi problemas es en donde debo poner mi rutina de validacion mi seek o mi locate for, ya que asunto es que el control source de text es el indice principal y cuando se intenta introducir un valor repetido cuando se introduce el ultimo numero de ese valor repetido me muestra el mensaje de la unicidad infringida. por ejemplo si en mi tabla ya existe el valor 2222224 y en mi text intento introducir este mismo numero y cuando llego al 4 sale el mensaje de la unicida infringidad y lo que quiero es eliminar esto para hacer yo mi validacion con mi mensaje de error desde un boton

JM: Te entiendo. Lo que deberías hacer, es sacarle el control source a los Text box.
Lo que puedes hacer es agregar un boton "Aceptar" cuando el usuario lo presionas haces el SEEK usando THISFORM.MyTxtBox.Value . Y si no encuentra el valor entonces haces un INSERT INTO MyTabla (CAMPO1, CAMPO2, CAMPO3) VALUES (THISFORM.MyText1.VALUE, THISFORM.MyText2.VALUE.... ).
Espero que lo entiendas, esta es una de las formas en que puedes hacerlo. Por supuesto, puedes encontrar otras.
Nos vemos.

Debes colocarlo en el Evento LosFocus del objeto a evaluar
por ejemplo:

set order to codigo
Codigo=(Thisform.Text1.Value)
Seek Codigo
If Found()
"Mensaje"
Else
Append Blank
"Grabar
Endif