Microsoft Access

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
MS Access запись в одну строку День добрый. подскажите можно ли сделать что бы даты входа выхода были на одной строке.см.рис Private Sub Кнопка36_Click() 'выход Dim nt nt = 1 CurrentDb.Execute " INSERT INTO ЖурналВход (, , ) " _ & "VALUES ('" & Constants.user & "', '" & Now() & "', '" & "выход" & "') ;" DoCmd.OpenTable "ЖурналВход" DoCmd.SelectObject acTable, "ЖурналВход" DoCmd.Requery https://www.cyberforum.ru/ ms-access/ thread921358.html	MS Access Получить hwnd диалогового окна ACCESS Здравствуйте, уважамые гуру. мне нужно получить дискриптор ДИАЛОГОВОГО окна, буду рисовать простенькие модели в этом окне(пользователь выбирает параметры, и через WINAPI рисуется несколько элементов) не могу понять, как получить ссылку для winAPI на диалоговое окно. Вот файл EXCEL, в котром делается то, что нужно, но в EXCEL. ссылка на диалоговое окно hwnd = FindWindow("thunderDFrame",...
MS Access Не обновляется поле со списком Доброго времени суток! Написал форму для ввода данных. Есть поля со списками зависящие друг от друга. Есть маленькая проблемка, когда открываю форму для ввода данных работает все правильно, но например поле неделя зависит от поля месяц, проблема такова: Открываю форму, выбираю месяц, неделя подставляется правильно. Например месяц март, недели подставляются 9,10,11,12,13, как и должно быть,... https://www.cyberforum.ru/ ms-access/ thread921276.html	MS Access Запрос с параметром для отбора книг определенного поля таблица : o Книги – шифр книги (ключевое поле), автор, название, год издания, количество экземпляров. - Создайте запрос с параметром для отбора книг определенного автора. Помогите пожалуйсто как это можно реализовать? https://www.cyberforum.ru/ ms-access/ thread921210.html
MS Access Функция SQL для преобразования Unix времени в обычное Здравствуйте! Подскажите, пожалуйста, существует ли такая функция в SQL, чтобы её параметрами были время в формате Unix и часовой пояс и эта функция возвращала бы время и дату полном формате, например вида 10.07.2012 21:00. Если нет, то как такое преобразование можно реализовать в Access?	MS Access Ошибка: Введенное значение не подходит полю формы Коллеги. Есть форма "Данные". Пытаюсь сделать так, чтобы при выборе "Экспедитор" выбирались телефон и адрес. Делаю это с помощью VBA кода. Почему-то выдает ошибку: "Введенном значение не подходит для данного поля.". Подскажите в чем может быть проблема? Заранее благодарю. :senor: https://www.cyberforum.ru/ ms-access/ thread921106.html
MS Access Объединение строк в запросе по конкретным полям Здравствуйте. Возник вопрос. В результате запроса получается то, что на картинке изображено. Подскажите, какой запрос должен быть, чтобы отображалась одна фирма а в новом поле "Продукция" отображалось все то, что находится в "IZOL + Marka + Tip + Mat + Forma"? То есть чтобы получалась как бы суммирующаяся запись. https://www.cyberforum.ru/ ms-access/ thread920872.html	MS Access Доступ к интерпретатору команд CMD из ACCESS Есть ли возможность выполнять доступ к интерпретатору команд CMD из Access и выполнять скрипы из программы?
MS Access Запрос на проверку Есть table1 c данными: table1 (До внесения данных) id idТовар idАптека Логический 1 456 15 true 2 566 85 true 3 798 12 true table1 (После внесения данных) id idТовар idАптека Логический 1 456 15 false https://www.cyberforum.ru/ ms-access/ thread920844.html	MS Access Как получить текст из описания в базе Access https://www.cyberforum.ru/ ms-access/ thread920835.html Как получить текст из описания в базе Access? Реально ли? В таблице MS Access при ее создании в конструкторе есть поля: Имя поля Тип данных Описание Получить данные из поля описание.
MS Access Сложный запрос Помогите сделать запрос, в котором участвует несколько таблиц. Я объединяю с помощью INNER JOIN 4 таблицы, плюс одну таблицу LEFT JOIN... Соль в том, что внутри LEFT JOIN должен быть INNER JOIN. Короче мне нужно: 1. объединить 4 таблицы 2. объединить другие 2 таблицы 3. объединить п.1 и п.2 Взорвал себе голову:-\|	MS Access Добавление элемента в поле со спиком Допустим я хочу в поле, пусть будет, "Город" ввести название города. Или выбрать его из выпадающего списка городов. Но если я всё же введу город которого нет в списке, как сделать что бы он "ввелся" и добавился в этот список. А затем если поле будет удалено, то удалилось. Последнее не обязательно. В свойствах поля источником строки я сделал это же поле (куда ввожу или выбираю город). Свойство... https://www.cyberforum.ru/ ms-access/ thread920520.html

tuandreeva

0 / 0 / 0

Регистрация: 10.06.2013

Сообщений: 56

QueryDef - MS Access - Ответ 4830358

11.07.2013, 10:42. Показов 4895. Ответов 6

Метки (Все метки)

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

Здравствуйте, не могу получить значение поля [Субсидия], запрос с параметрами ссылается на контролы формы, выглядит вот так:

SQL

1
2
3

SELECT ОснованиеПлатежа.*
FROM ОснованиеПлатежа
WHERE (((ОснованиеПлатежа.Администратор)=[Формы]![funding]![Администратор]) AND ((ОснованиеПлатежа.РзПр)=[Формы]![funding]![РзПр]) AND ((ОснованиеПлатежа.ЦСР)=[Формы]![funding]![ЦСР]) AND ((ОснованиеПлатежа.Вр)=[Формы]![funding]![Вр]) AND ((ОснованиеПлатежа.ЭКР)=[Формы]![funding]![ЭКР]) AND ((ОснованиеПлатежа.КодЦелевыхСредств)=[Формы]![funding]![КодСредств]));

А процедура возвращает пустое значение. Можно было бы создать временную таблицу на основе данных запроса и использовать OpenRecordset, но таких запросов много и хотелось бы использовать SQL вместо запроса закон.
Как это осуществить?

Visual Basic

Dim q As DAO.QueryDef, p As DAO.Parameter
  Set q = CurrentDb.QueryDefs("закон")
  For Each p In q.Parameters
    p.Value = Eval(p.Name)
  Next
    For Each fld In q.Fields
    Debug.Print q.Fields.Item("Субсидия") 
    Next
  q.Execute
  q.Close: Set q = Nothing

Вернуться к обсуждению:
QueryDef MS Access

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

11.07.2013, 10:42

Готовые ответы и решения:

QueryDef для запросов, зависящих от формы
Пытаюсь запустить примерно следующее Dim db As Database Dim str As String Dim qd As QueryDef...

В ассеsse2000 при компиляции модуля выдает ошибку на строки Dim DB As Database Dim q1 As QueryDef
В ассеsse2000 при компиляции модуля выдает ошибку на строки Dim DB As Database Dim q1 As QueryDef...

	11.07.2013, 10:42

Наверх