LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Переход н...
 RE: Переход на запись в подчиненной форме
 
 15.06.2007 21:03:18
Vglory
26 сообщения


RE: Переход на запись в подчиненной форме
Для себя отметил три способа синхронизации текущей записи из подчинённой формы (в виде таблицы, список записей) в другой подчиненной форме (одна запись соответствует исходной в подчиненой форме)

1. Событие Form_Current в первой подчиненной (список), просто переходим на номер нужной записи.
Currwq = Form_Приход_Main_I.CurrentRecord
Dim frm As Form
Dim rs As Object
Set frm = Form_Приход_Numbers.Form
Set rs = frm.Recordset
rs.MoveFirst
For i = 1 To Currwq - 1
rs.MoveNext
Next i

'2. Второй способ, выбираем запросом нужную запись
Form_Приход_Numbers.RecordSource = "SELECT Приход_товар.* FROM Приход_товар WHERE (((Приход_товар.Код)=" + Str(Form_Приход_Main_I.Код.Value) + "));"

'3. Третий способ, переходим на нужную запись.
Form_Приход_Основная_форма.Приход_Numbers.SetFocus
DoCmd.GoToRecord , Приход_Numbers, acGoTo, Form_Приход_Основная_форма.Приход_Main_I.Form.CurrentRecord
Form_Приход_Основная_форма.Приход_Main_I.SetFocus

Вопросик, во всех трёх случаех, при изменении записи на одной форме выводится сообщение:"Запись изменена другим пользователем" как проще этого избежать?


P.S. Общий раздел по формам
Автор: Vglory от 27.11.2002 9:47:25 Источник ...
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Переход н...
ПоискПоиск  Список форумовСписок форумов  
right