FoxPro/Visual FoxPro - me da error =?

 
Vista:

me da error =?

Publicado por jhoxan (20 intervenciones) el 20/08/2007 19:32:23
gracias a neo y plinio por su ayuda.

pero con todo eso me sigue diciendo que lo abra en modo exclusivo,

podrian decirme de que manera habro en modo exclusivo. porfavor
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:me da error =?

Publicado por Plinio (7841 intervenciones) el 20/08/2007 23:45:28
Pon en tu aplicacion, al principio, antes de abrir las tabla.
SET EXCLUSIVE ON
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:me da error =?

Publicado por neo (1604 intervenciones) el 21/08/2007 14:45:51
Definitivamente tienes una tabla en modo Exclusivo a Off,

Utilizas un formulario para realizar este proceso o un prg??

Saludos►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:me da error =?

Publicado por jhoxan (20 intervenciones) el 21/08/2007 15:03:18
utilizo un formulario.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:me da error =?

Publicado por neo (1604 intervenciones) el 21/08/2007 16:13:58
Puedes postear un poco del codigo del boton eliminar??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:me da error =?

Publicado por jhoxan (1 intervención) el 21/08/2007 18:12:53
este es el codigo de mi boton eliminar

buscar=messagebox("Esta seguro que desea eliminar este registro?",4+48,"Eliminar Registro")
if buscar=6
delete
pack
go top
thisform.refresh
else
endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:me da error =?

Publicado por neo (1604 intervenciones) el 21/08/2007 18:40:35
Close databases
Set Exlusive On

Open Database Mi_Base_de_Datos.dbc
Select 1
Use Mi_Tabla.dbf

Locate for clave=Thisform.txtclave.value
If Found() Then
buscar=messagebox("Esta seguro que desea eliminar este registro?",4+48,"Eliminar Registro")
if buscar=6
delete
pack
reindex
close databases
close tables
thisform.refresh
else
endif

Set Eclusive Off
Wait Window "Reindizando Datos, se cerrará esta Pantalla " Nowait
Thisform.Release
else
endif


Suerte►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:me da error =?

Publicado por neo (1604 intervenciones) el 21/08/2007 18:41:00
Close databases
Set Exlusive On

Open Database Mi_Base_de_Datos.dbc
Select 1
Use Mi_Tabla.dbf

Locate for clave=Thisform.txtclave.value
If Found() Then
buscar=messagebox("Esta seguro que desea eliminar este registro?",4+48,"Eliminar Registro")
if buscar=6
delete
pack
reindex
close databases
close tables
thisform.refresh
else
endif

Set Eclusive Off
Wait Window "Reindizando Datos, se cerrará esta Pantalla " Nowait
Thisform.Release
else
endif


Suerte►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar