ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отобразить все записи при переходе на новую?!
25 сообщений из 25, страница 1 из 1
Отобразить все записи при переходе на новую?!
    #32711456
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mufta_Vlad
Гость
Уважаемые знатоки! Вопрос такой:
Как отобразить все (предыдущие) записи при переходе на новую?
Пример: есть форма+подчиненная, при манипуляциях с главной, отображаются данные в подчиненной. Необходимо перевести фокус на новую строчку при том, чтобы остались видны предыдущие записи. При обычном переводе(...GoToRecordrs, asNew...), если данных больше, чем умещается на экране, отображается только новая строка, а небходимо чтобы пользователь мог видеть и предыдущие. Пользоваться "Select Top.." не могу, т.к веду суммирование по отобранным записям!
Заранее благодарю Всех, кто откликнется!
...
Рейтинг: 0 / 0
25.09.2004, 11:43:22
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711485
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Самое простое, что бы не мучатся, ввод новой записи реализовать через unbound контролы на основной или подчинённой форме.
Надеюсь понятно объяснил? ;)
...
Рейтинг: 0 / 0
25.09.2004, 12:35:41
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711519
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mufta_Vlad
Гость
Если честно, то не очень!
Но все же приятно что откликнулся.
...
Рейтинг: 0 / 0
25.09.2004, 13:27:06
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711524
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Это примерно выглядит так:
1.
...
Рейтинг: 0 / 0
25.09.2004, 13:45:52
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711526
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
а при отрытии формы так:
...
Рейтинг: 0 / 0
25.09.2004, 13:46:27
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711540
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mufta_Vlad
Гость
Это касается только для ввода одной записи, без возможности выбора других, для корректировки. Клиент изначально был против такой постановки задачи. Ему необходимо оперативно вносить измененя в базу. Хотел бы приложить картинку своей базы, да только не сообразить, как ее вставить в сообщение. Сорри! Да и картинка по размерам больше 70кб (218кб)
...
Рейтинг: 0 / 0
25.09.2004, 14:20:01
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711542
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Записи корректировать можно и в основной форме, а добавлять таким образом, оперативность при грамотном подходе не пострадает. Добавлять записи можно и путём нажатия на Enter (конечно после проверки корректности введённых данных).
...
Рейтинг: 0 / 0
25.09.2004, 14:24:28
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711557
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mufta_Vlad
Гость
Спасибо Kelme ! По логике программирования, оно конечно вернее, строить форму именно так, но как быть если главная форма служит только для построения подчиненной и клиента ни как не устраивает предложенный вами вариант. Простите, что снова повтаряюсь, но может существует какой-нибудь способ, что то вроде ...GoToRecords, asNew+... или какие другие варианты! Еще раз спасибо, за то, что откликнулись!
...
Рейтинг: 0 / 0
25.09.2004, 14:58:40
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711570
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Вообщем есть такой вариант, может устроит:
это вешаешь на OnClick кнопки для добавления записи

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
 dim X as Long  'кол-во записей, помещающихся на форме 
    X =  10   'например 
    if Me.Recordset.RecordCount >  0  then
       Me.Recordset.MoveLast
       if X > Me.Recordset.RecordCount then X = Me.Recordset.RecordCount
       Me.Recordset.Move -X
    endif
    DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
...
Рейтинг: 0 / 0
25.09.2004, 15:22:41
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711572
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
ЗЫ: Код приблизительный ;)
...
Рейтинг: 0 / 0
25.09.2004, 15:24:26
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711581
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mufta_Vlad
Гость
Попробовал, результат остался прежний! За идею спасибо!
...
Рейтинг: 0 / 0
25.09.2004, 16:04:09
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711588
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
автор
Попробовал, результат остался прежний!


а у меня сработало...
...
Рейтинг: 0 / 0
25.09.2004, 16:17:41
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711599
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mufta_Vlad
Гость
Ошибка! Пишет такой-то объект не открыт! Но ведь у меня он является подчиненой формой.. Пробовал ставить фокус, результат прежний!
...
Рейтинг: 0 / 0
25.09.2004, 16:39:02
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711602
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
какой Access используешь?
...
Рейтинг: 0 / 0
25.09.2004, 16:41:22
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711610
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Универсальный вариант (97 и выше):
Код: plaintext
1.
2.
3.
4.
5.
    Me.form1.Form.RecordsetClone.MoveLast
    Me.form1.Form.RecordsetClone.Move - 10 
    Me.form1.Form.Bookmark = Me.form1.Form.RecordsetClone.Bookmark
    Me.form1.SetFocus
    DoCmd.GoToRecord acActiveDataObject, , acNewRec
