powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос, выборка через поле
15 сообщений из 15, страница 1 из 1
Запрос, выборка через поле
    #39355037
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем добрый день!

Есть код (не рабочий).
Код: vbnet
1.
2.
3.
4.
5.
6.
Me.Список186.RowSource = "SELECT Таблица1.[Номер заказа], Таблица1.Статус, Таблица1.Менеджер, 
Таблица1.Заказчик, Таблица1.[Наименование проекта] 
FROM Таблица1 
WHERE (((Таблица1.Статус) = Поле19) And 
((Таблица1.Менеджер) = Поле20) And ((Таблица1.Заказчик) = Поле21)) 
ORDER BY Val([Номер заказ]) DESC;"



Если Я заполняю все три поле тогда код правильно показывает.
Я хочу когда первое поле заполняю остальные поля если пустые, как "все записи" должны быть.
На пример: Поле20 = "Саша"
Таблица должно показать все проекты Менеджер "Саша" Все заказчики и все статусы!
Как это можно реализовать?
Спасибо!
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39355175
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Abisma2008...На пример: Поле20 = "Саша"
...
А более информативно поля не пробовали обзывать, дабы не попутать?
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39355214
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Предположим что поле19(число),поле20(текст)-поля формы,тогда строка SQL должна выглядеть так:
Код: vbnet
1.
Me.list.RowSource="SELECT..FROM..WHERE статус=" & me.поле19 & " and менеджер='" & me.поле20 & "' ORDER BY ..." 

тынц
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39355220
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdkuПредположим ...]
Согласно всяким там научным манускриптам, текстовые поля предлагается апострофами обрамлять.
Это на всякий случай - Обинарные кавычки
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39355227
Фотография Lieutenant Pigeon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Abisma2008,

* Всем добрый день!
Добрый!

* На пример:
Пишется слитно.

* Поле20 = "Саша"
Делаем поиск по волшебному слову - НОРМАЛИЗАЦИЯ

Я понимаю, что не помог именно тебе, но может кому-либо...
.
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39355238
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ПыСы
и еще если критерий TRUE, возвращаются все записи. Типа:
Код: vbnet
1.
2.
3.
4.
If IsNull(me.ctl) Then a = True Else a = me.ctl
If IsNull(me.ctl1) Then b = True Else b = me.ctl1
strSQL="SELECT...FROM..WHERE поле1=" & a & " and поле2='" & b & "'...."                'поле1 число,поле2 текст
Me.myCombo.RowSource = strSQL

это сделать процедурой SUB и вызывать её после обновления любого поля для критериев
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39355742
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sdku,
Доброе утро!
Я немного усложнил задачу, Поле19, Поле20, Поле21 они теперь "ПолеСоСписком"
И код в процедуре "Изменение" вставил.
Ваш код не работает!
Вот в итоге что у меня получилось:
Код: vbnet
1.
2.
3.
4.
5.
Private Sub Поле19_Change()
Me.Список186.RowSource = "SELECT Таблица1.[Номер заказа], Таблица1.Статус, Таблица1.Менеджер, Таблица1.Заказчик, 
Таблица1.[Наименование проекта] FROM Таблица1 WHERE Таблица1.Статус = '" & Me.Поле19 & "' And Таблица1.Менеджер = 
'" & Me.Поле20 & "' And Таблица1.Заказчик = '" & Me.Поле21 & "' ORDER BY Val([Номер заказа]) DESC;"
End Sub


Код: vbnet
1.
2.
3.
4.
5.
Private Sub Поле20_Change()
Me.Список186.RowSource = "SELECT Таблица1.[Номер заказа], Таблица1.Статус, Таблица1.Менеджер, Таблица1.Заказчик, 
Таблица1.[Наименование проекта] FROM Таблица1 WHERE Таблица1.Статус = '" & Me.Поле19 & "' And Таблица1.Менеджер = 
'" & Me.Поле20 & "' And Таблица1.Заказчик = '" & Me.Поле21 & "' ORDER BY Val([Номер заказа]) DESC;"
End Sub


Код: vbnet
1.
2.
3.
4.
5.
Private Sub Поле21_Change()
Me.Список186.RowSource = "SELECT Таблица1.[Номер заказа], Таблица1.Статус, Таблица1.Менеджер, Таблица1.Заказчик, 
Таблица1.[Наименование проекта] FROM Таблица1 WHERE Таблица1.Статус = '" & Me.Поле19 & "' And Таблица1.Менеджер = 
'" & Me.Поле20 & "' And Таблица1.Заказчик = '" & Me.Поле21 & "' ORDER BY Val([Номер заказа]) DESC;"
End Sub
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39355767
1. На событии Change свежее значение возвращается только св-вом Text. Ссылка Me.Поле19 (она же - Me.Поле19.Value) вернет предыдущее значение. А в случае с ПолеСоСписком (ПС) может вернуть вовсе не то, что хотите, если связанный и видимый столбцы - разные. Нужно использовать AfterUpdate и лучше написать здесь же, в модуле формы, функцию, формирующую SQL выражение, которую и вызывать на этом событии для всех трех полей.
2. Чтобы помочь вам примером, нужно знать тип полей Статус, Менеджер и Заказчик, а также тип связанного столбца в ваших ПС.
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39355769
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Abisma2008,
Посмотрите это (форма "таблица1")
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39355814
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Анатолий ( Киев )1. На событии Change свежее значение возвращается только св-вом Text. Ссылка Me.Поле19 (она же - Me.Поле19.Value) вернет предыдущее значение. А в случае с ПолеСоСписком (ПС) может вернуть вовсе не то, что хотите, если связанный и видимый столбцы - разные. Нужно использовать AfterUpdate и лучше написать здесь же, в модуле формы, функцию, формирующую SQL выражение, которую и вызывать на этом событии для всех трех полей.
2. Чтобы помочь вам примером, нужно знать тип полей Статус, Менеджер и Заказчик, а также тип связанного столбца в ваших ПС.
Поля все текстовые.
Пример я выложу, посмотрите пожалуйста!
Спасибо!
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39356036
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
WHERE ([table].[field] = textbox.text OR textbox.text = '')
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39356058
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Akina
Код: vbnet
1.
WHERE ([table].[field] = textbox.text OR textbox.text = '')


Спасибо за ответ, но к сожелению не работает(
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39356456
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39356579
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sdku
Доброе утро!
Я хотел таблицу через "Список", но и так тоже пойдёт.
Спасибо большое тем кто мне помогали!!!
...
Рейтинг: 0 / 0
Запрос, выборка через поле
    #39356621
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Abisma2008... немного усложнил задачу, Поле19, Поле20, Поле21 они теперь ...
Интересно, как это ТС ориентируется и помнит такие Сверх-Информативные Имена Полей.
Я бы точно через день позабывал бы половину из них, а то и ваще все сразу.
Прям аж - Юрий Цезарь какой та.
...
Рейтинг: 0 / 0
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос, выборка через поле
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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