Ошибка при открытии анализа

[Олег23]

При открытии или создании анализа постоянно выскакивает такая ошибка,из-за которой не могу посмотреть анализ.Подскажите как ее исправить.Заранее спасибо.

[dmitry]

- Скопировать текст ниже.
- Нажать в программе Ctrl+F10,
- вставить текст, нажать "ОК".

Dim SQLselect As String, SQLfrom As String, SQLwhere As String
Dim Qd As DAO.QueryDef
Qd = DB.QueryDefs("GetFullData")
SQLselect = "SELECT [Documents]![ID] AS DocID, DocumentRows.ArticleID, [Articles]![ParentID] AS ArticleParentID, [Articles]![TextName] AS ArticleText, [Articles]![Code] AS ArticleCode, DocumentRows.PersonID, [Persons]![ParentID] AS PersonParentID, [Persons]![TextName] AS PersonText, DocumentRows.OfficeID, [Persons_1]![TextName] AS OfficeText, [BuhTempls]![TextName] AS TemplText, [OperationTypes]![TextName] & ' №' & [Documents]![Num] & [Documents]![NumStr] & ' от ' & [Documents]![DocDate] AS DocText, [DocumentRows]![Quantity] AS Qnt, [DocumentRows]![PriceReport] AS Price, IIf([DocumentRows]![FlagDb]=-1,[DocumentRows]![DbID],0) AS DbID, IIf([DocumentRows]![FlagCr]=-1,[DocumentRows]![CrID],0) AS CrID, Documents.DocDate, [Persons_2]![ID] AS PersonInID, [Persons_2]![ParentID] AS PersonInParentID, [Persons_2]![TextName] AS PersonInText, DocumentRows.RowID "
SQLfrom = "FROM ((Documents INNER JOIN OperationTypes ON Documents.TypeID = OperationTypes.ID) INNER JOIN BuhTempls ON Documents.TmplID = BuhTempls.ID) INNER JOIN ((((DocumentRows LEFT JOIN Articles ON DocumentRows.ArticleID = Articles.ID) LEFT JOIN Persons ON DocumentRows.PersonID = Persons.ID) LEFT JOIN Persons AS Persons_1 ON DocumentRows.OfficeID = Persons_1.ID) LEFT JOIN (SeriesPersonIn LEFT JOIN Persons AS Persons_2 ON SeriesPersonIn.LastPersonID = Persons_2.ID) ON (DocumentRows.ArticleID = SeriesPersonIn.ArticleID) AND (DocumentRows.DocID = SeriesPersonIn.DocID)) ON Documents.ID = DocumentRows.DocID "
SQLwhere = "WHERE (((DocumentRows.AccountType)=0) AND ((Documents.State)=-1))"
Qd.SQL = SQLselect & SQLfrom & SQLwhere