Форум программистов, компьютерный форум, киберфорум
Наши страницы
Microsoft Access
Войти
Регистрация
Восстановить пароль
Другие темы раздела
MS Access Копирование базы http://www.cyberforum.ru/ms-access/thread1704415.html
Доброе утро, есть рабочая база на Access с которой работает 1 отдел в колличестве 3 человек, есть необходимость дать доступ к ней еще одному отделу. Пускать в базу их не хочу. Задумка такая - каждое...
ЖД Билет MS Access
не могу понять как связать в форме Билет поля поезд, чтобы при выборе номера поезда высвечивались соответствующие станции, которые проходит поезд именно тот, который выбран, в полях отправление со...
Код базы данных MS Access
Товарищи! Проблема такова: создана форма в access, всё работает. При нажатии alt+F11 появляется окно VBA в котором просто пустота. Для отчета по данной форме мне требуется код этой формы, созданной в...
MS Access Условие отбора в перекрестном запросе Здравствуйте! Подскажите пожалуйста: на основании простого запроса сделал перекрёстный запрос. Если ставлю условие отбора, например в конструкторе простого запроса пишу , то выдает ошибку - не... http://www.cyberforum.ru/ms-access/thread1704185.html
MS Access Генерация случайного числа в заданном пределе с присвоением ему имени в таблице http://www.cyberforum.ru/ms-access/thread1704130.html
Здравствуйте, подскажите пожалуйста, кому не сложно. Проблема в том, что нужно сгенерировать случайное число в диапазоне от 0 до 10, где каждому числу будет соответствовать имя, и в зависимости от...
Автоматический перенос данных поля одной формы в поле другой формы MS Access
Добрый вечер! Очень нужна помощь знающих людей. Создаю базу больницы для курсовой работы и столкнулась с такой проблемой, как автоматический перенос данных, которые вводятся в одной форме, а должны...
MS Access Создание таблицы из запроса по кнопке формы
Есть запрос, который создает таблицу текст запроса: SELECT Cstr(S.Арт) AS Арт, S. AS ТОВАР, S. AS TRynok, S.ТН, Round(S./IIf(nz(S.КТ,0)<0.01,1,S.КТ),4) AS Зст, Round(S.,2) AS ЦенаК, Round(S.,2)...
MS Access Экспорт в Word с группировкой Все привет! Помогите настроить экспорт с группировкой строк. Во вложении пример. Таблица 1 - это то что у меня получается. Таблица 2 - то что я хочу получить) http://www.cyberforum.ru/ms-access/thread1703835.html
MS Access Как привязать и создать запрос? http://www.cyberforum.ru/ms-access/thread1703803.html
пример в access 181 в него входят числа 20. 30. 40 180 в него входят 20. 30. 40 вопрос как сделать, чтобы при выборе 181 не вылезали числа из 180 вопрос в чужой теме
MS Access как привязать Всем привет есть таблица как привязать цифры с правого столбца специалисты к левому столбцу П/О построчно И при выборе левого столбца выводились значения привязные к нему http://www.cyberforum.ru/ms-access/thread1703774.html
shanemac51
Модератор
Эксперт MS Access
9109 / 3502 / 554
Регистрация: 07.08.2010
Сообщений: 9,802
Записей в блоге: 2
06.04.2016, 10:47 0

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

06.04.2016, 10:47. Просмотров 245. Ответов 3
Метки (Все метки)

Ответ

Для начала исправьте формат выбора даты
Visual Basic
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
Private Sub Кнопка58_Click()
Dim s
s = ""
s = s & "SELECT Задачи.Код_задача, Задачи.Задача, Задачи.Текст_задачи, Задачи.Комментарий_исполнителя,"
    s = s & " Задачи.Срок_задачи, Задачи.Дата_завершения, Задачи.Код_приоритет, Задачи.Код_программа,"
    s = s & " Задачи.Код_статус_работ, Задачи.Код_тэг, Задачи.Код_день_месяца, Задачи.Код_день_недели,"
    s = s & " Задачи.День_месяца, Задачи.День_недели, Приказы.Код_сотрудник"
    s = s & " FROM Задачи INNER JOIN Приказы ON Задачи.Код_задача = Приказы.Код_задача"
 
 
If IsNull(Код_сотрудник) = True Then
    If Код_день_месяца = Да Then
    s = s & " WHERE (((Задачи.Срок_задачи) Between"
    s = s & " FORMAT([формы]![Главная_форма_управления]![Поле0],'\#MM\/DD\/YYYY\#"
    s = s & " And FORMAT([Формы]![Главная_форма_управления]![Поле2],'\#MM\/DD\/YYYY\#)"
    s = s & " AND ((Задачи.Код_статус_работ)<>5 "
    s = s & " And (Задачи.Код_статус_работ)<>3));"
    CurrentDb.Querydefs("Просмотр_задач").SQL = s
    Else
    s = s & " WHERE (((Задачи.Срок_задачи) Between [формы]![Главная_форма_управления]![Поле0]"
    s = s & " And [Формы]![Главная_форма_управления]![Поле2] Or (Задачи.Срок_задачи) Is Null)"
    s = s & " AND ((Задачи.Код_статус_работ)<>5  And (Задачи.Код_статус_работ)<>3)"
    s = s & " AND ((Задачи.День_месяца)=Day(Date()) Or (Задачи.День_месяца) Is Null)"
    s = s & " AND ((Задачи.День_недели)=[Формы]![Главная_форма_управления]![Поле52]"
    s = s & " Or (Задачи.День_недели) Is Null));"
    CurrentDb.Querydefs("Просмотр_задач").SQL = s
    End If


Вернуться к обсуждению:
Нужно сделать цикл, вычисляющий, есть ли значения в форме, если нет, выполнить новое условие
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.04.2016, 10:47

Почему если условие входа в цикл не выполняется, функция заново входит в цикл
Сам код: private void traverse_node(TreeControlItem node) { TreeControlItem...

Как сделать условие "если на панели нет компонента TImage"?
if (Sender as TImage).Parent&lt;&gt;Panel1 then Panel1.Cursor:=crHandPoint; Я сделал такое условие, но...

Тригер, проверяющ. есть ли такой ID и если есть обновляющий его, если нет - добавляющий
Сабж. В MSSQL нуб. Есть ситуация. Добавляю товар из каталога поставщика в каталог магазина....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.