Anónimo
Borrar registros con la instrucción pack
Hola.
Como puedo borrar registros en un mismo formulario utilizando la instrucción pack.
En el entorno de datos del formulario están dos tablas (comisionados y aux1)
Dentro del evento click de un botón de comando uso lo siguiente:
select aux1
go top
do while not eof()
delete
skip
enddo
Utilizo en el segundo botón de comando lo siguiente:
Use aux1 exclusive
pack
Thisform.release
Pero me marca que el archivo esta en uso.
Gracias y saludos.
Como puedo borrar registros en un mismo formulario utilizando la instrucción pack.
En el entorno de datos del formulario están dos tablas (comisionados y aux1)
Dentro del evento click de un botón de comando uso lo siguiente:
select aux1
go top
do while not eof()
delete
skip
enddo
Utilizo en el segundo botón de comando lo siguiente:
Use aux1 exclusive
pack
Thisform.release
Pero me marca que el archivo esta en uso.
Gracias y saludos.
1 Respuesta
Respuesta de Alonso Jarrín Solís
1
No es recomendable utilizar el comando Pack en un formulario, ahora el problema se debe a que si deseas eliminar registros en forma definitiva debes abrir la tabla en modo exclusivo pero para esto la tabla debe estar previamente cerrada y el error que te devuelve es debido a que utilizas el comando Use NombreTabla Exclusive estando dicha tabla previamente abierta.