Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подскажите, пожалуйста, где я ошибся? / 25 сообщений из 28, страница 1 из 2
  1  все
06.04.2018, 23:33
    #39627060
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
Хочу сделать кнопку просмотра АКТов по нажатию кнопки, так как интерфейс Аксесса скрыт то приходится, пробовал примерно так -

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub К_Просмотра_Click()
On Error GoTo Err_К_Выход_Click
        DoCmd.OpenView
Exit_К_Просмотра_Click:
    Exit Sub
Err_К_Просмотра_Click:
    MsgBox Err.Description
    Resume Exit_К_Просмотра_Click
End Sub



P.S.: Форма выглядит как куча закладок, просмотр нужен текущей закладки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 07:29
    #39627084
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
Wawan2005,

это ты типа отчет хочешь на просмотр открыть, так ?
Код: vbnet
1.
DoCmd.OpenReport "MyReport", acViewPreview



а OpenView - это "совсем другое". Вообще забудь про такой метод у DoCmd
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 18:14
    #39627157
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
court,

Не открыла просмотр
Код: vbnet
1.
DoCmd.OpenReport "MyReport", acViewPreview



Пробовал так
Код: vbnet
1.
DoCmd.OpenReport "MyReport", acViewPreview


и так
Код: vbnet
1.
DoCmd.OpenReport "Данные_Литерка", acViewPreview


и так
Код: vbnet
1.
DoCmd.OpenForm "Данные_Литерка", acViewPreview



Ни чего не работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 18:59
    #39627159
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
Wawan2005,

посмотрела я ваши формо-отчеты по 2 страницы на дист а4, брошюрой
посмотрела и посочувствовала --титаническую работу вы проделали

непонятно только --почему вы не пошли обычным путем, заполняя шаблон ВОРД-а

для форм , да еще с десятком вкладок acViewPreview вряд ли сработает
acViewPreview показывает только текущую страницу

при DoCmd.OpenForm "Договор_ТС_3х", acNormal видны все вкладки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 19:08
    #39627160
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
ПЕНСИОНЕРКА,

Мне не нужно для договоров, мне надо для Данные_Литерка, а точнее для только для актов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 19:32
    #39627166
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
Wawan2005,
вы почему то объявили общие переменные в 4-5 формах, хотя должны были объявить только в одном и причем общем модуле
Public ZB1, ZB9, ZU1, ZU9, ZBI1, ZBI9, ZBU1, ZBU9, ZI1, ZI9, ZUI1, ZUI9, B1, B2 As String

в большинстве форм у вас нет строки Option Explicit и компиляция кода не проходит нормально
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 19:38
    #39627171
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
Wawan2005,

в форме литерка код не компилируется --аксесс не находит почти десяток контролов

следующий код не компилируется(я его заремила)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
'Действие по данным Тревожная сигнализация
 Private Sub П_ТС_AfterUpdate()
''        Me.Н_КТС_ОиП.Visible = (ТС = "есть")
''        Me.П_КТС_ОиП.Visible = (ТС = "есть")
End Sub
  'Шлейф №1 Приёмка
 Private Sub П_Кол_ШС_1_AfterUpdate()
''    If Me.П_Кол_ШС_1 = 1 Then
''        Me.Н_ШС_1.Visible = -1
''        Me.Н_ШС_Соп_1.Visible = -1
''    Else
''        Me.Н_ШС_1.Visible = -0
''        Me.Н_ШС_Соп_1.Visible = -0
''    End If
 End Sub
  'Шлейф №2 Приёмка
 Private Sub П_Кол_ШС_2_AfterUpdate()
''    If Me.П_Кол_ШС_2 = 1 Then
''        Me.Н_ШС_2.Visible = -1
''        Me.Н_ШС_Соп_2.Visible = -1
''    Else
''        Me.Н_ШС_2.Visible = -0
''        Me.Н_ШС_Соп_2.Visible = -0
''    End If
 End Sub
  'Шлейф №3 Приёмка
 Private Sub П_Кол_ШС_3_AfterUpdate()
''    If Me.П_Кол_ШС_3 = 1 Then
''        Me.Н_ШС_3.Visible = -1
''        Me.Н_ШС_Соп_3.Visible = -1
''    Else
''        Me.Н_ШС_3.Visible = -0
''        Me.Н_ШС_Соп_3.Visible = -0
''    End If
 End Sub
  'Шлейф №4 Приёмка
 Private Sub П_Кол_ШС_4_AfterUpdate()
