ошибка "key in dictionary..." как исправить?

[stihl]

ошиБка при списании товара item has already been added. key in dictionary:12441 key being added.
что это такое и как исправить и провести продажу?
я не могу списать один конкретный товар. ничего не получается! помогите!

[dmitry]

Так может быть, если когда-то переносили данные из прошлой версии программы.
Чтобы исправить:
- Скопировать текст, приведенный ниже.
- Нажать в программе Ctrl+F10.
- Вставить текст, нажать "ОК".
(выполняться может долго).

Dim Doc1 As DAO.Recordset, Doc2 As DAO.Recordset, Doc2min As DAO.Recordset
Dim SerID As Integer, RowID As Integer
Doc1 = DB.OpenRecordset("SELECT DocumentRows.RowID, DocumentRows.SeriesID, DocumentRows.ArticleID FROM Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID WHERE Documents.TypeID in(1,13) AND DocumentRows.AccountType=0 AND DocumentRows.TransNum=1 AND ([DocumentRows]![RowID]-[DocumentRows]![SeriesID])<>0;")
Doc2 = DB.OpenRecordset("SELECT DocumentRows.SeriesID, DocumentRows.ArticleID FROM Documents INNER JOIN DocumentRows ON Documents.ID = DocumentRows.DocID WHERE Documents.TypeID in(2,13) AND DocumentRows.AccountType=0 AND DocumentRows.TransNum=2;")
Do While Not Doc1.EOF
SerID = Doc1("SeriesID").Value
RowID = Doc1("RowID").Value
Doc2.Filter = "SeriesID=" & SerID
If Doc2min Is Nothing = False Then Doc2min.Close()
Doc2min = Doc2.OpenRecordset
Do While Not Doc2min.EOF
Doc2min.Edit()
Doc2min("SeriesID").Value = RowID
Doc2min.Update()
Doc2min.MoveNext()
Loop
Doc1.Edit()
Doc1("SeriesID").Value = RowID
Doc1.Update()
Doc1.MoveNext()
Loop
Doc1.Close()
Doc2.Close()
If Doc2min Is Nothing = False Then Doc2min.Close()

[stihl]

Спасибо,помогло. 3 секунды