Имеются в рекордсете MyTable поля [Для Word].[diplom] ,[Для Word].[Назва],[Для Word].[Години]
Поле diplom логическое обозначающее ,если "Да" то этот предмет [Для Word].[Назва] попадает в приложение к диплому, но есть еще записи с этим же предметом ,которые не должны попасть в приложение к диплому (зачеты по тому же предмету) т.е. diplom = "Нет", но часы в этих записях [Для Word].[Години] необходимо добавить к часам записи попадающей в диплом.

Что было яснее на примере:
имеющийся рекордсет выдает для печати
[Для Word].[Назва] [Для Word].[Години] [Для Word].[diplom]
Информатика 100 Да
Информатика 60 Нет
Информатика 70 Нет
а надо получить для печати :
Информатика 230 (100+60+70)

Какой код или какой метод можно использовать для модификации нижестоящего кода:


Имеется рабочий код:
Private Sub Кнопка16_Click()
Dim app As Word.Application
Dim strPathDot As String, strPathWord As String

strPathDot = CurrentProject.Path & "\Комар.dot"
strPathWord = CurrentProject.Path & "\Додаток " & Forms![Word]![Фамилия] & " " & Forms![Word]![имя_о] & ".doc"

'Если есть документ с таким же названием и местом расоложения, выдается сообщение о замене
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
'Dim w As Variant
'w = FullDate(Forms![Word]![dn])
On Error Resume Next
'Вставка данных
.Bookmarks("Фамилия").Range.Text = Forms![Word]![Фамилия]
.Bookmarks("Имя_о").Range.Text = Forms![Word]![имя_о]
.Bookmarks("dn").Range.Text = FullDate(Forms![Word]![dn])
.Bookmarks("ndo").Range.Text = Forms![Word]![ndo]
.Bookmarks("fn").Range.Text = Forms![Word]![fn]
.Bookmarks("bak").Range.Text = Forms![Word]![bak]
.Bookmarks("Специализация").Range.Text = Forms![Word]![Специализация]
.Bookmarks("sp").Range.Text = Forms![Word]![sp]
.Bookmarks("tip_dok").Range.Text = Forms![Word]![tip_dok]
.Bookmarks("bak1").Range.Text = Forms![Word]![bak1]
.Bookmarks("s").Range.Text = Forms![Word]![s]
.Bookmarks("kv").Range.Text = Forms![Word]![kv]

.Bookmarks("ddip").Range.Text = FullDate(Forms![Word]![ddip])
.Bookmarks("ndiplom").Range.Text = Nz(Forms![Word]![ndiplom], "")
.Bookmarks("bdipl_bal").Range.Text = Nz(Forms![Word]![bdipl_bal], "")
.Bookmarks("datdruk").Range.Text = FullDate(Forms![Word]![datdruk])
.Bookmarks("dalshe").Range.Text = Nz(Forms![Word]![dalshe], "")

.Bookmarks("ispit").Range.Text = Nz(Forms![Word]![ispit], "")
.Bookmarks("bispit_bal").Range.Text = Nz(Forms![Word]![bispit_bal], "")
.Bookmarks("npra").Range.Text = Forms![Word]![npra]
.Bookmarks("ispit1").Range.Text = Nz(Forms![Word]![ispit1], "")
.Bookmarks("bispit_bal1").Range.Text = Nz(Forms![Word]![bispit_bal1], "")
.Bookmarks("mn").Range.Text = FullDate(Forms![Word]![mn])
.Bookmarks("os_baza").Range.Text = Nz(Forms![Word]![os_baza], "")
.Bookmarks("longpra").Range.Text = Nz(Forms![Word]![longpra], "")
.Bookmarks("data_dip").Range.Text = FullDate(Forms![Word]![data_dip])
.Bookmarks("npdip").Range.Text = Nz(Forms![Word]![npdip])



If Forms![Word]![fn] = "денна" Then

.Bookmarks("www").Range.Text = Forms![Word]![www]
.Bookmarks("www1").Range.Text = Forms![Word]![www1]
.Bookmarks("www2").Range.Text = Forms![Word]![www2]
.Bookmarks("www3").Range.Text = Forms![Word]![www3]
.Bookmarks("www4").Range.Text = Forms![Word]![www4]
.Bookmarks("termin").Range.Text = Forms![Word]![termin]

Else
.Bookmarks("www").Range.Text = Forms![Word]![zwww]
.Bookmarks("www1").Range.Text = Forms![Word]![zwww1]
.Bookmarks("www2").Range.Text = Forms![Word]![zwww2]
.Bookmarks("www3").Range.Text = Forms![Word]![zwww3]
.Bookmarks("www4").Range.Text = Forms![Word]![zwww4]
.Bookmarks("termin").Range.Text = Forms![Word]![termin1]

End If


Dim MyTable As DAO.Recordset
Set MyTable = CurrentDb.OpenRecordset("SELECT [Для Word].[КодСтудента],[Для Word].[diplom] ,[Для Word].[Назва],[Для Word].[Ба],[Для Word].[Години],[Для Word].[fn],[Для Word].[navk],[Для Word].[navg], [Для Word].[znavk],[Для Word].[znavg] FROM [Для Word] WHERE ((([Для Word].[КодСтудента])=" & Forms![Word]![КодСтудента] & "))")
Dim i As Variant
Dim j As Variant

Dim Назв As Variant
Dim Бал As Variant
Dim Год As Variant

i = 1
Do While Not MyTable.EOF
If (MyTable.Fields("fn")) = "денна" Then
j = CStr(Round(((MyTable.Fields("години")) * (MyTable.Fields("navk")) / (MyTable.Fields("navg"))), 1))
Else
j = CStr(Round(((MyTable.Fields("години")) * (MyTable.Fields("znavk")) / (MyTable.Fields("znavg"))), 1))
End If
Назв = "Назва" & i
Бал = "Ба" & i
Год = "Години" & i

If i >= 1 Then .Bookmarks(Назв).Range.Text = CStr(MyTable.Fields("Назва"))
.Bookmarks(Бал).Range.Text = CStr(MyTable.Fields("Ба"))

.Bookmarks(Год).Range.Text = CStr(MyTable.Fields("Години")) & "/" & j
i = i + 1
MyTable.MoveNext
Loop

MyTable.Close

.SaveAs strPathWord
End With
Set app = Nothing
End If
funOutputWord = True
Exit_:

End Sub

http://www.sql.ru/forum/1098593/dorabotat-kod-dlya-pechati-prilozheniy-k-diplomu