Como cerrar una sola tabla
Publicado por angel (8 intervenciones) el 18/12/2008 17:00:01
Bueno, la entrega de mi proyecto era ayer, pero como me faltaban algunos detalles le pedí al profe que me diera un día mas.
Quisiera saber como cerrar una sola tabla en un formulario al borrar un registre de un listbox que esta conectado a una tabla libre, pues si uso "close tables all" me da varios errores de que no se puede tener acceso a la tabla seleccionada, tengo algún combo ademas del listbox y si uso "Close tables" me dice que el archivo esta ya en uso.
este es el código del botón para borrar:
one=VAL(thisform.list1.Value)
IF messagebox("Desea borrar de la lista?",4+32,"Borrar..")=6 then
DELETE FROM lista WHERE idarti=one
CLOSE TABLES
PACK lista
USE lista
thisform.list1.Requery
thisform.comando5.Click
ENDIF
Bueno, ayer me funcionaba perfectamente, pero hoy no se lo que le dio.
el boton borrar esta en el formulario de articulos y en facturas
si quieren el proyecto hay esta el link
http://www.mediafire.com/?wyywj2adz2a
gracias por adelantado.
Quisiera saber como cerrar una sola tabla en un formulario al borrar un registre de un listbox que esta conectado a una tabla libre, pues si uso "close tables all" me da varios errores de que no se puede tener acceso a la tabla seleccionada, tengo algún combo ademas del listbox y si uso "Close tables" me dice que el archivo esta ya en uso.
este es el código del botón para borrar:
one=VAL(thisform.list1.Value)
IF messagebox("Desea borrar de la lista?",4+32,"Borrar..")=6 then
DELETE FROM lista WHERE idarti=one
CLOSE TABLES
PACK lista
USE lista
thisform.list1.Requery
thisform.comando5.Click
ENDIF
Bueno, ayer me funcionaba perfectamente, pero hoy no se lo que le dio.
el boton borrar esta en el formulario de articulos y en facturas
si quieren el proyecto hay esta el link
http://www.mediafire.com/?wyywj2adz2a
gracias por adelantado.
Valora esta pregunta


0