Hola
El mensaje dice: ID mus have a value
Los unicos ID que veo estan en esta linea :
Código Delphi
[-]DM.IBDataSet_MiembrosID_VIVIENDA.Value:= DM.IBDataSet_ViviendasID_VIVIENDA.Value;
Si esta pidiendo un ID me parece que
Código Delphi
[-]DM.IBDataSet_ViviendasID_VIVIENDA.Value;
No esta iniciado o no ve el dato.
Revisa que el dato exista asi:
Código Delphi
[-]Showmessage(DM.IBDataSet_ViviendasID_VIVIENDA.AsString); DM.Ibdataset_miembros.open;
DM.Ibdataset_miembros.Append;
DM.Ibdataset_miembros.edit;
DM.IBDataSet_MiembrosESTADO.Value:=1;
DM.IBDataSet_MiembrosID_VIVIENDA.Value:= DM.IBDataSet_ViviendasID_VIVIENDA.Value;
DM.IBDataSet_MiembrosFECHA_NACIMIENTO.Value:= DateTimePicker1.Date;
DM.Ibdataset_miembros.post;
DM.Transaction.CommitRetaining;
saludos