ник: miami
Здравствуйте. снова обращаюсь к вам за помощью. Постараюсь наиболее подробней все описать.
Есть таблица "реестр", в которой содержится поле НОМЕР и СЕРИЯ, и СЕРИЯ_НОМЕР
В нее добавляются записи пачкой из формы, вот таким образом.
For i = dobav_s To dobav_po
rs.AddNew
rs![номер] = Mid(i, 2, 10)
rs![серия] = Me.серия
rs![серия_номер] = Me.серия + CStr(Mid(i, 2, 10))
rs.Update
Next
|
Надо сделать что-то вроде проверки, чтобы не заносились одинаковые значения в поле СЕРИЯ_НОМЕР.
Ключевое поле уже назначено другое, так надо.
На деле все должно выглядеть примерно так:
при занесении идет проверка есть такой серия+номер в таблице или нет.
Если есть, то пропускается и берется следующие значение из цикла (см. выше).
Если нет, то соответственно заносится и берется следующие значение в цикле и так же проверяется.Затем следующие и так до последнего значения.
Вроде все просто, но у меня уже голова пухнет. Как я только не пробовал :(
Собственно вот, прошу помощи.