
elimina datos pero no actualiza la tabla
Publicado por andrey (5 intervenciones) el 28/10/2022 16:46:03
Este es el código para el botón de borrar
SET DELETED ON
IF Messagebox( "Estás seguro?", 4 ) = 6
DELETE
ThisForm.txt
ThisForm.Refresh
ENDIF
este es el codigo del metodo txt
USE clientes IN 0 alias customers1
use clientes IN 0 again alias customers2
use clientes IN 0 again alias customers3
use clientes IN 0 again alias customers4
SELECT customers1
SET RELATION TO ;
RECNO()+1 INTO customers2, ;
RECNO()+2 INTO customers3, ;
RECNO()+3 INTO customers4 IN customers1
thisform.TxtNomCli1.ControlSource="customers1.nombre"
thisform.TxtIdent1.ControlSource="customers1.identifica"
thisform.TxtDirec1.ControlSource="customers1.direccion"
thisform.TxtTele1.ControlSource="customers1.telefono"
ThisForm.Refresh
thisform.TxtNomCli2.ControlSource="customers2.nombre"
thisform.TxtIdent2.ControlSource="customers2.identifica"
thisform.TxtDirec2.ControlSource="customers2.direccion"
thisform.TxtTele2.ControlSource="customers2.telefono"
ThisForm.Refresh
thisform.TxtNomCli3.ControlSource="customers3.nombre"
thisform.TxtIdent3.ControlSource="customers3.identifica"
thisform.TxtDirec3.ControlSource="customers3.direccion"
thisform.TxtTele3.ControlSource="customers3.telefono"
ThisForm.Refresh
thisform.TxtNomCli4.ControlSource="customers4.nombre"
thisform.TxtIdent4.ControlSource="customers4.identifica"
thisform.TxtDirec4.ControlSource="customers4.direccion"
thisform.TxtTele4.ControlSource="customers4.telefono"
ThisForm.Refresh
este es el codigo del metodo release
SELECT clientes
PACK
estoy usando ThisForm.Refresh para actualizar la forma y pack en la base de datos que necesito borrar los datos, cuando cierro y vuelvo a abrir. aparecen los datos iguales como si no se hubiera eliminado nada
SET DELETED ON
IF Messagebox( "Estás seguro?", 4 ) = 6
DELETE
ThisForm.txt
ThisForm.Refresh
ENDIF
este es el codigo del metodo txt
USE clientes IN 0 alias customers1
use clientes IN 0 again alias customers2
use clientes IN 0 again alias customers3
use clientes IN 0 again alias customers4
SELECT customers1
SET RELATION TO ;
RECNO()+1 INTO customers2, ;
RECNO()+2 INTO customers3, ;
RECNO()+3 INTO customers4 IN customers1
thisform.TxtNomCli1.ControlSource="customers1.nombre"
thisform.TxtIdent1.ControlSource="customers1.identifica"
thisform.TxtDirec1.ControlSource="customers1.direccion"
thisform.TxtTele1.ControlSource="customers1.telefono"
ThisForm.Refresh
thisform.TxtNomCli2.ControlSource="customers2.nombre"
thisform.TxtIdent2.ControlSource="customers2.identifica"
thisform.TxtDirec2.ControlSource="customers2.direccion"
thisform.TxtTele2.ControlSource="customers2.telefono"
ThisForm.Refresh
thisform.TxtNomCli3.ControlSource="customers3.nombre"
thisform.TxtIdent3.ControlSource="customers3.identifica"
thisform.TxtDirec3.ControlSource="customers3.direccion"
thisform.TxtTele3.ControlSource="customers3.telefono"
ThisForm.Refresh
thisform.TxtNomCli4.ControlSource="customers4.nombre"
thisform.TxtIdent4.ControlSource="customers4.identifica"
thisform.TxtDirec4.ControlSource="customers4.direccion"
thisform.TxtTele4.ControlSource="customers4.telefono"
ThisForm.Refresh
este es el codigo del metodo release
SELECT clientes
PACK
estoy usando ThisForm.Refresh para actualizar la forma y pack en la base de datos que necesito borrar los datos, cuando cierro y vuelvo a abrir. aparecen los datos iguales como si no se hubiera eliminado nada
Valora esta pregunta


0