Código:
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;
Pues por que en lugar de reconocer
if (dbNombre.Text = '') or (....
deberias de mandar
if (frmPrincipal.TablaArticulos.FieldByName('Nombre').AsString = '') Or (.....