powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Еще один вопрос по Forms
12 сообщений из 12, страница 1 из 1
Еще один вопрос по Forms
    #32787042
Mari.P
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть ленточная форма на основе таблицы , одно из полей - поле со списком
Необходимо запретить выбор из списка в уже существующей записи, но при этом разрешить выбор из списка при вводе новой записи. Подскажите плиз профессионалы
...
Рейтинг: 0 / 0
Еще один вопрос по Forms
    #32787047
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
private sub form_current()
  me![Список].enabled=me.newrecord
end sub

private sub form_delete(cancel as integer)
  me![список].enabled=(me.recordsetclone.recordcount= 1 )
end sub
...
Рейтинг: 0 / 0
Еще один вопрос по Forms
    #32787054
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
можно например так:
в событии OnCurrent формы пишешь:

Код: plaintext
    me.comboboxname.locked = not me.NewRecord
...
Рейтинг: 0 / 0
Еще один вопрос по Forms
    #32787060
ЛП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Form_Current()
    Me!ПолеСоСписком.Locked = Not Me.NewRecord
End Sub

Private Sub Form_BeforeInsert(Cancel As Integer)
    Me!ПолеСоСписком.Locked = False
End Sub

Private Sub Form_AfterUpdate()
    Me!ПолеСоСписком.Locked = True
End Sub

Private Sub Form_Undo(Cancel As Integer)
    Me!ПолеСоСписком.Locked = Not Me.NewRecord
End Sub
...
Рейтинг: 0 / 0
Еще один вопрос по Forms
    #32787061
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
опоздал :)
...
Рейтинг: 0 / 0
Еще один вопрос по Forms
    #32787063
SBL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Mari.PЕсть ленточная форма на основе таблицы , одно из полей - поле со списком
Необходимо запретить выбор из списка в уже существующей записи, но при этом разрешить выбор из списка при вводе новой записи. Подскажите плиз профессионалы

если существующие записи не меняются, то
Allow editions - No
в Properties формы.......
...
Рейтинг: 0 / 0
Еще один вопрос по Forms
    #32787087
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ЛП забыл про delete последней записи, а я про все остальное.
2ЛП
А зачем beforeInsert?
...
Рейтинг: 0 / 0
Еще один вопрос по Forms
    #32787099
Mari.P
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо большое работает отлично!
Только вот это зачем?

private sub form_delete(cancel as integer)
me![список].enabled=(me.recordsetclone.recordcount=1)
end sub
и без него все ОК
...
Рейтинг: 0 / 0
Еще один вопрос по Forms
    #32787113
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GeoЛП забыл про delete последней записи, а я про все остальное.

А при удалении последней записи разве Current не случится?

Geo
2ЛП
А зачем beforeInsert?
А хрен знает, не нужен наверное.
...
Рейтинг: 0 / 0
Еще один вопрос по Forms
    #32787116
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Насколько я помню, нет.
...
Рейтинг: 0 / 0
Еще один вопрос по Forms
    #32787124
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Лох Позорный Geo
2ЛП
А зачем beforeInsert?
А хрен знает, не нужен наверное.
Не-а, не нужен.
...
Рейтинг: 0 / 0
Еще один вопрос по Forms
    #32787128
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нашел про удаление:
http://www.sql.ru/forum/actualthread.aspx?tid=122899
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Еще один вопрос по Forms
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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