Создать цикл из запроса или как выкрутиться без знаний

@el_virun · Регистрация: 29.11.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте Уважаемые Гуру, Посвященные, Сведующие и просто смертные ставшие на путь к Истине!!!
Опять требуется ваша помощь+советы+идеи+что-нибудь полезное (можно печеньками)

Вопрос заключается в следующем:

Есть таблица с данными (дата, имя, время) есть форма на которой благодаря хорошим людям с этого форума

отдельное спасибо mobile,Capi

отображается календарь в виде текстбоксов, есть комбобокс созданый для возможности выбора имени, и есть еще куча текстбоксов (находящиеся под текстбоксами с календарем) которые необходимо заполнить результатом запроса по выбору имени(комбобокс на форме) и даты (соответствующий текстбокс из календаря). Как прототип запроса выполнил "Q_D11" для имени "АА" и даты "11/010/20108" (первая дата в таблицес данными):

SQL
1
2
3
4
SELECT DATA.DATA, DATA.NAME, DATA.TIME
FROM DATA
WHERE DATA.NAME=DateFromForm_NAME() AND DATA.DATA=DateFromForm_D11()
GROUP BY DATA.DATA, DATA.NAME, DATA.TIME;

где DateFromForm_NAME() переменная из комбобокса и DateFromForm_D11() значение ячейки для 11 дня, т.е. теоритически этим закрывается весь диапазон 11 чисел каждого месяца

далее следует код в событии для комбобокса:

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub NAME_AfterUpdate()
    Dim QUER As DAO.Recordset
    Set QUER = CurrentDb.OpenRecordset("Q_D11")
    If DLookup("[DATA]", "Q_D11") <> 0 Then
        Me.INSERT_COUNT_FORM("W_TEXT11") = QUER.Fields(2)
     Else
        Me.INSERT_COUNT_FORM("W_TEXT11") = "EMPTY"
    End If
End Sub

и соответственно такое же для табконтрола

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub REPORT_ENGINEER_Change()
    Dim QUER As DAO.Recordset
    Set QUER = CurrentDb.OpenRecordset("Q_D11")
    If DLookup("[DATA]", "Q_D11") <> 0 Then
        Me.INSERT_COUNT_FORM("W_TEXT11") = QUER.Fields(2)
     Else
        Me.INSERT_COUNT_FORM("W_TEXT11") = "EMPTY"
    End If
End Sub

вроде как бы работает, но писать 31 запрос, возможно и не самая здравая мысль. Буду рад помощи, идеям как это можно оптимизировать, а если покажите на примере - буду счастлив в двойне.

З.Ы. и да, как всегда, это маленький кусочек для изучения возможностей/потребностей для основной БД, просьба сильно не ругать и не бить ногами

@el_virun · 19.02.2018, 18:23 **[ТС]**

АП!

Здравствуйте! Вопрос все еще остается актуальным, может есть идеи как облагородить выполнение?
Заранее благодарю!

@alvk · 21.02.2018, 10:53

Сделайте глобальную функцию с переменной вместо имени поля и ставьте везде в событиях эту функцию с именем поля какое есть.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@el_virun 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 70
	19.02.2018, 18:23 [ТС]
	АП! Здравствуйте! Вопрос все еще остается актуальным, может есть идеи как облагородить выполнение? Заранее благодарю! 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	21.02.2018, 10:53
	Сделайте глобальную функцию с переменной вместо имени поля и ставьте везде в событиях эту функцию с именем поля какое есть. 1