...
Рейтинг: 0 / 0
25.09.2004, 16:55:38
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711611
Фотография Deminik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deminik
Участник
На этом коде может ссылка на Ме слететь...
...
Рейтинг: 0 / 0
25.09.2004, 16:58:41
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711614
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
автор
На этом коде может ссылка на Ме слететь...


?
...
Рейтинг: 0 / 0
25.09.2004, 17:01:10
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711615
Фотография Deminik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deminik
Участник
Других объектов не видать.... не форма же....
...
Рейтинг: 0 / 0
25.09.2004, 17:04:16
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711616
Фотография Deminik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deminik
Участник
Я имел ввиду: у него орет акес: "Объект не открыт !!!"... Или ссылка на Ме.... или форма закрыта.... или из модуля другого он это Ме использует....
...
Рейтинг: 0 / 0
25.09.2004, 17:06:18
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711617
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Deminik говоришь загадками ;)

вариант универсальный в том плане, что если его разместить на событие OnClick кнопки в форме, то это будет работать в Access 97 и выше ;)

вариант с Me.Recordset в Acc97 не прокатывает, не такого свойства у формы.
...
Рейтинг: 0 / 0
25.09.2004, 17:09:02
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711620
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Последний пост отностится к 987409, пока писал ты ещё один пост накатал;)
...
Рейтинг: 0 / 0
25.09.2004, 17:10:58
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32711621
Фотография Deminik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deminik
Участник
2 Kelme: Поняли друг друга :)

2 Муфта: Ты бы написал - че именно за ошибка... на какой строке... какой объект не открыт...
...
Рейтинг: 0 / 0
25.09.2004, 17:11:52
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32712227
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mufta_Vlad
Гость
Доброго Всем утра! На выходных не мог выйти в с вами на связь, извиняйте!
Ребята, вариант Kelme у меня сработал лишь на главной форме! А вот если в форме присутсвует подчиненая и именно ее требуется перевисти на нову строку, тут-то и облом-с... Логически я понимаю, что необходимо передать управления на подчиненую форму и лишь за тем применять код от Kelme ! Приведу маленький кусочек своего кода:

Me.Zakupki.Form.RecordSource = sel & rs & where1 & srt 'готовлю подчиненую
Me.Zakupki.SetFocus 'передаю ей фокус
Dim X As Long 'кол-во записей, помещающихся на форме
X = 10 'например
MsgBox Me.Recordset.RecordCount 'просматриваю номер рекордсета=1
If Me.Recordset.RecordCount > 0 Then
Me.Recordset.MoveLast
If X > Me.Recordset.RecordCount Then X = Me.Recordset.RecordCount
Me.Recordset.Move -X
MsgBox Me.Recordset.RecordCount 'просматриваю номер рекордсета=1
End If
DoCmd.GoToRecord , , acNewRec

Я так понимаю, что управления передать на подчиненую мне не удалось! И результаты от MsgBox получаю для главной формы. Подскажите, что мне необходимо сделать, чтобы этот код сработал в подчиненой форме.

P.S. Ребята, огромное Всем вам спасибо! Особенно Kelme ! Пока другие кода проверить не успел буду дерзать и надеюсь на вашу помощь!
...
Рейтинг: 0 / 0
27.09.2004, 10:36:16
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32712368
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
не
Код: plaintext
1.
 MsgBox Me.Recordset.RecordCount

а:
Код: plaintext
1.
2.
 MsgBox me.Zakupki.Form.RecordSource.RecordCount

далее по тексту аналогично;)
...
Рейтинг: 0 / 0
27.09.2004, 11:44:34
| Ответить | Цитировать | Написать  
Отобразить все записи при переходе на новую?!
    #32713116
Mufta_Vlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mufta_Vlad
Гость
Понедельник однако! Да еще и без света просидел 4 часа.. Исправил и заработало, ур-р-ра!
Огромное спасибо Kelme за твое долготерпение!
Спасибо всем!
...
Рейтинг: 0 / 0
27.09.2004, 15:56:23
| Ответить | Цитировать | Написать  
25 сообщений из 25, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отобразить все записи при переходе на новую?!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32711557&tid=1671498]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 46ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 187ms
total:  304ms
созд. / загр.: 304ms
x
x
Закрыть


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