eliminar un registro de una tabla desde un formulario
Publicado por alee (2 intervenciones) el 01/04/2013 18:46:31
hola tengo una duda
estoy haciendo un programa en el cual se agregen campos a una tabla y los pueda buscar y eliminar junto con modificar
para agregar los campos ala tabla desde el formulario utilice este codigo
Set exact on
Select empleados
Locate for empleados.nomina=Thisform.Text1.value
If Found() then
replace nomina with Thisform.Text1.value
replace nombre with Thisform.Text2.value
replace apellidos with Thisform.Text3.value
replace direccion with Thisform.Text4.value
replace telefono with Thisform.Text5.value
replace correo with Thisform.Text6.value
replace puesto with Thisform.Text7.value
replace sueldo with Thisform.Text8.value
Wait window "Datos Actualizados" timeout .8
Thisform.refresh
else
go bott
Append Blank
replace nomina with Thisform.Text1.value
replace nombre with Thisform.Text2.value
replace apellidos with Thisform.Text3.value
replace direccion with Thisform.Text4.value
replace telefono with Thisform.Text5.value
replace correo with Thisform.Text6.value
replace puesto with Thisform.Text7.value
replace sueldo with Thisform.Text8.value
Wait window "Datos Almacenados" timeout .8
Thisform.refresh
endif
en la tabla aparecen todos los camps exepto el de telefono y sueldo que son numericos
y me gustaria saber si pe dupieran decir como eliminar los registros ya creados de la tabla desde el formulario xfas sii me urgee :$
estoy haciendo un programa en el cual se agregen campos a una tabla y los pueda buscar y eliminar junto con modificar
para agregar los campos ala tabla desde el formulario utilice este codigo
Set exact on
Select empleados
Locate for empleados.nomina=Thisform.Text1.value
If Found() then
replace nomina with Thisform.Text1.value
replace nombre with Thisform.Text2.value
replace apellidos with Thisform.Text3.value
replace direccion with Thisform.Text4.value
replace telefono with Thisform.Text5.value
replace correo with Thisform.Text6.value
replace puesto with Thisform.Text7.value
replace sueldo with Thisform.Text8.value
Wait window "Datos Actualizados" timeout .8
Thisform.refresh
else
go bott
Append Blank
replace nomina with Thisform.Text1.value
replace nombre with Thisform.Text2.value
replace apellidos with Thisform.Text3.value
replace direccion with Thisform.Text4.value
replace telefono with Thisform.Text5.value
replace correo with Thisform.Text6.value
replace puesto with Thisform.Text7.value
replace sueldo with Thisform.Text8.value
Wait window "Datos Almacenados" timeout .8
Thisform.refresh
endif
en la tabla aparecen todos los camps exepto el de telefono y sueldo que son numericos
y me gustaria saber si pe dupieran decir como eliminar los registros ya creados de la tabla desde el formulario xfas sii me urgee :$
Valora esta pregunta


0