''    If Me.П_Кол_ШС_4 = 1 Then
''        Me.Н_ШС_4.Visible = -1
''        Me.Н_ШС_Соп_4.Visible = -1
''    Else
''        Me.Н_ШС_4.Visible = -0
''        Me.Н_ШС_Соп_4.Visible = -0
''    End If
 End Sub
  'Шлейф №5 Приёмка
 Private Sub П_Кол_ШС_5_AfterUpdate()
''    If Me.П_Кол_ШС_5 = 1 Then
''        Me.Н_ШС_5.Visible = -1
''        Me.Н_ШС_Соп_5.Visible = -1
''    Else
''        Me.Н_ШС_5.Visible = -0
''        Me.Н_ШС_Соп_5.Visible = -0
''    End If
 End Sub
  'Шлейф №6 Приёмка
 Private Sub П_Кол_ШС_6_AfterUpdate()
''    If Me.П_Кол_ШС_6 = 1 Then
''        Me.Н_ШС_6.Visible = -1
''        Me.Н_ШС_Соп_6.Visible = -1
''    Else
''        Me.Н_ШС_6.Visible = -0
''        Me.Н_ШС_Соп_6.Visible = -0
''    End If
 End Sub
  'Шлейф №7 Приёмка
 Private Sub П_Кол_ШС_7_AfterUpdate()
''    If Me.П_Кол_ШС_7 = 1 Then
''        Me.Н_ШС_7.Visible = -1
''        Me.Н_ШС_Соп_7.Visible = -1
''    Else
''        Me.Н_ШС_7.Visible = -0
''        Me.Н_ШС_Соп_7.Visible = -0
''    End If
 End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 19:42
    #39627173
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
Wawan2005,

по крайней мере еще в 5-6 формах необъявленные переменные
следовательно их работа --непредсказуема
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 19:46
    #39627176
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
кстати после правки литерки --она заработала
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 19:51
    #39627178
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
ПЕНСИОНЕРКА,

А как ЭТО исправить?

Код: vbnet
1.
2.
3.
4.
вы почему то объявили общие переменные в 4-5 формах, хотя должны были объявить только в одном и причем общем модуле
Public ZB1, ZB9, ZU1, ZU9, ZBI1, ZBI9, ZBU1, ZBU9, ZI1, ZI9, ZUI1, ZUI9, B1, B2 As String

в большинстве форм у вас нет строки Option Explicit и компиляция кода не проходит нормально



А это
 
'Действие по данным Тревожная сигнализация
Private Sub П_ТС_AfterUpdate()
'' Me.Н_КТС_ОиП.Visible = (ТС = "есть")
'' Me.П_КТС_ОиП.Visible = (ТС = "есть")
End Sub
'Шлейф №1 Приёмка
Private Sub П_Кол_ШС_1_AfterUpdate()
'' If Me.П_Кол_ШС_1 = 1 Then
'' Me.Н_ШС_1.Visible = -1
'' Me.Н_ШС_Соп_1.Visible = -1
'' Else
'' Me.Н_ШС_1.Visible = -0
'' Me.Н_ШС_Соп_1.Visible = -0
'' End If
End Sub
'Шлейф №2 Приёмка
Private Sub П_Кол_ШС_2_AfterUpdate()
'' If Me.П_Кол_ШС_2 = 1 Then
'' Me.Н_ШС_2.Visible = -1
'' Me.Н_ШС_Соп_2.Visible = -1
'' Else
'' Me.Н_ШС_2.Visible = -0
'' Me.Н_ШС_Соп_2.Visible = -0
'' End If
End Sub
'Шлейф №3 Приёмка
Private Sub П_Кол_ШС_3_AfterUpdate()
'' If Me.П_Кол_ШС_3 = 1 Then
'' Me.Н_ШС_3.Visible = -1
'' Me.Н_ШС_Соп_3.Visible = -1
'' Else
'' Me.Н_ШС_3.Visible = -0
'' Me.Н_ШС_Соп_3.Visible = -0
'' End If
End Sub
'Шлейф №4 Приёмка
Private Sub П_Кол_ШС_4_AfterUpdate()
'' If Me.П_Кол_ШС_4 = 1 Then
'' Me.Н_ШС_4.Visible = -1
'' Me.Н_ШС_Соп_4.Visible = -1
'' Else
'' Me.Н_ШС_4.Visible = -0
'' Me.Н_ШС_Соп_4.Visible = -0
'' End If
End Sub
'Шлейф №5 Приёмка
Private Sub П_Кол_ШС_5_AfterUpdate()
'' If Me.П_Кол_ШС_5 = 1 Then
'' Me.Н_ШС_5.Visible = -1
'' Me.Н_ШС_Соп_5.Visible = -1
'' Else
'' Me.Н_ШС_5.Visible = -0
'' Me.Н_ШС_Соп_5.Visible = -0
'' End If
End Sub
'Шлейф №6 Приёмка
Private Sub П_Кол_ШС_6_AfterUpdate()
'' If Me.П_Кол_ШС_6 = 1 Then
'' Me.Н_ШС_6.Visible = -1
'' Me.Н_ШС_Соп_6.Visible = -1
'' Else
'' Me.Н_ШС_6.Visible = -0
'' Me.Н_ШС_Соп_6.Visible = -0
'' End If
End Sub
'Шлейф №7 Приёмка
Private Sub П_Кол_ШС_7_AfterUpdate()
'' If Me.П_Кол_ШС_7 = 1 Then
'' Me.Н_ШС_7.Visible = -1
'' Me.Н_ШС_Соп_7.Visible = -1
'' Else
'' Me.Н_ШС_7.Visible = -0
'' Me.Н_ШС_Соп_7.Visible = -0
'' End If
End Sub


нужно просто удалить, оно не используется я это писал раньше, потом изменил и забыл про это.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 19:53
    #39627179
DarkMan
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
ПЕНСИОНЕРКАWawan2005,
вы почему то объявили общие переменные в 4-5 формах, хотя должны были объявить только в одном и причем общем модуле
Public ZB1, ZB9, ZU1, ZU9, ZBI1, ZBI9, ZBU1, ZBU9, ZI1, ZI9, ZUI1, ZUI9, B1, B2 As String

в большинстве форм у вас нет строки Option Explicit и компиляция кода не проходит нормально
ПЕНСИОНЕРКА , Добавьте еще , что при таком способе обьявления переменных string будет только последняя переменная , а остальные имеют тип variant .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 19:54
    #39627181
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
Wawan2005нужно просто удалить, оно не используется я это писал раньше, потом изменил и забыл про это.

если бы у вас были объявлены все переменные и вы регулярно компилировали код
--то не забыли бы , сохранив время и нервы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 19:55
    #39627182
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
ПЕНСИОНЕРКА,

Литерку я давно запустил, немного почистил код, кстати про этот кусок забыл, но уже удалил-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 19:57
    #39627183
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
DarkManчто при таком способе обьявления переменных string будет только последняя переменная , а остальные имеют тип variant .

это уже мелочи , при маленьких таблицах несущественные
хотя могут привести к ошибкам, для поиска которых понадобятся часы

у ТС времени похоже много, раз он избрал такой изощренный способ формирования отчетов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 20:05
    #39627184
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
ПЕНСИОНЕРКА,

Как это засунуть в отдельный модуль? и как потом это запускать в нужном месте!
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
'Окна фасад
Function Func_Okno(ind, ByVal k) As String
 Dim Okno()
 Okno = Array("окно", "окна", "окна", "окна", "окон", "окна")
 k = IIf(k >= 1 And k <= 4, LBound(Okno) + k - 1, LBound(Okno) + 3 + ind)
 Func_Okno = Okno(k)
End Function

Function Func_Balcon(ind, ByVal k, Optional b_zast, Optional b_sm, Optional type_mhlig) As String
 Dim Balcon()
 Select Case ind
  Case Is < 3
   Balcon = Array("балкон", "балкона", "балкона", "балкона", "балконов", _
                 "балкон", "балконы", "балконы", "балконы", "балконы")
   k = IIf(k >= 1 And k <= 4, k + (LBound(Balcon) = 0) + 5 * (ind - 1), ind * 5 + (LBound(Balcon) = 0))
   Func_Balcon = Balcon(k)
  Case 3
   Select Case k
    Case 1
     Func_Balcon = ", " & b_zast
    Case Else
     Func_Balcon = IIf(b_zast = "застеклён", ", застеклены", IIf(b_zast = "не застеклён", ", не застеклены", ""))
   End Select
  Case 4
   Func_Balcon = IIf(type_mhlig = "квартира", _
                     IIf(b_sm = "не смежный", ", не смежный", ", смежный " & b_sm), "")
 End Select
End Function
Private Sub Form_Current()

