прайс ошибка

[velka71]

При открытии прайс-листы ошибка метода LoadGrid(завершение) Не удалось включить ограничения. По меньшей мере одна строка содержит значение,нарушающее ограничения по определённости значений,уникальности или внешним ключам.Та же ошибка при открытии объекты учёта

[dmitry]

Чтобы понять причину:
- Скопируйте текст ниже.
- Нажмите в программе Ctrl+F10.
- Вставьте текст, нажмите "ОК".

Dim R As DAO.Recordset
R = DB.OpenRecordset("SELECT ID FROM Articles GROUP BY ID HAVING Count(ID)>1;")
If R.RecordCount = 0 Then
Microsoft.VisualBasic.MsgBox("Причина не выявлена", , "Проверка")
Else
Microsoft.VisualBasic.MsgBox("Дублируется ID=" & R("ID").Value, , "Проверка")
End If
R.Close()

Появится сообщение с результатом проверки, что в нем будет написано?