Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Изменение...

Тема: Изменение значения по умолчанию налету

15.06.2007 21:04:44

All

4316 сообщения

Тема: Изменение значения по умолчанию налету

Есть форма, в которой все поля свободны и заполняются из DAO.Recordset объекта, созданного на основе таблицы, а затем значения из полей формы переносятся в Recordset объект.
Необходимо из формы изменить значение по умолчанию в таблице(на основе, которой создается Recordset ) или Recordset-е , для того, чтобы вновь добавляемые записи (в процессе работы с формой) уже имели новое значение по умолчанию для конкретного поля.

(Попытка использовать значение по умолчанию для контрола формы ничего не дает, так как оно переписывается значением по умолчанию из Recordset-а)

Попытка сделать это для таблицы ни к чему хорошему не привела. Для строк приведенных ниже, - получаю сообщение:
Ошибка 3422 Невозможно изменение структуры таблицы. Таблица открыта другим пользователем.
(Другого кроме меня нет, версия несетевая)

Dim My_table As String
Dim My_field As String
Dim My_Value As Long

Dim My_dbs As Database
Dim My_tdf As TableDef
Dim Current_field As Field
Set My_dbs = CurrentDb
My_table = "Сотрудники"
My_field = "Зарплата"
My_Value = 5000
Set My_tdf = My_dbs.TableDefs(My_table)
Set Current_field = My_tdf.Fields(My_field)
Current_field.DefaultValue = My_Value
My_dbs.Close
Exit Sub

Может сделать это через Recordset, но не знаю как и поможет ли это?

Помогите решить проблему.
Евгений.

P.S. Общий раздел по таблицам
Автор: Евгений от 0:00:00 Источник ...

15.06.2007 21:04:44

All

4316 сообщения

RE: Изменение значения по умолчанию налету

1. Изменить значение в таблице по умолчанию не получится, т.к. она у Вас уже открыта процессом.
2. Лучше значение по умолчанию менять не в таблице, а в форме (обычной, табличной). Например, ввели значение в поле f1, тогда значение по умолчанию после обновления поля будет Me.f1.DefautValue = "'" & Me.f1.Value & "'"

P.S. Общий раздел по таблицам
Автор: Admin от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Изменение...

Поиск

Список форумов

Начало | Forums