'Окна и балконы падежи и множественное число
 eofa = Func_Okno(1, Окна_Ф)
 eofm = Func_Okno(2, Окна_Ф)
 
 eotr = Func_Okno(1, Окна_Тор)
 eotrm = Func_Okno(2, Окна_Тор)
 
 eot = Func_Okno(1, Окна_Тыл)
 eotm = Func_Okno(2, Окна_Тыл)
 
 ebf = Func_Balcon(1, Балк_Ф)
 ebfm = Func_Balcon(2, Балк_Ф)
 ebfz = Func_Balcon(3, Балк_Ф, Балк_Ф_Заст)
 ebfsm = Func_Balcon(4, Балк_Ф, , Балк_Ф_Смежн, [Тип МХЛИГ])

 ebtr = Func_Balcon(1, Балк_Тор)
 ebtrm = Func_Balcon(2, Балк_Тор)
 ebtrz = Func_Balcon(3, Балк_Тор, Балк_Тор_Заст)
 ebtrsm = Func_Balcon(4, Балк_Тор, , Балк_Тор_Смежн, [Тип МХЛИГ])
 
 ebt = Func_Balcon(1, Балк_Тыл)
 ebtm = Func_Balcon(2, Балк_Тыл)
 ebtz = Func_Balcon(3, Балк_Тыл, Балк_Тыл_Заст)
 ebtsm = Func_Balcon(4, Балк_Тыл, , Балк_Тыл_Смежн, [Тип МХЛИГ])
