Обновление данных в таблице из формы.

[Lexx_Luthor]

Доброго времени!

Подскажите, как реализовать следующую вещь:

1. Есть таблица с данными. В ней одно из полей носит название "номер".
2. Есть форма, для ввода данных в таблицу.
3. Необходимо сделать проверку, при которой, если в таблице уже присутствует строка с номером, который только что ввели через форму, то не создаётся новая запись, а модифицируется с данным номером.

[Swatch]

Сделайте кнопку сохранения записи и по нажатию организуйте проверку на наличие записи в таблице с таким же номером. ПРИМЕРНО это будет выглядеть так:

dim rst as recordset
dim i as integer
i=0
set rst=currentdb.openrecordset("Таблица")
do while not rst.eof
if rst!НомерЗаписи=Me.НомерЗаписи then
i=1
end if
rst.movenext
loop
If i=0 then ' если в таблице нет такой записи
docmd.runsql "insert into Таблица (список полей таблицы) select (список полей формы)"
else  ' если такая запись уже есть
docmd.runsql "update Таблица set НомерЗаписи=" & Me.НомерЗаписи & ", ...... "
end if

Это ПРИМЕРНО

[Teslenko_EA]

Здравствуйте Lexx_Luthor.
От Swatch Вы получили образец - хорошую конструкцию которая в состоянии решать подобную задачу,
но Вас не предупредили что подобное решение будет "лучше себя чувствовать" (выполняться) на Unbound форме
- форме не связанной с данными.
Для такого-же решения ещё один вариант:

Const sQ = "select * from Таблица where НомерЗаписи="
dim rst as recordset, i as integer, s$
s = Me.НомерЗаписи & ""
set rst=currentdb.openrecordset(sQ + s)
if rst.Eof then rst.addnew else rst.edit
for i = 1 to rst.fields.count - 1
	s = rst.fields(i).name
	rst(i) = Me.controls(s)
next
rst.update

подразумевается что в первом поле таблицы (поле с нулевым индексом в рекордсете) расположен идентификатор
- счётчик который ни добавлять ни изменять не надо, а имена у полей формы такие же как у полей таблицы.

Евгений.