VPF::столбец подстановок - Форум программистов

Свят86

Дата 29.12.2008, 20:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

в таблице используется столбец подстановок из другой таблицы, можно ли установить связь, чтоб была возможность ввода в таблице значений отличных от находящихся в таблице подстановок так, чтоб эти значения в нее добавлялись???
если нельзя сделать это путем создания стандартных связей, то подскажите пожалуйста какой-нибудь макрос или программный код, который это сделает!!! заранее спасибо!!!

bopoha

Дата 29.12.2008, 21:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Свят86, необходимо обработать событие поля со списком NoInList (Отсутствует в списке). Т.е. добавить значение в таблицу. Если очень нужен пример, маякните на почту/ICQ (см. профиль), то вышлю.

--------------------

Как создавать приложения на MS Access

bopoha

Дата 1.1.2009, 03:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Код


Public Function AddToSpr(strTabl As String, strField As String, NewData As Variant) As Integer
' Добавляет в справочник значение, используется на формах для полей со списом.
' Вызывать на событие NotInList (отсутствует в списке)
' Вход:
'       strTabl     - имя таблицы
'       strField    - имя поля
'       NewData     - новое значение
' Выход: возвращает значение для параметра события - Response
    If MsgBox("Введённое значение '" & NewData & "' отсутствует в справочнике, добавить справочник?", vbYesNo + vbQuestion, "Вопрос") = vbYes Then
        AddToSpr = acDataErrAdded
        If VarType(NewData) <> vbString Then
            CurrentDb.Execute "INSERT INTO " & strTabl & " (" & strField & ") Values (" & NewData & ");"
        Else
            CurrentDb.Execute "INSERT INTO " & strTabl & " (" & strField & ") Values ('" & Trim(NewData) & "');"
        End If
    End If

End Function

Пример использования:

Код


Private Sub K_DOK_OSN_NotInList(NewData As String, Response As Integer)
    Response = AddToSpr("s_dok_osn", "T_DOK_OSN", NewData)
End Sub

Это сообщение отредактировал(а) bopoha - 12.1.2009, 11:52

--------------------

Как создавать приложения на MS Access

Свят86

Дата 12.1.2009, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

спасибо за помощь, только вот возникло еще пару вопросов:
1) работаю в 2007 ACCESS чтобы добавил значение нужно нажать кнопочку обновить все, что и куда вписать чтоб делалось автоматом?
2)после нажатия кнопочки обновить все значение добавляется в список, но проподает в поле, тоесть его нужно вводить заново! как этого избежать?

Akina

Дата 12.1.2009, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Цитата(Свят86 @ 12.1.2009, 11:26

)

что и куда вписать чтоб делалось автоматом?

Refresh/Requery

Цитата(Свят86 @ 12.1.2009, 11:26

)

как этого избежать?

Запомнить и потом восстановить

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Свят86

Дата 12.1.2009, 11:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

я понимаю что если шаришь в программирование под Access, то сложностей вобще никаких!!! но когда не особо догоняешь к чему писать рефрешь и потыкавшись в справке так ничего и не получилось, то эти два слова фиг знает куда ставить!!! к тому же ведь обновляться должны какие-то объекты!!! подскажите плиз подробнее!!!

bopoha

Дата 12.1.2009, 11:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Свят86, оба вопросы мне не понятны. Вы про ту же самую проблемму спрашиваете - добавление нового значения в поле со списком?

--------------------

Как создавать приложения на MS Access

Akina

Дата 12.1.2009, 11:54 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Цитата(Свят86 @ 12.1.2009, 12:20

)

обновляться должны какие-то объекты

Форма и/или её источник данных

--------------------

bopoha

Дата 12.1.2009, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Во вложениях пример реализации. По просьбе Свят86.

P.S. После загрузки файла, расширение .jpg удалить. Что-то не разрешило мне zip загрузить :-(.

Это сообщение отредактировал(а) bopoha - 12.1.2009, 12:36

Присоединённый файл ( Кол-во скачиваний: 16 )

AddToSpis.zip.jpg 11,77 Kb

--------------------

Как создавать приложения на MS Access

Свят86

Дата 12.1.2009, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

все работает!!! спасибо!!! smile

)))))))))

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »