ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переход по записям в подчиненной форме
10 сообщений из 10, страница 1 из 1
Переход по записям в подчиненной форме
    #38430067
Beal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Beal
Гость
Подаскажите, как реализовать переход по записям в подчиненной форме.
Структура: Форма1 - главная, Форма2 - подчиненная в Форме1, Форма3 - подчиненная в Форме2.
Необходим переход на первую и последнюю запись Формы3 по нажатию Кнопки1 Формы2, второй день пытаюсь найти решение...

код на Кнопке1 в Форме2 не работает:

Forms!Форма1!Форма2.Form!Форма3.SetFocus
DoCmd.GoToRecord , , acLast

переход осуществляется по записям Формы2

синтаксис
DoCmd.GoToRecord acDataForm, Forms!Форма1!Форма2.Form!Форма3, acLast

тоже не работает

как можно реализовать?
...
Рейтинг: 0 / 0
16.10.2013, 17:15
| Ответить | Цитировать | Написать  
Переход по записям в подчиненной форме
    #38430208
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Beal,

ерунда получилась, но работает
...
Рейтинг: 0 / 0
16.10.2013, 18:25
| Ответить | Цитировать | Написать  
Переход по записям в подчиненной форме
    #38430218
?????
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?????
Гость
Beal,
ерунда получилась, но работает
а так?????
Код: vbnet
1.
2.
3.
4.
'Forms("Таблица1").Таблица2.Form.Таблица3.SetFocus
'SendKeys "^{END}", True

Forms("Таблица1")!Таблица2.Form!Таблица3.Form.Recordset.MoveLast
...
Рейтинг: 0 / 0
16.10.2013, 18:35
| Ответить | Цитировать | Написать  
Переход по записям в подчиненной форме
    #38430229
Фотография nord-woolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nord-woolf
Участник
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private subfrm As Form

Private Sub Form_Open(Cancel As Integer)
    Set subfrm = Me.Таблица3.Form
End Sub

Private Sub cmdOnFirstRow_Click()
    With subfrm.Recordset
        If Not .EOF Then .MoveFirst
    End With
End Sub

Private Sub cmdOnLastRow_Click()
    With subfrm.Recordset
        If Not .EOF Then .MoveLast
    End With
End Sub

...
Рейтинг: 0 / 0
16.10.2013, 18:45
| Ответить | Цитировать | Написать  
Переход по записям в подчиненной форме
    #38430240
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Beal,
...
Рейтинг: 0 / 0
16.10.2013, 18:49
| Ответить | Цитировать | Написать  
Переход по записям в подчиненной форме
    #38430337
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
?????Beal,
ерунда получилась, но работает
а так?????
Код: vbnet
1.
2.
3.
4.
'Forms("Таблица1").Таблица2.Form.Таблица3.SetFocus
'SendKeys "^{END}", True

Forms("Таблица1")!Таблица2.Form!Таблица3.Form.Recordset.MoveLast



так - ваще шикарно :)
...
Рейтинг: 0 / 0
16.10.2013, 20:23
| Ответить | Цитировать | Написать  
Переход по записям в подчиненной форме
    #38430445
Фотография nord-woolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nord-woolf
Участник
guest_rusimport... так - ваще шикарно :)
:)
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private subfrm As Form

Private Sub Form_Open(Cancel As Integer)
    Set subfrm = Me.Таблица3.Form
End Sub

Private Sub cmdTest_Click()
    Dim i As Long, j As Long, st As Single
    
    Debug.Print String(10, "=")
    st = VBA.Timer
    For i = 1 To 500000
        j = Forms("Таблица1")!Таблица2.Form!Таблица3.Form.Recordset.RecordCount
    Next
    Debug.Print "Forms " & VBA.Timer - st
    
    Debug.Print String(10, "=")
    st = VBA.Timer
    For i = 1 To 500000
        j = subfrm.Recordset.RecordCount
    Next
    Debug.Print "subfrm " & VBA.Timer - st
End Sub


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
==========
Forms 20,85938
==========
subfrm 1,4375
==========
Forms 20,89063
==========
subfrm 1,4375
==========
Forms 20,78125
==========
subfrm 1,453125
==========
Forms 20,8125
==========
subfrm 1,4375

?Forms.Count
 1

...
Рейтинг: 0 / 0
16.10.2013, 22:38
| Ответить | Цитировать | Написать  
Переход по записям в подчиненной форме
    #38430458
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
nord-woolfguest_rusimport... так - ваще шикарно :)
:)
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private subfrm As Form

Private Sub Form_Open(Cancel As Integer)
    Set subfrm = Me.Таблица3.Form
End Sub

Private Sub cmdTest_Click()
    Dim i As Long, j As Long, st As Single
    
    Debug.Print String(10, "=")
    st = VBA.Timer
    For i = 1 To 500000
        j = Forms("Таблица1")!Таблица2.Form!Таблица3.Form.Recordset.RecordCount
    Next
    Debug.Print "Forms " & VBA.Timer - st
    
    Debug.Print String(10, "=")
    st = VBA.Timer
    For i = 1 To 500000
        j = subfrm.Recordset.RecordCount
    Next
    Debug.Print "subfrm " & VBA.Timer - st
End Sub


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
==========
Forms 20,85938
==========
subfrm 1,4375
==========
Forms 20,89063
==========
subfrm 1,4375
==========
Forms 20,78125
==========
subfrm 1,453125
==========
Forms 20,8125
==========
subfrm 1,4375

?Forms.Count
 1



приз "Формулы-1" в студию :)
...
Рейтинг: 0 / 0
16.10.2013, 22:56
| Ответить | Цитировать | Написать  
Переход по записям в подчиненной форме
    #38430464
Фотография nord-woolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nord-woolf
Участник
Лехко :)
...
Рейтинг: 0 / 0
16.10.2013, 23:04
| Ответить | Цитировать | Написать  
Переход по записям в подчиненной форме
    #38430762
Beal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Beal
Гость
Спасибо всем огромное, все получилось.
...
Рейтинг: 0 / 0
17.10.2013, 10:01
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переход по записям в подчиненной форме
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]