Контекст |
|
◄ НАВИГАЦИЯ ► | seodon.ru - Создание блочного вертикального меню
|
Интернет-издание |
|
Последние темы | Коллеги) у кого есть КОС по английскому языку для Среднего проф образования, или хотябы начального)) автор Mick Ср 17 Янв 2024, 10:05 Электромонтер по ремонту и обслуживанию электрооборудования в с\хавтор Виктор Иванович Вт 16 Май 2023, 11:52 Демоэкзаменавтор Rino4ka Ср 07 Сен 2022, 09:48 КТП по материаловедению для МЖКХавтор Ан Ср 13 Янв 2021, 14:59 НАШ БЕССМЕРТНЫЙ ПОЛКавтор Ната/П Пт 18 Дек 2020, 14:26 С Днём рождения Нина Станиславовна!автор Александр Ср 12 Авг 2020, 10:36 09.02.01 «Компьютерные системы и комплексы» МДК Установка и конфигурирование периферийного оборудования автор luna0904 Чт 23 Июл 2020, 15:00 Форумчане, мы еще функционируем???автор Александр Пт 17 Апр 2020, 09:55 Законодательство РФ по ТКО или что утаивают региональные операторыавтор xela_dat Вт 03 Дек 2019, 19:39 Сотрудничествоавтор Наталия Акимова Пн 26 Авг 2019, 08:29 С Днем Рождения, Александр Алексеевич!автор Александр Ср 21 Авг 2019, 08:34 Формирование личностных УУД у учащихся младших классов во внеурочной деятельностиавтор t_pikova@mail.ru Пт 21 Июн 2019, 19:52 Курсовая работа _спец. "ДОУ и Архивоведение"автор Татьяна Курашева Сб 27 Апр 2019, 01:07 Презентации по профессии "Электромонтер"автор Карелина Татьяна Юрьевна Пн 15 Апр 2019, 20:57 С Новым 2019 годом!автор Алекс6801 Ср 16 Янв 2019, 11:12 Тестовые задания по профессии "Электромонтёр по ремонту и обслуживанию электрооборудования в с/х производства" по ПМ 02.01. "Обслуживание и ремонт электропроводок"автор Виктор Иванович Пт 09 Ноя 2018, 09:47 Так что же изменилось, и что делатьавтор Вячеслав Омерович Пт 26 Окт 2018, 22:47 НУЖНА КОНСУЛЬТАЦИЯ по КЛАССНОМУ РУКОВОДСТВУавтор xela_dat Вс 14 Окт 2018, 16:08 С ДНЕМ УЧИТЕЛЯ!!!автор Ольга Андреева Пт 05 Окт 2018, 09:52 ОБЯЗАТЕЛЬНО ПРОЧТИТЕ! Оформление библиографического аппаратаавтор NinaOkon Пн 03 Сен 2018, 00:05 ОБРАЗОВАТЕЛЬНОЕ ПРАВО, консультацииавтор Алексей Романов Ср 15 Авг 2018, 14:09 Военно-патриотический клуб: проблемы, перспективыавтор Vladlen Чт 12 Июл 2018, 18:41 Размышление о нравственности.автор Vladlen Сб 30 Июн 2018, 14:19 Подросток и взрослыеавтор Vladlen Сб 30 Июн 2018, 14:11 ГБПОУ Иркутской области "Киренский профессионально-педагогический колледж"автор Vladlen Чт 28 Июн 2018, 20:55 С Днём Пограничника 28 маяавтор Vladlen Ср 27 Июн 2018, 22:18 Кабинет электротехники и электроникиавтор Иринанет Пн 18 Июн 2018, 07:06 Повышение квалификации по ТОП-50автор dajwa Вт 12 Июн 2018, 14:51 Алгоритмыавтор Вячеслав Омерович Вс 10 Июн 2018, 22:52 ТРЕБУЕТСЯ ПОМОЩЬ!автор Алексей Романов Чт 07 Июн 2018, 11:19 С ДНЁМ ПОБЕДЫ!автор Александр Ср 09 Май 2018, 21:55 Опять реформы?автор Вячеслав Омерович Пт 04 Май 2018, 22:26 Новый подход к организации профессионального образованияавтор Алекс6801 Пт 04 Май 2018, 10:20 Владимир Путин: “Необходимо выстроить целостную систему подготовки квалифицированных кадров с учётом лучших международных практик”автор Алекс6801 Пт 04 Май 2018, 10:05 Нынешние проблемы образования - будущие беды государстваавтор Алекс6801 Пт 04 Май 2018, 09:56 |
Сертификат участника |
|
| | Подпрограмма для генерации отчётов | |
| Автор | Сообщение |
---|
Irdjebalieva
Имя : Минзифа Отчество : Кабировна Сообщения : 2 Рейтинг : 8 Репутация : 0 На форуме с : 2014-06-18 Откуда : Астрахань
Поделиться ссылкой
| Тема: Подпрограмма для генерации отчётов Ср 18 Июн 2014, 14:12 | |
| 1 - Код:
-
Option Compare Database Option Explicit Private Sub Кнопка33_Click() Me.Список58.RowSource = Me.Список58.RowSource & ";" & Me.Поля & ";" & Me.ПолеСоСписком2 Me.Список21.RowSource = Me.Список21.RowSource & ";" & Me.Поля & ";" & Me.ПолеСоСписком2 Me.Поле45 = Me.Поле45 & Me.ПолеСоСписком38 & ";" Me.Поле47 = Me.Поле47 & Me.Поля & ";" Me.Поле62 = Me.Поле62 & Me.ПолеСоСписком2 & ";" If Me.ПолеСоСписком38 <> "Адреса" Then Me.Поле64 = Me.Поле64 & Me.ПолеСоСписком38 & ";" Me.Список58.Requery Me.Список21.Requery Me.Поле45.Requery Me.Поле47.Requery Me.Поле62.Requery Me.Поле64.Requery End Sub
Private Sub Кнопка34_Click() Me.Список58.RowSource = "Поле;Запись" Me.Список21.RowSource = "Поле;Значение" Me.Поле45 = "" Me.Поле47 = "" Me.Поле62 = "" Me.Поле64 = "" End Sub
Private Sub Кнопка5_Click() If Me.Список58.RowSource = "Поле;Запись" Then Exit Sub Dim sq$, fv, sv$, i&, db As DAO.Database, fl As DAO.Field Dim Res() Dim Pes() Dim n, j, k, l, otch Dim tmp, s, p, u Dim X As Integer Dim Y, w, ch s = Split(Me.Поле45, ";") otch = "Запрос - " & s(0) Me.Поле69 = s(0) n = UBound(s, 1) ReDim Res(0 To n + 1) Res(0) = s(0) j = 1 For i = 1 To n tmp = s(i) k = 0 For l = 0 To j If tmp = Res(l) Then k = -1 Exit For End If Next l If k = 0 Then j = j + 1 Res(j) = tmp End If Next i ReDim Preserve Res(0 To j) If UBound(Res, 1) = 1 Then sq = "SELECT * FROM [" & Res(0) & "] WHERE True" Set db = CurrentDb If Len(Me!Список21.RowSource) > 0 Then fv = Split(Me!Список21.RowSource, ";") For Each fl In db.TableDefs(Me.Поля.RowSource).Fields sv = "" For i = 0 To UBound(fv) Step 2 If fl.Name = fv(i) Then Select Case fl.Type Case dbBigInt, dbBoolean, dbByte, dbCurrency, dbDecimal, _ dbDouble, dbFloat, dbInteger, dbLong, dbNumeric, dbSingle sv = sv & "," & Replace(fv(i + 1), ",", ".") Case dbChar, dbText sv = sv & ",'" & fv(i + 1) & "'" Case dbDate sv = sv & ",#" & Format(CDate(fv(i + 1)), "mm\/dd\/yyyy") & "#" End Select End If Next If Len(sv) > 0 Then sq = sq & " And [" & fl.Name & "] In (" & Mid(sv, 2) & ")" Next End If db.QueryDefs(otch).SQL = sq Set fl = Nothing: Set db = Nothing DoCmd.OpenQuery otch, acViewNormal Else p = Split(Me.Поле64, ";") n = UBound(p, 1) ReDim Pes(0 To n + 1) Pes(0) = p(0) j = 1 For i = 1 To n tmp = p(i) k = 0 For l = 0 To j If tmp = Pes(l) Then k = -1 Exit For End If Next l If k = 0 Then j = j + 1 Pes(j) = tmp End If Next i ReDim Preserve Pes(0 To j) If UBound(Pes, 1) > 2 Then For i = 2 To UBound(Pes, 1) u = u & "(" Next i End If sq = "SELECT * FROM " & u & "Адреса INNER JOIN [" & Pes(0) & "] ON Адреса.[Наименование населенного пункта]=[" & Pes(0) & "].[Наименование населенного пункта]" If UBound(Pes, 1) > 1 Then For i = 2 To UBound(Pes, 1) sq = sq & ") INNER JOIN [" & Pes(i) & "] ON Адреса.[Наименование населенного пункта]=[" & Pes(i) & "].[Наименование населенного пункта]" Next i End If sq = sq & " WHERE True and " Y = Split(Me.Поле47, ";") w = Split(Me.Поле62, ";") For i = 0 To UBound(w) If IsNumeric(w(i)) Or IsDate(w(i)) Then k = 1 Else w(i) = "'" & w(i) & "'" End If If IsNumeric(w(i)) Then w(i) = w(i) End If If IsDate(w(i)) Then w(i) = "#" & Format(CDate(w(i)), "mm\/dd\/yyyy") & "#" End If Next i ch = Y(0) sv = "[" & s(0) & "].[" & ch & "] in (" & w(0) For i = 1 To UBound(Y, 1) - 1 If ch = Y(i) Then sv = sv & "," & w(i) Else sv = sv & ") and [" & s(i) & "].[" & Y(i) & "] in (" & w(i) ch = Y(i) End If Next i sv = sv & ")" sq = sq & sv sq = sq & ";" CurrentDb.QueryDefs(otch).SQL = sq DoCmd.OpenQuery otch End If Me.Список58.RowSource = "Поле;Запись" Me.Список21.RowSource = "Поле;Значение" Me.Поле45 = "" Me.Поле47 = "" Me.Поле62 = "" Me.Поле64 = "" End Sub
Private Sub ПолеСоСписком38_AfterUpdate() Me.Поля.RowSource = Me.ПолеСоСписком38 End Sub
Private Sub Поля_AfterUpdate() If Not IsNull(Me.Поля) Then Me.ПолеСоСписком2 = Null Me.ПолеСоСписком2.RowSource = "SELECT DISTINCT [" & Me.Поля & "] FROM [" & Me.ПолеСоСписком38 & "] ORDER BY [" & Me.Поля & "]" ' Me.ПолеСоСписком2.Requery Me.ПолеСоСписком2.SetFocus Me.ПолеСоСписком2.Dropdown End If End Sub
Private Sub Кнопка35_Click() On Error GoTo Err_Кнопка35_Click Dim stDocName As String stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1089) & ChrW(1090) & ChrW(1091) & ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1090) DoCmd.OpenReport stDocName, acPreview Exit_Кнопка35_Click: Exit Sub Err_Кнопка35_Click: MsgBox Err.Description Resume Exit_Кнопка35_Click End Sub
Private Sub Кнопка68_Click() DoCmd.OpenReport Me.Поле69, acViewReport End Sub
|
| | "Уточните значение слов, и вы избавите человечество от половины заблуждений" Рене Декарт
|
| Малышенко Светлана
Имя : Светлана Отчество : Васильевна Сообщения : 1250 Рейтинг : 1449 Репутация : 149 На форуме с : 2012-01-11 Откуда : Гулькевичи Краснодарский край
Поделиться ссылкой
| Тема: Re: Подпрограмма для генерации отчётов Ср 18 Июн 2014, 15:48 | |
| 2 |
| | "Уточните значение слов, и вы избавите человечество от половины заблуждений" Рене Декарт
|
| olsam1
Имя : Ольга Отчество : Владимировна Сообщения : 30 Рейтинг : 48 Репутация : 18 На форуме с : 2012-02-26 Откуда : Екатеринбург
Поделиться ссылкой
| Тема: Re: Подпрограмма для генерации отчётов Ср 18 Июн 2014, 16:19 | |
| 3 А генерация каких отчетов? |
| | "Уточните значение слов, и вы избавите человечество от половины заблуждений" Рене Декарт
|
| ЗЛАТУСЯ
Имя : Елена Отчество : Константиновна Сообщения : 1242 Рейтинг : 1387 Репутация : 134 На форуме с : 2012-09-17 Откуда : Щелково
Поделиться ссылкой
| Тема: Re: Подпрограмма для генерации отчётов Пн 23 Июн 2014, 23:32 | |
| 4 Минзифа Кабировна, что за программа, как с этой программой работать и для каких отчётов она нужна? Спасибо. |
| | "Уточните значение слов, и вы избавите человечество от половины заблуждений" Рене Декарт
|
| | Подпрограмма для генерации отчётов | |
|
Страница 1 из 1 | |
| Права доступа к этому форуму: | Вы не можете отвечать на сообщения
| |
| |
| 5>24>18>12> Актуальная тема | Пн 26 Авг 2019, 08:29 автор Наталия Акимова | Добрый день, дорогие форумчане! Мы компания разработчик ЭУМК. На данный момент мы ищем для сотрудничества автором для написания курса по системному администрированию по ФГОС. Если есть желание, материал и интерес пишите в личку.
| Комментарии: 0 |
Актуальная тема | Ср 15 Авг 2018, 10:28 автор Алексей Романов | ДОБРОГО ВСЕМ ДНЯ!
Ко мне обратилась коллега из другого учебного заведения с вопросом: "Хочу задать вопрос,- можете у вас в учебном заведении узнать- по каким …
| Комментарии: 1 |
Актуальная тема | Чт 14 Апр 2016, 09:43 автор Ната_НА | Могу проконсультировать по образовательному праву в рамках нормативных документов по уровням профессионального образования(СПО+ВО+ДПО), включая работу с профессиональными стандартами
| Комментарии: 3 |
Актуальная тема | Вс 10 Июн 2018, 22:52 автор Вячеслав Омерович |
Вячеслав Кудяков
В чем проблема нынешнего образования?
Как правило, это некомпетентность выпускников школ и не только.
Наша страна, а именно мы с вами, коллеги, …
| Комментарии: 0 |
Актуальная тема | Пн 01 Янв 2018, 22:27 автор Вячеслав Омерович | Нельзя выпускать ребенка в мир не вооруженным идейно, не обученным основным знаниям физиологии , наследственности , психологии, исторической диалектики. Только …
| Комментарии: 1 |
Самые активные пользователи за месяц | |
Самые просматриваемые темы | |
Май 2024 | Пн | Вт | Ср | Чт | Пт | Сб | Вс |
---|
| | 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 | | | Календарь |
|
Кнопка сообщества | Наша кнопка
|
|