5 строк кода

Для доступа к значению поля со списком можно воспользоваться двумя способами. Рассмотрим на примере, где P_K_MES это поле со списком, в котором можно выбрать месяц.

Источником данных для такого запроса может служить такой запрос:

SELECT K_MES, T_MES FROM s_mes;

Атрибуты настроены так:

• Макет
  
• Данные
  

Рассмотрим пример чтения текущего выбранного значения:

    Dim iMes As Integer '-- номер месяца
    Dim stMes As String '-- имя месяца

    '-- значение присоединенного столбца
    iMes = nz(Me.P_K_MES, 0)
    iMes = nz(Me.P_K_MES.Value, 0)
    iMes = nz(Me.P_K_MES.Column(0), 0)

    '-- значение произвольной колонки
    stMes = nz(Me.P_K_MES.Column(1), "Не выбрано")

    MsgBox "Выбранные значения: Номер - " & iMes & ", Название - " & stMes & ".", vbInformation

Первое на что стоит обратить внимание это то, что мы всегда можем прочитать значение колонок только выбранной строчки. Если ничего не выбрано и нет значения по умолчанию, то атрибуты Value и Column вернут Null.

Как Вы заметили, к значению присоединенного столбца можно обратиться двумя способами при помощи Value и Column. Колонки нумеруются с 0, в порядке следования полей в запросе. Но в атрибутах нумерация с 1-ы. Пример скачать тут.

До встречи!

(с) Скоков Сергей

Подписаться на: RSS или e-mail рассылку или добавить в ЖЖ друзья.

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

Гораздо быстрей и дешевле сделать добавление записей в таблицу-справочник непосредственно из самого поля со списком. Для этого есть специальное событие NotInList (Отсутсвует в списке). Что-бы каждый раз не писать код для добавления записей в таблице написана простая функция VC_AddToSpr(), она живет у меня в модуле mc_form.

Рассмотрим в качестве примера обработчик события для поля со списком с названиями стран:

Private Sub P_K_STRANA_NotInList(NewData As String, Response As Integer)
    Response = mc_Form.VC_AddToSpr("s_strana", "T_STRANA", NewData)
End Sub

Как видите все просто. Нужно только указать имя таблицы, поле, куда сохранить данные, сами данные и обязательно результат функции VC_AddToSpr() записать в переменную Response. Иначе не заработает!

Варианты допустимых значений переменной Response и их описание можно посмотреть в справке MS Acceess.

А вот и сама функция:

Public Function CM_AddToSpr(strTabl As String, strField As String, NewData As Variant) As Integer
' Добавляет в справочник значение, используется на формах для полей со списком.
' Вызывать на событие NotInList (отсутствует в списке)
' Вход:
'       strTabl    - имя таблицы
'       strField   - имя поля
'       NewData - новое значение
' Выход: возвращает значение для параметра события - Response

    If Trim(NewData) = "" Then
        MsgBox "Вы ввели пустую строку. В введенной строке должны присутствовать видимые символы.", vbExclamation
        CM_AddToSpr = acDataErrDisplay
    End If

    If MsgBox("Введённое значение '" & NewData & "' отсутствует в справочнике, добавить справочник?", vbYesNo + vbQuestion, "Вопрос") = vbYes Then
        CM_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

До встречи!

(с) Скоков Сергей

Подписаться на: RSS или e-mail рассылку или добавить в ЖЖ друзья.