Como cambiar un password en visual foxpro

Dices que tienes 3 objetos tipo textbox.

Llamemosle Text1, Text2 y Text2; donde Text1 es Clave anterior, Text2 Nombre del Usuario y Text3 Clave nueva... solo puliendo un poco tu código...

** Definir Variables.
nvclave = thisform.text1.value
IF USED("clave")
     SELECT clave
ELSE
     Select Select(1)
     USE &dira\clave EXCLUSIVE
ENDIF
LOCATE FOR nvclave=codigo
IF Found()
     REPLACE codigo WITH nvclave
     MESSAGEBOX("Clave Reemplazada", 0, "Mensaje:")
ELSE
     MESSAGEBOX("Nueva Clave existe", 0, "Mensaje:")
Endif
USE && Tabla Clave abierta,no es necesario volver a Seleccionar.
Thisform.Init

Prueba ésto..

Perdona El Chicho, solo me puse a darle mejor forma a tu código, pero cometí algunos errores... pienso que el c{odigo siguiente iría mejor

** Definir Variables.
nvclave = thisform.text3.value
IF USED("clave")
     SELECT clave
ELSE
     Select Select(1)
     USE &dira\clave EXCLUSIVE
ENDIF
Select Codigo From Clave Into Array aCodigo Where nvClave=codigo
IF _tally=0
     REPLACE codigo WITH nvclave
     MESSAGEBOX("Clave Reemplazada", 0, "Mensaje:")
ELSE
     MESSAGEBOX("Nueva Clave existe", 0, "Mensaje:")
Endif
USE && Tabla Clave abierta,no es necesario volver a Seleccionar.
Thisform. Init

1ra. COrrección; la clave nueva se toma del textbox 3 y no del 1.

2da. Cambiamos Locate por Select, para que el puntero no se mueva dentro de la tabla, sino que quede posicionada en el último registro de la tabla Clave, que supongo haces que se posicione cuando ingresas clave anterior.

NOTA: Supongo que ésto lo tienes escrito en el método Valir del Textbox 3 (nueva clave), en cuyo caso podrías abreviar la linea 2 así..

nvclave = this.value

Si las claves fueses de caracter asegúrate de que tome solo el valor literal usando Alltrim...

nvclave = Alltrim(this.value)

gracias por tu respuesta. El codigo funciona pero me cambia la clave del primer registro y no de el que necesito cambiar

gracias por tu respuesta. El codigo funciona pero me cambia la clave del primer registro y no de el que necesito cambiar

gracias por tu respuesta. El codigo funciona pero me cambia la clave del primer registro y no de el que necesito cambiar

gracias por tu respuesta. El codigo funciona pero me cambia la clave del primer registro y no de el que necesito cambiar

gracias por tu respuesta. El codigo funciona pero me cambia la clave del primer registro y no de el que necesito cambiar

gracias por tu respuesta. El codigo funciona pero me cambia la clave del primer registro y no de el que necesito cambiar

gracias por tu respuesta. El codigo funciona pero me cambia la clave del primer registro y no de el que necesito cambiar

Por eso te decía que suponía que te posicionabas sobre el registro cuando ingresabas la clave anterior... pues bien, para hacerlo ésto, debes hacer...

Siguiendo con la teoría de que es en el Textbox 1 donde ingresas la clave anterior...

** Esto estaría escrito dentro del método Valid del Textbox 1.
vjclave = Alltrim(this.value)
If Empty(vjclave)
     Return
Endif
IF USED("clave")
     SELECT clave
ELSE
     Select Select(1)
     USE &dira\clave EXCLUSIVE
ENDIF
Locate For vjClave=codigo
IF Found()
    Thisform.Text2.value = Clave.Nombre
Else
     MESSAGEBOX("Clave inexistente", 0, "Mensaje:")
     This.Value = ""
     Return .f.
Endif
Return

gracias por tu valioso tiempo.

te explico.

tengo una tabla donde guardo las claves para ingresar al sistema llamada "CLAVE", la cual contiene 3 campos : codigo,nombre,grupo

tengo un formulario que contiene 3 textbox : uno llamado "VCLAVE" donde llamo la clave actual, otro "VNOMBRE" donde llamo el nombre actual y el otro llamado "NVCLAVE" donde ingreso la nueva clave que quiero reemplazar.

La siguiente instruccion me reemplaza el primer registro de la tabla y lo que quiero es que me reemplaze el registro del textbox llamado vclave.

nvclave = thisform.text1.value
IF USED("clave")
SELECT clave
ELSE
Select Select(1)
USE &dira\clave EXCLUSIVE
ENDIF
Select CODIGO From Clave Into Array Codigo Where NvClave=codigo
IF _tally=0
REPLACE codigo WITH nvclave
MESSAGEBOX("Clave Reemplazada", 0, "Mensaje:")
ELSE
MESSAGEBOX("Nueva Clave existe", 0, "Mensaje:")
Endif
Thisform. Init

la tabla tiene la siguiente informacion:

CODIGO          NOMBRE             GRUPO

7714                inventario           ventas

7718                contabilidad        sistema

7721                compras               ingresos

quiero que cuando digite en el textbox "VCLAVE" el codigo "7718" el cursor se coloque en el registro de la tabla que contenga ese codigo, en este caso en el segundo registro y no en el primero como lo está haciendo.

gracias