[Delphos]

Hola foro

Alguien me puede decir como se puede controlar el que no se pueda grabar o editar un registro que no tengan todos los campos rellenados.

Trabajo con un TADOTable, los tipicos DBEdit y un TDBNavigator

Porque no funciona esto

procedure TfrmArticulos.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
//if (frmPrincipal.TablaArticulos.State = dsInsert) or (frmPrincipal.TablaArticulos.State = dsEdit) then
// begin
if (dbNombre.Text = '') or (dbDescripcion.Text = '') or
(dboCategoria.Text = '') or (dbPrecio.Text = '') or
(dboLocal.Text = '') then
begin
ShowMessage('Registro no guardado: Debe Rellenar todos los campos');
frmPrincipal.TablaArticulos.Cancel;

end;
// end;
end;

Ademas lo que esta comentado es porque no me reconoce la propiedad dsInsert ni dsEdit me dice que variable no declarada.

El codigo de arriba no funciona cuando intento añadir un registro o editar algun existente me dice que no estoy en estado dsInsert o dsEdit.

Se os ocurre algo, porque tendria que volver modificar tres formularios para controlar esto y es un faenon.

Muchas Gracias por adelantado.

Salu2.