Перенос данных поля со списком из access в word

[an10]

Здравствуйте
Подскажите, пожалуйста, как модифицировать код к кнопке в форме БД:
если в форме "История_болезни" имеются Поля со списком: Код_отд, Код_госпр, Код_хир. Внутри этих полей со списком отображаются значения, соответствующие их идентификаторам из справочников-таблиц Отделение, Госпрограмма и Хирург. Сама же форма "История_болезни" основана на таблице-справочнике, которая связана с таблицами Отделение, Госпрограмма, Хирург через ранее указанные коды.

Нужно сделать так, чтобы в шаблон word (Отчет_коронарография) переносилось само значение поля Код_отд, Код_госпр, Код_хир, а не его идентификационный код.
Надеюсь, проблема понятно сформулирована)
Заранее спасибо!

Option Compare Database
Option Explicit
Function funOutputWord(strPathDot As String, strPathWord As String) As Boolean
On Error GoTo Err_
Dim app As Word.Application
Dim DlgUser As Integer
If Dir(strPathWord) <> "" Then
DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbYesNo, "admin")
If DlgUser = vbNo Then
Set app = CreateObject("Word.Application")
With app
.Visible = True
.Documents.Open strPathWord
End With
Set app = Nothing
Else
GoTo nn
End If
Else

nn:
Set app = New Word.Application
app.Visible = True
app.Documents.Add strPathDot
With app.ActiveDocument
.Bookmarks.Item("ФИО_пац").Range.Te xt = Nz(ФИО_пац, "")
.Bookmarks.Item("ИБ_номер").Range.T ext = Nz(Номер_истории, "")
.Bookmarks.Item("Отделение").Range. Text = Nz(Код_отд, "")
.Bookmarks.Item("Номер_иссл").Range .Text = Nz(Номер_операции, "")
.Bookmarks.Item("Время_иссл").Range .Text = Nz(Время_операции, "")
.Bookmarks.Item("Госпрограмма").Ran ge.Text = Nz(Код_госпр, "")
.Bookmarks.Item("Рентгенохирург").R ange.Text = Nz(Код_хир, "")
.Bookmarks.Item("Дата").Range.Text = Nz(Дата_исследования, "")
Dim p, r
p = CurrentProject.Path & "\Коронарография\"
r = Mid(strPathWord, InStrRev(strPathWord, "."))
.SaveAs p & Forms!История_болезни!Номер_операци и & r

End With
Set app = Nothing
End If
funOutputWord = True
Exit_:
Exit Function
Err_:
funOutputWord = False
Err.Clear
app.Quit
Resume Exit_
End Function

Private Sub Кнопка101_Click()
Dim strPathDot As String, strPathWord As String
strPathDot = CurrentProject.Path & "\" & "Отчет_коронарография.dotx"
strPathWord = CurrentProject.Path & "\" & "Коронарография.docx"
Call funOutputWord(strPathDot, strPathWord)
End Sub

[NeoSocionic]

Нужно чтобы здесь :
.Bookmarks.Item("Отделение").Range. Text = Nz(Код_отд, "")
стояло другое имя, не "Код_отд"
Обычно текст храниться в справочнике рядом с кодом. Нужно открыть в базе справочник отделений и посмотреть, как называется поле, в котором хранится текст.
Однако это поле может не входить в набор данных для формы. Тогда придется писать промежуточный запрос, с подключением нужных полей.

[an10]

А Вы не подскажете, как приблизительно должен выглядеть этот запрос. Если Код_отд хранится в таблице Отделение (существует также форма для этой таблицы Отделение). Само значение идентификатора тоже называется Отделение.

[LittleFatCat]

Доброго времени суток!

Если у Вас таблица называется Отделение, где есть Код_отд и Название отделения в поле Отделение, то можно поступить так:

.Bookmarks.Item("Отделение").Range. Text = Nz(Код_отд, "")
записать как
.Bookmarks.Item("Отделение").Range. Text = Dlookup("Отделение", "Отделение", "Код_отд =" & Код_отд)

C уважением Анатолий