Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Курсор
 
 автор: SuperSem   (21.09.2010 в 21:40)   личное сообщение
 
 

Привет Всем!!!
На форме отображаеся таблица. При добавлении новой записи, в таблицу, запись нормально добавляется в конец таблицы, ( с помощью SQL), за тем, чтобы увидеть добавленную запись, я обновляю форму, после обновления появляется новая запись, но курсор при этом переходит на первую запись......... как от этого избавиться?!? Уже перепробывал кучу вариантов, не помогает...............

  Ответить  
 
 автор: Гоблин   (21.09.2010 в 23:19)   личное сообщение
 
 

Попробуй в конце кода после запроса добавления поставить не requery а me.form.refresh

  Ответить  
 
 автор: SuperSem   (22.09.2010 в 00:35)   личное сообщение
 
 

не, я так уже делал, не хочет..... ну какое то средство должно быть.....

  Ответить  
 
 автор: Explorer   (22.09.2010 в 09:04)   личное сообщение
 
 

:)

  Ответить  
 
 автор: Силblч   (22.09.2010 в 09:09)   личное сообщение
 
 

+1 :)

  Ответить  
 
 автор: kot_k_k   (22.09.2010 в 09:20)   личное сообщение
 
 

всё перемигиваетесь, нет шоб человеку помочь
:() :()

п.с. час ты где????

  Ответить  
 
 автор: SuperSem   (22.09.2010 в 10:20)   личное сообщение
 
 

О_о

  Ответить  
 
 автор: Explorer   (22.09.2010 в 10:27)   личное сообщение
 
 

какие варианты пробовал и что хочешь получить?
на какую запись хочешь попасть после инсерта?

  Ответить  
 
 автор: Силblч   (22.09.2010 в 11:08)   личное сообщение
 
 

+2! :)

  Ответить  
 
 автор: kot_k_k   (22.09.2010 в 12:25)   личное сообщение
 
 

есть же переход на последнюю запись - или хочется сохранить тот порядок строк

  Ответить  
 
 автор: Дядя Федор   (22.09.2010 в 12:51)   личное сообщение
 
 

Секретно! Если просто на последнюю.
Me.Requery
DoCmd.GoToRecord , , acLast
НО Если новая запись связана с какой-нибудь сортировкой (напр. по датам), то надо уточнить вопрос - встать на последнюю в наборе или на последнюю введенную (она м.б. и в середине)

  Ответить  
 
 автор: kot_k_k   (22.09.2010 в 15:22)   личное сообщение
 
 

!Архи секректно!
я думаю нужно чтобы все строки которые видны до ввода после обновления остались на тех же местах + нижняя - новая.

  Ответить  
 
 автор: Lukas   (22.09.2010 в 15:51)   личное сообщение
 
 

Нафинг табличные/ленточные формы, и проблемы не будет такой никогда.

  Ответить  
 
 автор: Дядя Федор   (22.09.2010 в 16:33)   личное сообщение
 
 

все в PDF

  Ответить  
 
 автор: Гоблин   (22.09.2010 в 21:28)   личное сообщение
 
 

Заменить подчиненную форму на список и совместить ввод данных с поиском. Сортировать по определенному критерию.

  Ответить  
 
 автор: SuperSem   (22.09.2010 в 23:45)   личное сообщение
 
 

Вот ты правильно мыслишь! Только как это сделать.... Если на этой же форме где и таблица используешь "" DoCmd.GoToRecord , , acLast"", то все прекрасно работает, только вот проблема в том, что форма является дочерней, и мне с главной формы надо силой мысли на нее повлеять....

  Ответить  
 
 автор: Силblч   (23.09.2010 в 08:47)   личное сообщение
 
 

ещё можно попробовать установить фокус на дочернюю

  Ответить  
 
 автор: Дядя Федор   (23.09.2010 в 09:02)   личное сообщение
 
 

А Силыч раньше очнулся

  Ответить  
 
 автор: Дядя Федор   (23.09.2010 в 09:02)   личное сообщение
 
 

Установи фокус на дочернюю. Или совет из базы знаний Refer_XP Егорова:
2. (Процедура в главной форме):

Dim sfrm As Form 
Set sfrm = Me![Имя элемента "Подчиненная форма"].Form 
With sfrm.RecordsetClone 
.MoveLast 
if Not .EOF Then sfrm.Bookmark = .Bookmark 
End With 

  Ответить  
 
 автор: SuperSem   (23.09.2010 в 10:24)   личное сообщение
 
 

Dim sfrm As Form
Set sfrm = Me![ "Подчиненная форма"].Form
With sfrm.RecordsetClone
.MoveLast
if Not .EOF Then sfrm.Bookmark = .Bookmark
End With
Вот это работает так, как надо! Большое спасибо !!!

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList