Ошибка при сохранении нового прайс-листа

[Alexbur]

Прошу помочь исправить ошибку, которая возникла при сохранении нового прайс-листа и делает невозможным добавление новых прайсов.
Сейчас при попытке создания прайса получаю отказ в виде предупредительного сообщения:
"Процедура: get_Item Слишком мало параметров требуется 1"
и бывает еще:
"InvalidArgument=Значение "1" недопустимо для "index" Имя параметра: index Процедура: get_Item
Мной предпринята попытка разобраться: с помощью CtrlF9 захожу в Таблицу базы данных и далее просмотрел два раздела.
В PriceNames: прайс, который дал сбой, не зарегистрирован, тогда как в PriceListers ("таблице" и "создать/удалить индекс") этот прайс значится под новым следующим номером. Для него приводятся новые значения Extra... и Price..., но самое главное - отсутствует, как для нормальных прайсов, значение CurrID... Удалить значения Extra... и Price... для сбойного прайса не смог, поэтому прошу Вашей помощи. Сбойный прайс в самой программе "Справочники/Прайс-листы" не виден, поэтому штатными средствами удалить его также невозможно.

[dmitry]

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

Dim R As Predpr.TableSQL, Tb As DAO.TableDef, Fld As DAO.Field
Dim Str As String, i As Integer
Try
Tb = DB.TableDefs("PriceListes")
R = DB.OpenRecordset("PriceNames", 2)
i = Tb.Fields.Count - 1
Do While i >= 0
Fld = Tb.Fields(i)
Str = Fld.Name
Select Case Str
Case "ArticleID", "PriceIn", "CurrInID", "Print"
Exit Select
Case Else
Str = Str.Replace("CurrID", "")
Str = Str.Replace("Extra", "")
Str = Str.Replace("Price", "")
R.FindFirst("ID=" & Str)
If R.NoMatch = True Then
Tb.Fields.Delete(Fld.Name)
End If
End Select
i = i - 1
Loop
Catch ex As System.Exception
Microsoft.VisualBasic.MsgBox(ex.Message, , "Отмена")
End Try
R.Close()

[Alexbur]

За помощь спасибо. Выполненный скрипт действительно удалил неблагополучные Extra... и Price... Но, к сожалению, я не могу продолжить работу и далее создать новый прайс. По специфике работы приходиться накапливать информацию по прайсам. Их накопилось 83. Сейчас на очереди создать 84-тый. Программа сообщает ошибку: "Определено слишком много полей Ошибка при добавлении поля Extra84". Неужели я достиг потолка и возможно ли его увеличить. В одном из описаний программы запомнилась ее возможность работы с неограниченным количеством прайс-листов, поэтому и взял ее на вооружение. С уважением, благодарный пользователь.

[dmitry]

К сожалению, в таблице базы данных может быть не более 255 столбцов. 83 * 3 (в кажном цена, валюта и наценка) + ID и т.д. подходит к пределу.