Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отобразить все записи при переходе на новую?! / 25 сообщений из 25, страница 1 из 1
25.09.2004, 11:43:22
    #32711456
Mufta_Vlad
Mufta_Vlad
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
Уважаемые знатоки! Вопрос такой:
Как отобразить все (предыдущие) записи при переходе на новую?
Пример: есть форма+подчиненная, при манипуляциях с главной, отображаются данные в подчиненной. Необходимо перевести фокус на новую строчку при том, чтобы остались видны предыдущие записи. При обычном переводе(...GoToRecordrs, asNew...), если данных больше, чем умещается на экране, отображается только новая строка, а небходимо чтобы пользователь мог видеть и предыдущие. Пользоваться "Select Top.." не могу, т.к веду суммирование по отобранным записям!
Заранее благодарю Всех, кто откликнется!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 12:35:41
    #32711485
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
Самое простое, что бы не мучатся, ввод новой записи реализовать через unbound контролы на основной или подчинённой форме.
Надеюсь понятно объяснил? ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 13:27:06
    #32711519
Mufta_Vlad
Mufta_Vlad
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
Если честно, то не очень!
Но все же приятно что откликнулся.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 13:45:52
    #32711524
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
Это примерно выглядит так:
1.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 13:46:27
    #32711526
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
а при отрытии формы так:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 14:20:01
    #32711540
Mufta_Vlad
Mufta_Vlad
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
Это касается только для ввода одной записи, без возможности выбора других, для корректировки. Клиент изначально был против такой постановки задачи. Ему необходимо оперативно вносить измененя в базу. Хотел бы приложить картинку своей базы, да только не сообразить, как ее вставить в сообщение. Сорри! Да и картинка по размерам больше 70кб (218кб)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 14:24:28
    #32711542
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
Записи корректировать можно и в основной форме, а добавлять таким образом, оперативность при грамотном подходе не пострадает. Добавлять записи можно и путём нажатия на Enter (конечно после проверки корректности введённых данных).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 14:58:40
    #32711557
Mufta_Vlad
Mufta_Vlad
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
Спасибо Kelme ! По логике программирования, оно конечно вернее, строить форму именно так, но как быть если главная форма служит только для построения подчиненной и клиента ни как не устраивает предложенный вами вариант. Простите, что снова повтаряюсь, но может существует какой-нибудь способ, что то вроде ...GoToRecords, asNew+... или какие другие варианты! Еще раз спасибо, за то, что откликнулись!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 15:22:41
    #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:24:26
    #32711572
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
ЗЫ: Код приблизительный ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 16:04:09
    #32711581
Mufta_Vlad
Mufta_Vlad
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
Попробовал, результат остался прежний! За идею спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 16:17:41
    #32711588
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
автор
Попробовал, результат остался прежний!


а у меня сработало...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 16:39:02
    #32711599
Mufta_Vlad
Mufta_Vlad
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
Ошибка! Пишет такой-то объект не открыт! Но ведь у меня он является подчиненой формой.. Пробовал ставить фокус, результат прежний!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 16:41:22
    #32711602
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
какой Access используешь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 16:55:38
    #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:58:41
    #32711611
Deminik
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
На этом коде может ссылка на Ме слететь...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2004, 17:01:10
    #32711614
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
автор
На этом коде может ссылка на Ме слететь...


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

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

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

2 Муфта: Ты бы написал - че именно за ошибка... на какой строке... какой объект не открыт...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2004, 10:36:16
    #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, 11:44:34
    #32712368
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отобразить все записи при переходе на новую?!
не
Код: plaintext
1.
 MsgBox Me.Recordset.RecordCount

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

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


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