Option Compare Database
Option Explicit

Public ZB1, ZB9, ZU1, ZU9, ZBI1, ZBI9, ZBU1, ZBU9, ZI1, ZI9, ZUI1, ZUI9, B1, B2, D1, B3  As String
Public rsm10, myStr10, vrprib, vrprib1, Dog_Per1 As String, s1 As String

Private Sub Form_Load()
ZBU1 = "<B><U>"
ZBU9 = "</U></B>"
ZBI1 = "<I><B>"
ZBI9 = "</I></B>"
ZB1 = "<B>"
ZB9 = "</B>"
ZU1 = "<U>"
ZU9 = "</U>"
ZI1 = "<I>"
ZI9 = "</I>"
ZUI1 = "<U><I>"
ZUI9 = "</U></I>"
B1 = "<br>"
B2 = "<br>" & "     "
B3 = "<br>" & "          "
'Первая страница договора(лист 12, ШАПКА)

  vrprib = "ДОГОВОР№ " & IIf(IsNull([Договор№]), [Код], [Договор№] & " / " & [Код]) & _
   B1 & "на охрану объектов личного имущества граждан с помощью ПЦО" & _
   B1 & "и техническое обслуживание технических средств охраны"
    With Me.[П_Стр2_Лист2]
    .FontName = "Times New Roman"
    .FontSize = 8
    .ForeColor = vbBlack
    End With
vrprib1 = "г. Волгоград" & Space(80) & "«_____»______________20_____г." & _
   B1 & B1 & Space(10) & D1 & ZBI1 & [ОВО_Наимен] & ZBI9 & " в лице " & [ОВО_Долж_Нач_РП] & " " & ZBI1 & [ОВО_Нач_РП] & ZBI9 & _
   ", действующего на основании доверенности " & [ОВО_Доверен] & ", именуемый в дальнейшем «ИСПОЛНИТЕЛЬ 1», с одной стороны, и " & _
   ZBI1 & [ФГУП_Наимен] & ZBI9 & ", в лице начальника " & [ФГУП_Долж_Нач_РП] & " " & ZBI1 & [ФГУП_Нач_РП] & ZBI9 & _
   ", действующего на основании доверенности " & [ФГУП_Доверен] & ", расположенного по адресу: " & [ФГУП_Физ_Адрес] & " телефон " & _
   [ФГУП_Тел] & " именуемое в дальнейшем «ИСПОЛНИТЕЛЬ 2» с другой стороны, и владелец имущества  " & ZU1 & ZBI1 & [ФИО] & ", " & ZBI9 & ZU9 & _
    "проживающего по адресу:  " & ZU1 & ZBI1 & "г.Волгоград,  ул. " & [Улица] & "  " & [Дом] & IIf([Тип МХЛИГ] = "домовладение", "", " - " & [Квартира]) & ZU9 & ZBI9 & _
   ", " & "домашний телефон: " & ZBI1 & IIf(IsNull([Телефон]), " д.т. нет", [Телефон]) & ZBI9 & _
   ", мобильный телефон: " & ZBI1 & IIf(IsNull([Сот телфон]), " с.т. нет", [Сот телфон]) & ZBI9 & _
   ", служебный телефон: " & ZBI1 & IIf(IsNull([Раб телефон]), " р.т. нет", [Раб телефон]) & ZBI9 & _
   ", именуемый в дальнейшем «ЗАКАЗЧИК» с третьей стороны, " & _
   "а вместе именуемые «СТОРОНЫ» заключили настоящий договор о нижеследующем:"

'Вычисляем, что заблокитровано и чем
Dim rsm100, myStr100
Set rsm100 = CurrentDb.OpenRecordset("select * from [Дебеторка] where Стр = 1") 'Код=" & Me.Код
Do Until rsm100.EOF
myStr100 = myStr100 & rsm100!Параграфы & " РАБОТАЕМ " & IIf(rsm100!Переменные = "Dog_Per1", 45, "")   'rsm100!Переменные

' 45 - это я просто проверял формулу, теперь подставлю свои значения и всё
rsm100.MoveNext
Loop
П_Стр2_Лист2 = vrprib1 & myStr100
End Sub