hola, miren he tenido un problema con este mensaje, al parecer es porque en otro form tengo una tabla en la que relaciono la tabla que necesesito borrar un registro.
bueno tengo un form1 en la cual tengo 2 tables. una llamada CURSO y otra RUBRO , la tabla CURSO es el detalle y Rubro el maestro. bien ahora al seleccionar un Rubro me aparece todos los cursos de ese rubro, ahora cuando quiero borrar un curso de ese rubro me aparece "master has detail records", entonces me fije en el Form2 en el cual tengo una tabla planes de pago en el cual tengo relacionado Curso, lo cual parece ser el problema del mensaje, entonces hice los sig. en un boton eliminar del form1 cuando selecciono un curso:
Código Delphi
[-]
If Application.MessageBox ('¿Estas seguro que deseas eliminar el registro actual?',
'Eliminar registro',mb_YesNo+MB_IconStop) = ID_yes Then
if form2.table2.fieldbyname('curso').asinteger=Table1.fieldbyname('cod_curso').asinteger
then
application.Terminate;
bien lo hice como prueba para ver si funcionaba pero no ocurre nada , no cierra la aplicacion
Aclaro que en el form 2, la tabla que relaciono curso (planes), tiene el campo CURSO como clave foranea. como sugieren que deberia hacer o modificar el codigo ? gracias
bueno tambien se me ocurrio :
If Application.MessageBox ('¿Estas seguro que deseas eliminar el registro actual?',
'Eliminar registro',mb_YesNo+MB_IconStop) = ID_yes Then
while not form3.Table3.EoF do
begin
if form3.Table3.FieldByName('curso').AsInteger=table1.FieldByName('cod_curso').AsInteger
then application.Terminate;
end;
pero al parecer no recorre la tabla del form3