5 строк кода

Все очень просо:

Function CM_GetDBPath() As String
    Dim db As Database

    With CurrentDb
        CM_GetDBPath = Left(.Name, Len(.Name) - Len(Dir(.Name)))
    End With
End Function

До встречи!

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

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

Для доступа к значению поля со списком можно воспользоваться двумя способами. Рассмотрим на примере, где 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 рассылку или добавить в ЖЖ друзья.