🚀 go-pugleaf

I was getting a "External Exception EEFFACE" when doing an ADD or an
UPDATE to a memo field on an AccessDB when the text was greater then
255 characters.  Searching through the newsgroups it seems that many
others have this problem, but I could not find any solutions.  There
were a few replies talking about making a change to the registry
(Image file executable options etc) but this did not solve my problem.

To get it to work I changed my code from:

-----------------------------------------

  // exception occues when memo fields greater then 255 chars
  with TQuery.Create(nil) do
  try
    DatabaseName := self.Database.DatabaseName;
    SQL.Text := 'UPDATE SavedBusinessObjects SET ObjectName =
:pObjectName, ObjectID = :pObjectID, BusinessObjectType =
:pBusinessObjectType, Elements = :pElements, Conditions = :pConditions
WHERE ID = :pID';
    ParamByName('pObjectName').AsString := self.ObjectName;
    ParamByName('pObjectID').AsString := self.ObjectID;
    ParamByName('pBusinessObjectType').AsString :=
self.BusinessObjectType.Name;
    ParamByName('pElements').AsMemo := self.Elements.Text;
    ParamByName('pConditions').AsMemo := self.Conditions.Text;
    ParamByName('pID').AsInteger := self.ID;

    ExecSQL;

    Result := True;
  finally
    Free;
  end;

-----------------------------------------

to:

-----------------------------------------

  // memo fields greater then 255 chars work!!!
  with TTable.Create(nil) do
  try
    DatabaseName := self.Database.DatabaseName;
    TableName := 'SavedBusinessObjects';
    Filtered := True;
    Filter := Format('ID = %d', [self.Id]);
    Open;

    Edit;
    FieldByName('ObjectName').AsString := self.ObjectName;
    FieldByName('ObjectID').AsString := self.ObjectID;
    FieldByName('BusinessObjectType').AsString :=
self.BusinessObjectType.Name;
    FieldByName('Elements').AsString := self.Elements.Text;
    FieldByName('Conditions').AsString := self.Conditions.Text;
    Post;
    Result := True;
  finally
    Free;
  end;

-----------------------------------------

A bit bodgy I know, but it works.  I hope this helps......