'Окна фасад
 Select Case Окна_Ф
 Case 1 To 20
     resh100 = 1
     Select Case Окна_Ф_Реш
     Case "решётки", "ролставни"
     resh101 = 2
       resh103 = IIf([Окна_Ф_Блок] = "отсутствует" Or IsNull([Окна_Ф_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh101 = 3
 Case Else
 resh101 = 4
End Select
End Select
'Окна торец
 Select Case Окна_Тор
 Case 1 To 20
     resh110 = 1
     Select Case Окна_Тор_Реш
     Case "решётки", "ролставни"
     resh111 = 2
       resh113 = IIf([Окна_Тор_Блок] = "отсутствует" Or IsNull([Окна_Тор_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh111 = 3
 Case Else
 resh111 = 4
End Select
End Select
'Окна тыл
 Select Case Окна_Тыл
 Case 1 To 20
     resh120 = 1
     Select Case Окна_Тыл_Реш
     Case "решётки", "ролставни"
     resh121 = 2
       resh123 = IIf([Окна_Тыл_Блок] = "отсутствует" Or IsNull([Окна_Тыл_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh121 = 3
 Case Else
 resh121 = 4
End Select
End Select
      
'Балконы фасад
 Select Case Балк_Ф
 Case 1 To 20
     resh130 = 1
     Select Case Балк_Ф_Реш
     Case "решётки", "ролставни"
     resh131 = 2
       resh133 = IIf([Балк_Ф_Блок] = "отсутствует" Or IsNull([Балк_Ф_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh131 = 3
 Case Else
 resh131 = 4
End Select
End Select
'Балконы торец
 Select Case Балк_Тор
 Case 1 To 20
     resh140 = 1
     Select Case Балк_Тор_Реш
     Case "решётки", "ролставни"
     resh141 = 2
       resh143 = IIf([Балк_Тор_Блок] = "отсутствует" Or IsNull([Балк_Тор_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh141 = 3
 Case Else
 resh141 = 4
End Select
End Select
'Балконы тыл
 Select Case Балк_Тыл
 Case 1 To 20
     resh150 = 1
     Select Case Балк_Тыл_Реш
     Case "решётки", "ролставни"
     resh151 = 2
       resh153 = IIf([Балк_Тыл_Блок] = "отсутствует" Or IsNull([Балк_Тыл_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh151 = 3
 Case Else
 resh151 = 4
End Select
End Select
'Окна фасад
 If (resh100 = 1) Then
  resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет")
  Select Case True
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Окна_Тор & " " & eotrm & " на торец " & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а также торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & " и " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ",   а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh15 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.") & ",   а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh15 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
  End Select
 Else
'Окна торец
  If (resh110 = 1) Then
   resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет")
   Select Case rtue
    Case (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
   End Select
  Else
'Окна тыл
   If (resh120 = 1) Then
    resh50 = "На тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Select Case True
     Case (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50
     Case (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
     Case (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
     Case (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
     Case (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = "На тыл выходит " & Окна_Тыл & " " & eotm & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
     
     
     Case (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет. ")
     Case (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
     Case (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = "На тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    End Select
   Else
    resh50 = "Сообщите Украинскому В.В. при какой последовательности окон и балконов вышло это сообщение "
   End If
  End If
 End If



Я пробовал у меня не получилось, и как компиляцию запускать? (только пожалуйста кодом я не умею программировать, а просто втыкаю куски кодов, вот и всё моё познание VBA)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 20:06
    #39627185
DarkMan
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
ПЕНСИОНЕРКАэто уже мелочи ,
ну коль исправлять , так лучше уж все сразу , а не расстягивать удовольствие.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 20:10
    #39627187
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
DarkMan,

Подскажите как, а в идеале кусками кода, я с удовольствием исправлю!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 20:55
    #39627194
DarkMan
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
Wawan2005DarkMan,

Подскажите как, а в идеале кусками кода, я с удовольствием исправлю!
Я не разбирался в Вашем коде , к сожалению нет времени , так как своих проблем хватает. Да я и не думаю , что у меня получится лучше чем у ПЕНСИОНЕРКА .
Что касается правила обьявления переменных , так в Вашем варианте,
Код: vbnet
1.
  Public ZB1, ZB9, ZU1, ZU9, ZBI1, ZBI9, ZBU1, ZBU9, ZI1, ZI9, ZUI1, ZUI9, B1, B2 As String


лишь последняя переменная B2 будет иметь тип данных string , а остальные будут типа variant , что на больших обьемах будет расходовать дополнительные ресурсы на определение типа переменных и могут возникнуть другие ошибки , так как явно не указаны типы переменных.
Правильное обьявление
Код: vbnet
1.
2.
   Public ZB1 As String , ZB9 As String , ZU1 As String, ZU9 As String, ZBI1 As String, ZBI9 As String, ZBU1 _
  As String, ZBU9 As String, ZI1 As String, ZI9 As String, ZUI1 As String, ZUI9 As String, B1 As String , B2 As String


И обязательно в модулях пропишите Option Explicit как Вам советовали. И в настройках в VBA есть галочка , где он будет устанавливаться по умолчанию . Это влияет только на обьявление новых переменных , к сожалению старые искать и обьявлять Вам придется вручную.
Лучше посидеть и поисправлять все ошибки сразу , чем искать их потом когда проэкт разрастется.
Что касается модуля , то загоните Ваши глобальные функции и процедуры в модуль , и вызывайте их из модулей формы . Один из методов Call . Ну и почитайте книШки . Здесь могут подсказать , но всю работу за Вас не сделают.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 21:00
    #39627195
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
DarkMan,

понял, спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 21:20
    #39627200
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
ПЕНСИОНЕРКА,

Как это использовать Option Explicit???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 22:15
    #39627205
DarkMan
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
Wawan2005ПЕНСИОНЕРКА,

Как это использовать Option Explicit???
Вот так
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2018, 22:18
    #39627207
DarkMan
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
и ВОТ ТАК >
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2018, 01:28
    #39627220
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
DarkMan,

Спасибо, при компилировании 3 ошибки всплыло!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2018, 01:30
    #39627223
Wawan2005
Wawan2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
DarkMan,

Получилось так:
 

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Public ZB1 As String, ZB9 As String, ZU1 As String, ZU9 As String, ZBU1 As String, ZBU9 As String, ZI1 As String, ZI9 As String, _
       ZUI1 As String, ZUI9 As String, B1 As String, B2 As String, rtf1 As String, eofa As String, eofm  As String, eotr   As String, _
       eotrm As String, eot As String, eotm As String, ebf As String, ebfm As String, ebfz As String, ebfsm As String, _
       ebtr As String, ebtrm As String, ebtrz As String, ebtrsm As String, ebt As String, ebtm As String, ebtz As String, ebtsm As String, _
       Балк_Ф_Заст As String, Балк_Тор_Заст As String, Балк_Тыл_Заст As String, Балк_Ф_Смежн As String, Балк_Тор_Смежн As String, _
       Балк_Тыл_Смежн As String, resh50 As String, resh100 As String, resh101 As String, resh103 As String, resh110 As String, _
       resh111 As String, resh113 As String, resh120 As String, resh121 As String, resh123 As String, resh130 As String, _
       resh131 As String, resh133 As String, resh140 As String, resh141 As String, resh143 As String, resh150 As String, _
       resh151 As String, resh153 As String, dma As String, kva As String, am As String, ga As String, cm As String, aslt As String, _
       ashl As String, asl1 As String, asl2 As String, asl3 As String, asl4 As String, asl5 As String, asl6 As String, asl7 As String, _
       asl8 As String, asl11 As String, asl21 As String, asl31 As String, asl41 As String, asl51 As String, asl61 As String, _
       asl71 As String, asl81 As String, aslt11 As String, aslt21 As String, aslt31 As String, aslt41 As String, aslt51 As String, _
       aslt61 As String, aslt71 As String, aslt81 As String, asls As String, shpr As String, popr As String, smpr As String, _
       shsob As String, shovo As String, shmont As String, shobsl1 As String, shobsl2 As String, shop As String, po As String, _
       kvop As String, dmop As String, gop As String, kvitu As String, dmitu As String, gitu As String, ob As String, vk As String, _
       povo As String, nitu As String, podp As String, П_Уст_ОиП As String, П_Экстр_Вызов_Пол As String, dppr As String, _
       shto As String, poto As String, resh280 As String, resh281 As String, resh282 As String, resh283 As String, _
       resh284 As String, resh285 As String, resh290 As String, resh291 As String, resh292 As String, resh293 As String, _
       resh294 As String, resh295 As String, k As String, d As String, m As String, i As String, o As String, j As String, _
       P As String, r As String, t As String, f As String, q As String, qwi10 As String, q1 As String, П_Рек_ОиП As String, _
       dppr1 As String

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2018, 09:46
    #39627256
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите, пожалуйста, где я ошибся?
Wawan2005,
так как число строк продолжений ограничено --я бы написала так, группируя по назначению
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
Public ZB1 As String, ZB9 As String
Public ZU1 As String, ZU9 As String, ZBU1 As String, ZBU9 As String
Public ZI1 As String, ZI9 As String, ZUI1 As String, ZUI9 As String 
Public B1 As String, B2 As String
''
Public rtf1 As String
Public eofa As String, eofm As String
Public eotr As String, eotrm As String
Public eot As String, eotm As String
Public ebf As String, ebfm As String
Public ebfz As String, ebfsm As String
Public ebtr As String, ebtrm As String, ebtrz As String, ebtrsm As String,
Public ebt As String, ebtm As String, ebtz As String, ebtsm As String
Public Балк_Ф_Заст As String, Балк_Тор_Заст As String, Балк_Тыл_Заст As String
Public Балк_Ф_Смежн As String, Балк_Тор_Смежн As String, Балк_Тыл_Смежн As String
Public resh50 As String, resh100 As String, resh101 As String, resh103 As String
Public resh110 As String, resh111 As String, resh113 As String
Public resh120 As String, resh121 As String, resh123 As String
Public resh130 As String, resh131 As String, resh133 As String
Public resh140 As String, resh141 As String, resh143 As String
Public resh150 As String, resh151 As String, resh153 As String
Public dma As String, kva As String, am As String, ga As String, cm As String
Public aslt As String, ashl As String
Public asl1 As String, asl2 As String, asl3 As String, asl4 As String, asl5 As String
Public asl6 As String, asl7 As String, asl8 As String
Public asl11 As String, asl21 As String, asl31 As String, asl41 As String, asl51 As String
Public asl61 As String, asl71 As String, asl81 As String
Public aslt11 As String, aslt21 As String, aslt31 As String, aslt41 As String, aslt51 As String
Public aslt61 As String, aslt71 As String, aslt81 As String
Public asls As String, shpr As String, popr As String, smpr As String
Public shsob As String, shovo As String, shmont As String, shobsl1 As String, shobsl2 As String
Public shop As String, po As String, kvop As String, dmop As String, gop As String, kvitu As String
Public dmitu As String, gitu As String, ob As String, vk As String, povo As String, nitu As String, podp As String
Public П_Уст_ОиП As String, П_Экстр_Вызов_Пол As String, dppr As String, shto As String, poto As String
Public resh280 As String, resh281 As String, resh282 As String, resh283 As String, resh284 As String, resh285 As String
Public resh290 As String, resh291 As String, resh292 As String, resh293 As String, resh294 As String, resh295 As String
Public k As String, d As String, m As String, i As String, o As String, j As String, P As String
Public r As String, t As String, f As String, q As String, qwi10 As String, q1 As String
Public П_Рек_ОиП As String, dppr1 As String
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подскажите, пожалуйста, где я ошибся? / 25 сообщений из 28, страница 1 из 2
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 156ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1611534]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 11ms
total:  156ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]