Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переход по записям в подчиненной форме / 10 сообщений из 10, страница 1 из 1
16.10.2013, 17:15
    #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, 18:25
    #38430208
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход по записям в подчиненной форме
Beal,

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


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