Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Защита от случайных изменений / 8 сообщений из 8, страница 1 из 1
07.09.2004, 08:00:01
    #32682393
Vitaly223
Vitaly223
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита от случайных изменений
Задача
На форме в режиме таблицы отображается список товаров через поле "Наименование". Наименование товара можно менять только после нажатия кнопки F2 (включение режима редактирования)
Решение
1. Для формы ставится перехват нажатия клавиши.
2. Свойсво формы AllowEdits =False
3. Записывается обработка следующих событий
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode =  113  And Shift =  0  Then Me.AllowEdits = True
End Sub
Private Sub Наименование_AfterUpdate()
  Me.Refresh
End Sub
Private Sub Наименования_LostFocus()
  Me.AllowEdits = False
End Sub
Вопрос
Усложнение задачи
В таблице присутствует еще поле Брэнд (обязательное для заполнения).
При добавлении нового товара через ввод наименования возникает ошибка
на команде Me.Refresh.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 08:20:28
    #32682404
aleks2
aleks2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита от случайных изменений
А ты убери Refresh, зачем он нужен?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 09:09:42
    #32682456
Vitaly223
Vitaly223
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита от случайных изменений
Если так, то нажимаю F2 на поле Наименование изменаю товар, перехожу на другое поле ЭТОЙ записи при включенном режиме редактирования. А надо чтобу он отключался при переходах из ячейки в ячейку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 09:12:54
    #32682459
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита от случайных изменений
И причем здесь рефреш?
Ты справку по этому методу читал?
Видел там слова про то, что рефреш делает AllowEdits=False? Не видел? Потому что их там нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 09:26:18
    #32682478
Vitaly223
Vitaly223
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита от случайных изменений
AllowEdits не переключается сразу, если запись изменяется!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 09:29:56
    #32682484
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита от случайных изменений
Ну и сделай чтобы запись не изменялась
На этом форуме работает поиск, вот и поищи по словам "программное сохранение записи"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 09:34:14
    #32682496
Vitaly223
Vitaly223
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита от случайных изменений
Выход из ситуации
Код: plaintext
1.
2.
3.
4.
Private Sub Наименование_AfterUpdate()
 If Not IsNull(Me.Брэнд) Then
   Me.Refresh
  End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 09:35:29
    #32682499
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита от случайных изменений
это тебе поиск такое выдал? ну-ну
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Защита от случайных изменений / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 360ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1671954]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 46ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 243ms
total:  360ms
x
x
Закрыть


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