Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 проблема docmd.GoToRecord  [new]
Japson
Member

Откуда: Новосибирск
Сообщений: 154
Исполняемый модуль запускается в первой подчиненной форме:
Set f = Forms![main]![second].Form
Set kk = f.Recordset
k = kk.RecordCount
DoCmd.GoToControl ("second")
For i = 1 To k

DoCmd.GoToRecord , , acGoTo, i

If Me.[код] = f.[код] Then
Exit Sub
End If
Next


ошибка в строке с gotorecord.
пробовал так DoCmd.GoToRecord acDataForm, f, acGoTo, i
тоже не фига
Где-то короче туплю, а не пойму где.
24 май 05, 11:25    [1566743]     Ответить | Цитировать Сообщить модератору
 Re: проблема docmd.GoToRecord  [new]
Japson
Member

Откуда: Новосибирск
Сообщений: 154
Извиняюсь
пробовал так DoCmd.GoToRecord acDataForm, f.name, acGoTo, i

не находит объект
24 май 05, 11:27    [1566751]     Ответить | Цитировать Сообщить модератору
 Re: проблема docmd.GoToRecord  [new]
АлексейЕ
Guest
в место
DoCmd.GoToRecord acDataForm, f, acGoTo, i
напишите
kk.AbsolutePosition = i+1
24 май 05, 12:04    [1566934]     Ответить | Цитировать Сообщить модератору
 Re: проблема docmd.GoToRecord  [new]
АлексейК
Member

Откуда: http://www.msdatabase.ru , Moscow
Сообщений: 7683
в подчиненке делай с букмарками
24 май 05, 12:05    [1566937]     Ответить | Цитировать Сообщить модератору
 Re: проблема docmd.GoToRecord  [new]
Japson
Member

Откуда: Новосибирск
Сообщений: 154
kk.AbsolutePosition = i+1

помогло большое спасибо.

А с букмарками как?
24 май 05, 12:23    [1567081]     Ответить | Цитировать Сообщить модератору
 Re: проблема docmd.GoToRecord  [new]
АлексейК
Member

Откуда: http://www.msdatabase.ru , Moscow
Сообщений: 7683
примерно тоже самое

Dim bm
' запоминаем положение указателя формы
bm = Me.Bookmark
bm(0) + 1
'синхронизация текущей записи формы с закладкой
Me.Bookmark = bm
24 май 05, 12:34    [1567149]     Ответить | Цитировать Сообщить модератору
 Re: проблема docmd.GoToRecord  [new]
Japson
Member

Откуда: Новосибирск
Сообщений: 154
с букмарками наверное не выйдет
Допустим я создаю новую запись в другой форме
и при закрытии этой формы в подчиненной форме главной формы
происходит refresh а потом переход к записи с номером новой записи,
а в след подчиненной форме появляется записи для ввода с привязкой к записи первой подчиненной.

не знаю понятно ли объяснил
24 май 05, 12:52    [1567260]     Ответить | Цитировать Сообщить модератору
 Re: проблема docmd.GoToRecord  [new]
АлексейК
Member

Откуда: http://www.msdatabase.ru , Moscow
Сообщений: 7683
Три способа перехода по записям для подчиненной формы MDB

Private Sub способ1_Click()
Dim bm
' запоминаем положение указателя формы
bm = Me.p1.Form.Bookmark
bm(0) = bm(0) + 1
'синхронизация текущей записи формы с закладкой
Me.p1.Form.Bookmark = bm
End Sub

Private Sub способ2_Click()
    Me.p1.Form.Recordset.MoveNext
End Sub

Private Sub Способ3_Click()
    Me.p1.Form.Recordset.AbsolutePosition = Me.p1.Form.Recordset.AbsolutePosition + 1
End Sub
Примеры кода для кнопок размещенных на главной форме. Имя контрола в который
помещена подчиненная форма "P1" имя (sourceobject) самой формы используемой в качестве подчиненной - любое
24 май 05, 13:35    [1567492]     Ответить | Цитировать Сообщить модератору
 Re: проблема docmd.GoToRecord  [new]
АлексейК
Member

Откуда: http://www.msdatabase.ru , Moscow
Сообщений: 7683
в твоем случае надо будет после того как добавлена запись
1 обновить рекордсет первой формы
2 выполнить поиск в ее рекордсете (м.б. клоне) нужной записи
3 синхронизировать букмарки рекордсета и формы
24 май 05, 13:38    [1567507]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить