Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вопрос по ListBox / 18 сообщений из 18, страница 1 из 1
11.11.2002, 11:42
    #32066375
MichaelGK
MichaelGK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
ADP MSAXP+MSSQL2000.
На бефор апдейт листбокса спрашиваю юзера "Продолжить или откатить?"... Если юзер отвечает "No" делаю Cancel = True... Но в листбоксе остается новое значение!!!... Дописал реквери листбокса, начинается ругань: "Перед обновлением нужно сохранить значение поля"... Как это дело грамотно разрешить, т.е. откатить листокс в исходное состояние?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2002, 13:04
    #32066425
MichaelGK
MichaelGK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
Господа программеры, Help..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2002, 13:34
    #32066442
Latuk
Latuk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
Попробуй SendKeys "{Esc}"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2002, 13:46
    #32066452
MichaelGK
MichaelGK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
Годится... Latuk, благодарю...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2002, 13:59
    #32066467
ДиД
ДиД
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
ПолеСоСписком.Undo
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2002, 14:59
    #32066520
MichaelGK
MichaelGK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
То Дид.
Undo почему-то не проходит...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2002, 15:11
    #32066526
ДиД
ДиД
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
У меня так работает
Private Sub InMinimal_BeforeUpdate(Cancel As Integer)
Cancel = True
InMinimal.Undo
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2002, 15:21
    #32066533
MichaelGK
MichaelGK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
Да, тоже самое, но не проходит... без всяких сообщений, просто оставляет новое значение. А по ЗендКейсу все нормально... Сомнительно, но может сказывается, что у меня источник - список значений... на источнике - запросе или таблице я не пробывал, некогда.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
13.01.2004, 14:57
    #32374515
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
Уважаемые волшебники! -:))
А как тоже самое сделать у ПолеСоСписком?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2004, 15:02
    #32374529
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
тоже самое - сделать точно так же
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2004, 15:11
    #32374560
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
Привет ЛП!
Чевото у меня... это... того ... никак.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub ПолеСоСписком38_AfterUpdate()
Dim response
If IsNull(ПолеСоСписком16) = True Then
response = MsgBox( "Пожалуйста, выберите месяц." , vbInformation)
SendKeys  "{Esc}" 
DoCmd.GoToControl  "ПолеСоСписком16" 
ПолеСоСписком16.Dropdown
Exit Sub
End If
end sub


Где у меня ошибка? Может потому что у меня все это на событиии AfterUpdate?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2004, 15:20
    #32374586
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
Где у меня ошибка?
Не напрашивайся :)

Может потому что у меня все это на событиии AfterUpdate?
Почему-то я в этом уверен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2004, 15:41
    #32374624
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
Чего-то не выходит. Я уже и вот так попробовал:

Код: plaintext
1.
2.
3.
Private Sub ПолеСоСписком38_BeforeUpdate(Cancel As Integer)
Cancel = True
Me.ПолеСоСписком38.Undo
End Sub


У меня Access'97, mdb.
Тип источника строк: список значений (2001,2002,2003,...)
Значение по умолчанию: =Year(Now())
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2004, 15:42
    #32374627
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
Свободный контрол или связанный?
Если свободный - то SendKeys. На BeforeUpdate.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2004, 16:19
    #32374731
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
Помоему свободный... В данном случае в него значения забиты.
И почему-то не работает....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.01.2004, 16:20
    #32374733
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
И он ни счем не связан...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2004, 10:40
    #32375323
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
TO> ЛП...

Попробовал так как ты посоветовал, но таже бредятина, не работает и все тут...

Стал разбираться и выяснилось, что не работало почему-то из-за того, что у меня с начала шел MsgBox, а потом SendKeys "{Esc}".

Поставил SendKeys "{Esc}" в начало и все заработало.

З.Ыэ Почему так? Может кто объяснит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2004, 10:45
    #32375330
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по ListBox
Потому что у тебя месседжбокс и ловил этот самый ESC
А надо было, чтобы ловил его листбокс
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вопрос по ListBox / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 358ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1677230]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 209ms
total:  358ms
x
x
Закрыть


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