Помогите упростить код / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите упростить код

15 сообщений из 15, страница 1 из 1

Помогите упростить код

#39592260

Wawan2005

Гость

Нарисовал описание в форму, но нутром чувствую есть способ эффективнее

[spoiler]

Код: 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.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
333.
334.
335.
336.
337.
338.
339.
340.
341.
342.
343.
344.
345.
346.
347.
348.
349.
350.
351.
352.
353.
354.
355.
356.
357.
358.
359.
360.
361.
362.
363.
364.
365.
366.
367.
368.
369.
370.
371.
372.
373.
374.
375.
376.
377.
378.
379.
380.
381.
382.
383.
384.
385.
386.
387.
388.
389.
390.
391.
392.
393.
394.
395.
396.
397.
398.
399.
400.
401.
402.
403.
404.
405.
406.
407.
408.
409.
410.
411.
412.
413.
414.
415.
416.
417.
418.
419.
420.
421.
422.
423.
424.
425.
426.
427.
428.
429.
430.
431.
432.
433.
434.
435.
436.
437.
438.
439.
440.
441.
442.
443.
444.
445.
446.
447.
448.
449.
450.
451.
452.
453.
454.
455.
456.
457.
458.
459.
460.
461.
462.

'Окна и балконы падежи и множественное число
 Select Case Окна_Ф
 Case 1
   eofa = "окно"
   eofm = "окно"
 Case 2, 3, 4
   eofa = "окна"
   eofm = "окна"
 Case Else
   eofa = "окон"
   eofm = "окна"
End Select
 Select Case Окна_Тор
 Case 1
   eotr = "окно"
   eotrm = "окно"
 Case 2, 3, 4
   eotr = "окна"
   eotrm = "окна"
 Case Else
   eotr = "окон"
   eotrm = "окна"
End Select
 Select Case Окна_Тыл
 Case 1
   eot = "окно"
   eotm = "окно"
 Case 2, 3, 4
   eot = "окна"
   eotm = "окна"
 Case Else
   eot = "окон"
   eotm = "окна"
End Select
 Select Case Балк_Ф
 Case 1
   ebf = "балкон"
   ebfm = "балкон"
   ebfz = ", " & [Балк_Ф_Заст]
   ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Ф_Смежн]), "")
 Case 2, 3, 4
   ebf = "балкона"
   ebfm = "балконы"
   ebfz = IIf([Балк_Ф_Заст] = "застеклён", ", застеклены", IIf([Балк_Ф_Заст] = "не застеклён", ", не застеклены", ""))
   ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Ф_Смежн]), "")
 Case Else
   ebf = "балконов"
   ebfm = "балконы"
   ebfz = IIf([Балк_Ф_Заст] = "застеклён", ", застеклены", IIf([Балк_Ф_Заст] = "не застеклён", ", не застеклены", ""))
   ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Ф_Смежн]), "")
End Select
 Select Case Балк_Тор
 Case 1
   ebtr = "балкон"
   ebtrm = "балкон"
   ebtrz = ", " & [Балк_Тор_Заст]
   ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Тор_Смежн]), "")
 Case 2, 3, 4
   ebtr = "балкона"
   ebtrm = "балконы"
   ebtrz = IIf([Балк_Тор_Заст] = "застеклён", ", застеклены", IIf([Балк_Тор_Заст] = "не застеклён", ", не застеклены", ""))
     ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тор_Смежн]), "")
 Case Else
   ebtr = "балконов"
   ebtrm = "балконы"
   ebtrz = IIf([Балк_Тор_Заст] = "застеклён", ", застеклены", IIf([Балк_Тор_Заст] = "не застеклён", ", не застеклены", "2"))
   ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тор_Смежн]), "")
End Select
 Select Case Балк_Тыл
 Case 1
   ebt = "балкон"
   ebtm = "балкон"
   ebtz = ", " & [Балк_Тыл_Заст]
   ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Тыл_Смежн]), "")
   Case 2, 3, 4
   ebt = "балкона"
   ebtm = "балконы"
   ebtz = IIf([Балк_Тыл_Заст] = "застеклён", ", застеклены", IIf([Балк_Тыл_Заст] = "не застеклён", ", не застеклены", "3"))
   ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тыл_Смежн]), "")
   Case Else
   ebt = "балконов"
   ebtm = "балконы"
   ebtz = IIf([Балк_Тыл_Заст] = "застеклён", ", застеклены", IIf([Балк_Тыл_Заст] = "не застеклён", ", не застеклены", "4"))
   ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тыл_Смежн]), "")
End Select
'Окна фасад
 Select Case Окна_Ф
 Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Окна_Тор & " " & eotrm & " на торец " & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а также торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & " и " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ",   а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh15 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebfa & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebfa & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.") & ",   а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh15 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & 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 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & 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 & ".", ", решёток нет.")
      Else
    If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & 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 & ".", ", решёток нет.")
      Else
'Окна торец
    If (resh100 <> 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & 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 & ".", ", решёток нет.")
      Else
'Окна тыл
    If (resh100 <> 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
      resh50 = "На тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
      resh50 = "На тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
      resh50 = "На тыл выходит " & Окна_Тыл & " " & eota & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
      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 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
      resh50 = "На тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
      Else
    If (resh100 <> 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1) Then
      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 & ".", ", решёток нет.")
      Else
resh50 = "Сообщите Украинскому В.В. при какой последовательности окон и балконов вышло это сообщение "
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If
      End If

'Домовладение
If Me.[Тип МХЛИГ] = "домовладение" Then
'Калитка
  Select Case Двер_Подъзд
 Case "оборудована кодовым замком"
   a = "Калитка оборудована кодовым замком, код " & [Код подъезда]
 Case "оборудована домофоном"
   a = "Калитка оборудована домофоном. "
 Case "оборудована простым замком"
   a = "Калитка оборудована механическим замком. "
 Case "оборудована простым замком"
   a = "Калитка замками не оборудована. "
 Case Else
   a = [Двер_Подъзд]
End Select
'Входная дверь
b = "Входная дверь " & [Вх_дверь] & ", выходит на " & Куда_Вх_Дверь & " дома. "
'Подвал
If [Подвал] = "есть" Then c = "Имеется подвал, вход " & Вх_подвал & ". " Else c = "Подвал отсутствует. "
'Чердак
If [Чердак] = "нет" Then d = "Чердак отсутствует. " Else d = "Имеется выход на чердак (крышу), " & Чердак & ". "
'Запасной выход
If [Запасной_Вых] = "имеется" Then Dl = "Есть запасной выход, выходит на " & [Куда_Запасной_Вых] & ". " Else Dl = ""
'Понятые
 m = " Домовладение вскрывать " & [Вскрытие] & (IIf(IsNull([Вскрытие_не_брать]), ". ", ", не приглашать понятых с домов " & [Вскрытие_не_брать] & ". "))
'Домашние животные
 o = IIf(IsNull([Животные]), "Домашних животных нет.", "Есть домашнее животное: " & [Животные] & ". ")
S = a & b & c & d & resh50 & e & f & g & i & j & h & Dl & k & m & o

Else
 End If

'Квартира
If Me.[Тип МХЛИГ] = "квартира" Then
 'Подъезд
  Select Case Двер_Подъзд
 Case "оборудована кодовым замком"
   a = "Дверь подъезда оборудована кодовым замком, код " & [Код подъезда]
 Case "оборудована домофоном"
   a = "Дверь подъезда оборудована домофоном. "
 Case "оборудована простым замком"
   a = "Дверь подъезда оборудована механическим замком. "
 Case "оборудована простым замком"
   a = "Дверь подъезда замками не оборудована. "
 Case Else
   a = [Двер_Подъзд]
End Select
  'Подвал
   If [Подвал] = "есть" Then c = "Имеется подвал, вход " & Вх_подвал & ". " Else c = "Подвал отсутствует. "
   'Чердак
    If [Чердак] = "нет" Then d = "Чердак отсутствует. " Else d = "Имеется выход на чердак (крышу), " & Чердак & ". "
'Понятые
 m = " Квартиру вскрывать " & [Вскрытие] & (IIf(IsNull([Вскрытие_не_брать]), ". ", ", не приглашать понятых с домов " & [Вскрытие_не_брать] & ". "))
'Домашние животные
 o = IIf(IsNull([Животные]), "Домашних животных нет.", "Есть домашнее животное: " & [Животные] & ". ")
S = a & b & c & d & resh50 & e & f & g & i & j & h & Dl & k & m & o

End If

Как то так.

...

Рейтинг:

0 / 0

27.01.2018, 21:46

| Ответить | Цитировать | Написать

Помогите упростить код

#39592274

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Wawan2005,

очень красивый код
и виной тому служит то, что таблицы базы не нормализованы

екселька в 100+100 полей перетащена в аксесс без изменения, но у аксесс другие законы создания таблиц
--5 раз по 6 полей на жильцов
--4 раза по 3 поля на доверенных лиц
--6 понятых ....
--в каждой записи присутствует описание дома, хотя в в доме может быть и 200-300 квартир

однотипная информация по фасад/торцы/тыл привела в созданию более 20 полей в таблице, хотя должна быть подчиненная таблица 4 строки по 6 полей

и т.д.

...

Рейтинг:

0 / 0

27.01.2018, 23:22

| Ответить | Цитировать | Написать

Помогите упростить код

#39592376

982183

Участник

Откуда: VL

Сообщения: 2 213

Рейтинг: 0 / 0

Wawan2005,

Ты засунул падежи в код, а надо было в таблицу.

...

Рейтинг:

0 / 0

28.01.2018, 14:23

| Ответить | Цитировать | Написать

Помогите упростить код

#39593012

Wawan2005

Гость

Путных советов нет, как я понимаю, то бишь я выбрал самый оптимальный путь!!!
Всем спасибо!

...

Рейтинг:

0 / 0

29.01.2018, 21:51

| Ответить | Цитировать | Написать

Помогите упростить код

#39593116

Joss

Участник

Откуда: г. Минск

Сообщения: 5 036

Рейтинг: 0 / 0

Wawan2005Путных советов нет, как я понимаю, то бишь я выбрал самый оптимальный путь!!!
Всем спасибо! Не-а, 982173 дал правильный совет: все строковые данные должны быть занесены в таблицу, а в коде ссылаться на их идентификаторы. Да и ПЕНСИОНЕРКА плохого не посоветует.

...

Рейтинг:

0 / 0

30.01.2018, 09:35

| Ответить | Цитировать | Написать

Помогите упростить код

#39593370

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Wawan2005Путных советов нет, как я понимаю, то бишь я выбрал самый оптимальный путь!!!Ну да - все в столбик и в линеечку....

Вот это хотя бы поправьте:
вместо

Код: vbnet

Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20

нужно

Код: vbnet

Case 1 To 20

...

Рейтинг:

0 / 0

30.01.2018, 14:39

| Ответить | Цитировать | Написать

Помогите упростить код

#39593379

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

И еще.
Там, в нижней части, в двух последних Select Case условия Case "оборудована простым замком" повторяются:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

.......................................
 Case "оборудована простым замком"
   a = "Калитка оборудована механическим замком. "
 Case "оборудована простым замком"
   a = "Калитка замками не оборудована. "
.......................................

.......................................
 Case "оборудована простым замком"
   a = "Дверь подъезда оборудована механическим замком. "
 Case "оборудована простым замком"
   a = "Дверь подъезда замками не оборудована. "
.......................................

Вообще, код не для слабонервных....
И шлейф End If впечатляет...

...

Рейтинг:

0 / 0

30.01.2018, 14:49

| Ответить | Цитировать | Написать

Помогите упростить код

#39593436

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

__MichelleВообще, код не для слабонервных....
И шлейф End If впечатляет...

красота да и только
только однажды видела сопоставимый код --формирование отчетов по болезням и периоду
(там еще длиннее и код повторялся для месячных-квартальных-полугодовых-годовых-выборочных отчетов)

...

Рейтинг:

0 / 0

30.01.2018, 16:21

| Ответить | Цитировать | Написать

Помогите упростить код

#39593464

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

ПЕНСИОНЕРКАтолько однажды видела сопоставимый код --формирование отчетов по болезням и периоду
(там еще длиннее и код повторялся для месячных-квартальных-полугодовых-годовых-выборочных отчетов)У меня тоже полно отчетов по болезням, периодам, возрастам.
Месячных-квартальных-полугодовых-годовых-выборочных, а также разных отчетов Госстатистики.
Но код как-то по-другому выглядит...

Wawan2005,

Вот этот участок ("Окна и балконы падежи и множественное число") сделала с использованием функций.
Посмотрите.
Это Ваш вариант:

Код: vbnet

'Окна и балконы падежи и множественное число
 Select Case Окна_Ф
 Case 1
   eofa = "окно"
   eofm = "окно"
 Case 2, 3, 4
   eofa = "окна"
   eofm = "окна"
 Case Else
   eofa = "окон"
   eofm = "окна"
End Select
 Select Case Окна_Тор
 Case 1
   eotr = "окно"
   eotrm = "окно"
 Case 2, 3, 4
   eotr = "окна"
   eotrm = "окна"
 Case Else
   eotr = "окон"
   eotrm = "окна"
End Select
 Select Case Окна_Тыл
 Case 1
   eot = "окно"
   eotm = "окно"
 Case 2, 3, 4
   eot = "окна"
   eotm = "окна"
 Case Else
   eot = "окон"
   eotm = "окна"
End Select
 Select Case Балк_Ф
 Case 1
   ebf = "балкон"
   ebfm = "балкон"
   ebfz = ", " & [Балк_Ф_Заст]
   ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Ф_Смежн]), "")
 Case 2, 3, 4
   ebf = "балкона"
   ebfm = "балконы"
   ebfz = IIf([Балк_Ф_Заст] = "застеклён", ", застеклены", IIf([Балк_Ф_Заст] = "не застеклён", ", не застеклены", ""))
   ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Ф_Смежн]), "")
 Case Else
   ebf = "балконов"
   ebfm = "балконы"
   ebfz = IIf([Балк_Ф_Заст] = "застеклён", ", застеклены", IIf([Балк_Ф_Заст] = "не застеклён", ", не застеклены", ""))
   ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Ф_Смежн]), "")
End Select
 Select Case Балк_Тор
 Case 1
   ebtr = "балкон"
   ebtrm = "балкон"
   ebtrz = ", " & [Балк_Тор_Заст]
   ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Тор_Смежн]), "")
 Case 2, 3, 4
   ebtr = "балкона"
   ebtrm = "балконы"
   ebtrz = IIf([Балк_Тор_Заст] = "застеклён", ", застеклены", IIf([Балк_Тор_Заст] = "не застеклён", ", не застеклены", ""))
     ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тор_Смежн]), "")
 Case Else
   ebtr = "балконов"
   ebtrm = "балконы"
   ebtrz = IIf([Балк_Тор_Заст] = "застеклён", ", застеклены", IIf([Балк_Тор_Заст] = "не застеклён", ", не застеклены", "2"))
   ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тор_Смежн]), "")
End Select
 Select Case Балк_Тыл
 Case 1
   ebt = "балкон"
   ebtm = "балкон"
   ebtz = ", " & [Балк_Тыл_Заст]
   ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Тыл_Смежн]), "")
   Case 2, 3, 4
   ebt = "балкона"
   ebtm = "балконы"
   ebtz = IIf([Балк_Тыл_Заст] = "застеклён", ", застеклены", IIf([Балк_Тыл_Заст] = "не застеклён", ", не застеклены", "3"))
   ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тыл_Смежн]), "")
   Case Else
   ebt = "балконов"
   ebtm = "балконы"
   ebtz = IIf([Балк_Тыл_Заст] = "застеклён", ", застеклены", IIf([Балк_Тыл_Заст] = "не застеклён", ", не застеклены", "4"))
   ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тыл_Смежн]), "")
End Select

Это мой вариант:

Код: vbnet

'_________________________________________________________________
' Тут описаны функции

Function Func_Okno(ind, ByVal k) As String
 Dim Okno()
 Okno = Array(" окно", " окна", " окна", " окна", " окон", " окна")
 k = IIf(k > 4, LBound(Okno) + 3 + ind, LBound(Okno) + k - 1)
 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 > 4, ind * 5 + (LBound(Balcon) = 0), k + (LBound(Balcon) = 0) + 5 * (ind - 1))
   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
'_________________________________________________________________

' Тут показано присвоение значений всем соответствующим переменным

 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(3, Балк_Ф, , Балк_Ф_Смежн, [Тип МХЛИГ])

 ebtr = Func_Balcon(1, Балк_Тор)
 ebtrm = Func_Balcon(2, Балк_Тор)
 ebtrz = Func_Balcon(3, Балк_Тор, Балк_Тор_Заст)
 ebtrsm = Func_Balcon(3, Балк_Тор, , Балк_Тор_Смежн, [Тип МХЛИГ])
 
 ebt = Func_Balcon(1, Балк_Тыл)
 ebtm = Func_Balcon(2, Балк_Тыл)
 ebtz = Func_Balcon(3, Балк_Тыл, Балк_Тыл_Заст)
 ebtsm = Func_Balcon(3, Балк_Тыл, , Балк_Тыл_Смежн, [Тип МХЛИГ])

...

Рейтинг:

0 / 0

30.01.2018, 16:48

| Ответить | Цитировать | Написать

Помогите упростить код

#39593480

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Wawan2005,

Простите, опечатка.
Для ebfsm, ebtrsm, ebtsm первый аргумент в вызове функции 4, а не 3.

...

Рейтинг:

0 / 0

30.01.2018, 17:19

| Ответить | Цитировать | Написать

Помогите упростить код

#39593557

Wawan2005

Гость

__Michelle,

Попробовал вставить (с учётом опечатки)
Слова про окна и балконы просто пропущены,
И к стати я вставил это код в начало, может не туда воткнул?!

...

Рейтинг:

0 / 0

30.01.2018, 19:31

| Ответить | Цитировать | Написать

Помогите упростить код

#39593564

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Wawan2005__Michelle,

Попробовал вставить (с учётом опечатки)
Слова про окна и балконы просто пропущены,
И к стати я вставил это код в начало, может не туда воткнул?!Сейчас проверила для всех случаев, функции верные значения возвращают.
Почему у Вас пусто, не знаю.

Может, базу выложите?

...

Рейтинг:

0 / 0

30.01.2018, 19:48

| Ответить | Цитировать | Написать

Помогите упростить код

#39593575

Wawan2005

Гость

__Michelle,

Кидать через форум не вариант, могу на мыло кинуть

...

Рейтинг:

0 / 0

30.01.2018, 20:21

| Ответить | Цитировать | Написать

Помогите упростить код

#39593576

Wawan2005

Гость

__Michelle,

только Ваше мыло скрыто.

...

Рейтинг:

0 / 0

30.01.2018, 20:23

| Ответить | Цитировать | Написать

Помогите упростить код

#39593577

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Wawan2005,

Сейчас Вам на почту напишу.

...

Рейтинг:

0 / 0

30.01.2018, 20:27

| Ответить | Цитировать | Написать

15 сообщений из 15, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите упростить код

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39593480&tid=1611749]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	66ms
get topic data:	11ms
get forum data:	3ms
get page messages:	55ms
get tp. blocked users:	2ms
others:	15ms

total:	183ms