Запросы на добавление в таблицы, с параметрами из формы / Microsoft Access

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запросы на добавление в таблицы, с параметрами из формы

25 сообщений из 132, страница 5 из 6

все

Запросы на добавление в таблицы, с параметрами из формы

#39938756

Loxinfo

Гость

ПЕНСИОНЕРКА

Loxinfo

Давайте забудем что было написано выше

давайте

вот мой анализ задачи -видимо обошлась бы 1 запросом, заполнив поле тип строки согласно таблицы

vbs_Q_Not_Between_Add1выехал до периода или въехал после периодаvbs_Q_Between_Add2въехал и выехал в периодеvbs_Q_From_Add3въехал в периоде vbs_Q_To_Add4выехал в периоде

Есть форма с переменными
([City]-город, [DateFrom]- начало периода, [DateTo]-конец периода, [Adult]-взрослые, [Child]-дети)

да, можно одним VBA кодом это сделать и у меня уже есть это решение, но...
как я писал выше,
1) я не програмист, а делал я этот код 15-17 лет назад
2) в том коде все базировалось на одном номере OID, что вкл. в себя всего от 1 до 100 рекордов, а тут их немерено...
3) я понимаю что можно уйти от большого кол-ва запросов и сделать все на одном VBA, но сейчас у меня задача просто доказать что база из базы можно получить инф. которая нужна для расчетов, а для этого мне нужно перегнать данные из запроса через ворму в таблицу, измениы при этом только 5ть полей, которые соответствуют полям формы

...

Рейтинг:

0 / 0

18.03.2020, 14:47

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938759

Loxinfo

Гость

Панург

Loxinfo

Ниже детали по работе кода

ну теперь всё норм.

Loxinfo

Код: plsql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

----------
vbs_Q_Between_Add
[Forms]![HotelCalculator]![CheckIn]
[Forms]![HotelCalculator]![CheckOut]
[Forms]![HotelCalculator]![Adult]
[Forms]![HotelCalculator]![Child]
----------
vbs_Q_Not_Between_Add
[Forms]![HotelCalculator]![CheckIn]
[Forms]![HotelCalculator]![CheckOut]
[Forms]![HotelCalculator]![Adult]
[Forms]![HotelCalculator]![Child]
----------
vbs_Q_From_Add
[Forms]![HotelCalculator]![CheckIn]
[Forms]![HotelCalculator]![CheckOut]
[Forms]![HotelCalculator]![Adult]
[Forms]![HotelCalculator]![Child]
----------
vbs_Q_To_Add
[Forms]![HotelCalculator]![CheckOut]
[Forms]![HotelCalculator]![CheckIn]
[Forms]![HotelCalculator]![Adult]
[Forms]![HotelCalculator]![Child]

теперь переставь одинарную кавычку на все Debug.Print, а то что зелёное убери кавычку. И попробуй снова, запросы должны выполнятся если открыта форма HotelCalculator

а города нет???
[Forms]![HotelCalculator]![City]

...

Рейтинг:

0 / 0

18.03.2020, 14:48

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938760

Loxinfo

Гость

Панург

Кривцов Анатолий

Блин! Это я ошибся! Ну конечно Parameters, а не Properties. Аж стыдно...

Да я тоже хорош...

Опять ошибку выдал код

Код: plsql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Private Sub tt_Click()
Dim dbs As DAO.Database, qdf As DAO.QueryDef, prp As DAO.Parameter
Dim vArray
Dim i As Long

vArray = VBA.Array("vbs_Q_Between_Add", "vbs_Q_Not_Between_Add", "vbs_Q_From_Add", "vbs_Q_To_Add")

Set dbs = CurrentDb

  For i = LBound(vArray) To UBound(vArray)
    Set qdf = dbs.QueryDefs(vArray(i))
Debug.Print String(10, "-")
Debug.Print vArray(i)
      For Each prp In qdf.Parameters
        prp.Value = Eval(prp.Name)
'Debug.Print prp.Name
      Next
        qdf.Execute   --------------<<<< тут
  Next i

End Sub

...

Рейтинг:

0 / 0

18.03.2020, 14:51

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938767

Loxinfo

Гость

ПЕНСИОНЕРКА

Loxinfo

Давайте забудем что было написано выше

Есть форма с переменными
([City]-город, [DateFrom]- начало периода, [DateTo]-конец периода, [Adult]-взрослые, [Child]-дети)

на один запрос Union (который потом идет на добавление, идет (пока) 5 запросов (я уберу From, to и т.д. чтобы было понятнее)
vbs_Q_Single этот имеет данные по номерам на 1го чел
vbs_Q_Double этот имеет данные по номерам на 2х чел
vbs_Q_Extra_Bed_Adult_sub этот имеет данные по доп. кровате на взрослого
vbs_Q_Extra_Bed_Child_sub этот имеет данные по доп. кровате на ребенка
vbs_Q_Extra_ABF_Child_sub этот имеет данные по доп. Завтраку на ребенка
и это еще не все, есть несколько запросов по скидкам, живешь 7, платишь 5 и т.д., а эти скидки по определенным периодам
Еще есть запросы по раннему бронированию, там тоже скидки, пример, бронируешь за 30 дней, скидка 15% и т.д., и это тоже на определенные периоды
И последнее, при бронировании до определенной даты на определенный период там тоже цены со скидками.
формулами это все не реализовать, поэтому все нужно прописывать, в данном случае в DB и вытаскивать запросами

...

Рейтинг:

0 / 0

18.03.2020, 15:05

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938774

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

Loxinfo

а города нет???
[Forms]![HotelCalculator]![City]

нужно работать с запросами

...

Рейтинг:

0 / 0

18.03.2020, 15:17

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938775

Loxinfo

Гость

Панург

Loxinfo

а города нет???
[Forms]![HotelCalculator]![City]

нужно работать с запросами

а почему ошибка в коде?

...

Рейтинг:

0 / 0

18.03.2020, 15:23

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938780

Loxinfo

Гость

Панург

Loxinfo

а города нет???
[Forms]![HotelCalculator]![City]

нужно работать с запросами

Может City нет, потому что поле текстовое и ошибка в коде поэтому?

...

Рейтинг:

0 / 0

18.03.2020, 15:28

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938823

Кривцов Анатолий

Гость

Loxinfo

Опять ошибку выдал код

Код: plsql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

  For i = LBound(vArray) To UBound(vArray)
    Set qdf = dbs.QueryDefs(vArray(i))
Debug.Print String(10, "-")
Debug.Print vArray(i)
      For Each prp In qdf.Parameters
        prp.Value = Eval(prp.Name)
Debug.Print prp.Name; Tab; prp.Value
      Next
        qdf.Execute   --------------<<<< тут
  Next i

Текст ошибки? Раскомментируйте и подправьте выделенную строку. Покажите, что надебажит.

...

Рейтинг:

0 / 0

18.03.2020, 16:55

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938844

Loxinfo

Гость

Кривцов Анатолий

Loxinfo

Опять ошибку выдал код

Код: plsql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

  For i = LBound(vArray) To UBound(vArray)
    Set qdf = dbs.QueryDefs(vArray(i))
Debug.Print String(10, "-")
Debug.Print vArray(i)
      For Each prp In qdf.Parameters
        prp.Value = Eval(prp.Name)
Debug.Print prp.Name; Tab; prp.Value
      Next
        qdf.Execute   --------------<<<< тут
  Next i

Текст ошибки? Раскомментируйте и подправьте выделенную строку. Покажите, что надебажит.

фото ниже

...

Рейтинг:

0 / 0

18.03.2020, 17:39

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938882

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

Loxinfo

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

Ну и зачем для этого "посреднк" в виде формы,если это,как я понял, разовая операция выполняемая ручками,тривиальными запросами на изменение,за 0,5-1 час (в зависимости от вносимых изменений-однозначно быстрее чем длится этот топик. И,наверное, не из запроса а из таблицы в новую таблицу)

...

Рейтинг:

0 / 0

18.03.2020, 18:58

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938886

Loxinfo

Гость

sdku

Loxinfo

Вы не внимательно читали
1) Аксес не дает запустить запрос, большой запрос, так как в него включено много таблиц и данных
2) Это не разовая операция, если бы так было, я бы внес нужные параметры и обычным запросом на обновление внес данные в таблицу

3) данные именно из запроса, если бы это была таблица, одна или даже две, вообще не возникло бы проюлем как через код VBA, так и через обычный запрос

Пример, простой запрос инфы, который даже не использует все 4 запроса, только один, имеет 295 страниц отчета или 15249 рекордов в таблице и это самый простой запрос данных
а такие запросы программа должна выполнять по 10-100 раз в день, а может и больше, зависит от чел. фактора

...

Рейтинг:

0 / 0

18.03.2020, 19:10

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938986

Loxinfo

Гость

Панург

Loxinfo

а города нет???
[Forms]![HotelCalculator]![City]

нужно работать с запросами

Добрый день
Я нашел причину, это в запросе vbs_Q_Between_Add, т.к. когда я убираю его из вашего кода, остальные 3 запроса отрабатывают на 100%
Только не пойму где в запросе ошибка, я все делал аналогичными
и при добавлении данных в таблицу без кода используя этот запрос, все работает
не понимаю почему в коде он не работает

...

Рейтинг:

0 / 0

19.03.2020, 09:56

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39938991

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

Loxinfo

не понимаю почему в коде он не работает

А уж как я не понимаю почему не работает, даже если учесть что я запроса и в глаза не видел.
Попробуй пересобрать запрос. Где написан параметр "[Forms]![HotelCalculator]![City]"?

От ошибки избавится не проблема, проблема выполнить твой запрос.

...

Рейтинг:

0 / 0

19.03.2020, 10:22

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939014

Loxinfo

Гость

Панург

Loxinfo

не понимаю почему в коде он не работает

Нашел ошибку в запросе, это окне
In House: ([Forms]![HotelCalculator]![CheckOut]-[Forms]![HotelCalculator]![CheckIn])

подскажите как можно изменить ([CheckOut]-[CheckIn]) , я делал
In House: ([CheckOut]-[CheckIn]) запрос не запускается, пишет что не правильно указаны данные

в запросе есть данные по
CheckIn: ([Forms]![HotelCalculator]![CheckIn])
CheckOut: ([Forms]![HotelCalculator]![CheckOut])

...

Рейтинг:

0 / 0

19.03.2020, 11:29

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939203

Loxinfo

Гость

Огромное спасибо всем, кто откликнулся
Отдельное спасибо и низкий поклон Панург

Панург ваш код работает, очень хорошо работает, но похоже он не принимает запросы с двойными параметрами в одном поле, изменить запрос, я не могу, теряется весь смысл. Но я буду думать как решить эту маленькую пробл.

Ваш код работает просто великолепно, но, в настоящий момент я остановил выбор на

Код: plsql

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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.

Private Sub UpdateQuery_Click()
Dim qdf As QueryDef
On Error GoTo Errhandler
DoCmd.SetWarnings False

    Set qdf = CurrentDb.QueryDefs("vbs_Q_Between_Add_temp")
    Set qdf = CurrentDb.QueryDefs("vbs_Q_Not_Between_Add_temp")
    Set qdf = CurrentDb.QueryDefs("vbs_Q_From_Add_temp")
    Set qdf = CurrentDb.QueryDefs("vbs_Q_To_Add_temp")
    
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Between_Add").sql, "Forms!HotelCalculator!City", "'City'")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Between_Add").sql, "Forms!HotelCalculator!CheckIn", "CheckIn")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Between_Add").sql, "Forms!HotelCalculator!CheckOut", "CheckOut")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Between_Add").sql, "Forms!HotelCalculator!Adult", "Adult")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Between_Add").sql, "Forms!HotelCalculator!Child", "Child")
    
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Not_Between_Add").sql, "Forms!HotelCalculator!City", "'City'")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Not_Between_Add").sql, "Forms!HotelCalculator!CheckIn", "CheckIn")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Not_Between_Add").sql, "Forms!HotelCalculator!CheckOut", "CheckOut")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Not_Between_Add").sql, "Forms!HotelCalculator!Adult", "Adult")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Not_Between_Add").sql, "Forms!HotelCalculator!Child", "Child")
    
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_From_Add").sql, "Forms!HotelCalculator!City", "'City'")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_From_Add").sql, "Forms!HotelCalculator!CheckIn", "CheckIn")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_From_Add").sql, "Forms!HotelCalculator!CheckOut", "CheckOut")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_From_Add").sql, "Forms!HotelCalculator!Adult", "Adult")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_From_Add").sql, "Forms!HotelCalculator!Child", "Child")
    
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_To_Add").sql, "Forms!HotelCalculator!City", "'City'")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_To_Add").sql, "Forms!HotelCalculator!CheckIn", "CheckIn")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_To_Add").sql, "Forms!HotelCalculator!CheckOut", "CheckOut")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_To_Add").sql, "Forms!HotelCalculator!Adult", "Adult")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_To_Add").sql, "Forms!HotelCalculator!Child", "Child")

    DoCmd.OpenQuery "vbs_Q_Between_Add_temp"
    DoCmd.OpenQuery "vbs_Q_Not_Between_Add_temp"
    DoCmd.OpenQuery "vbs_Q_From_Add_temp"
    DoCmd.OpenQuery "vbs_Q_To_Add_temp"
    
    Exit Sub
Errhandler:
    Select Case Err.Number
        Case 3265
            DoCmd.CopyObject , "vbs_Q_Between_Add_temp", acQuery, "vbs_Q_Between_Add"
            DoCmd.CopyObject , "vbs_Q_Not_Between_Add_temp", acQuery, "vbs_Q_Not_Between_Add"
            DoCmd.CopyObject , "vbs_Q_From_Add_temp", acQuery, "vbs_Q_From_Add"
            DoCmd.CopyObject , "vbs_Q_To_Add_temp", acQuery, "vbs_Q_To_Add"
            DoCmd.SetWarnings True
            Resume
        Case Else
            MsgBox Err.Number & " " & Err.Description
    End Select
End Sub

Еще раз, благодарю
И извините за проявленную тупость

...

Рейтинг:

0 / 0

19.03.2020, 16:42

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939213

4d_monster

Участник

Откуда: Москва

Сообщения: 1 562

Рейтинг: 0 / 0

Loxinfo

подскажите как можно изменить ([CheckOut]-[CheckIn]) , я делал
In House: ([CheckOut]-[CheckIn]) запрос не запускается, пишет что не правильно указаны данные

в запросе есть данные по
CheckIn: ([Forms]![HotelCalculator]![CheckIn])
CheckOut: ([Forms]![HotelCalculator]![CheckOut])

А вы пробовали ?

Код: sql

In House: (([Forms]![HotelCalculator]![CheckOut])-([Forms]![HotelCalculator]![CheckIn]))

...

Рейтинг:

0 / 0

19.03.2020, 16:44

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939266

Loxinfo

Гость

4d_monster

Loxinfo

А вы пробовали ?

Код: sql

In House: (([Forms]![HotelCalculator]![CheckOut])-([Forms]![HotelCalculator]![CheckIn]))

Пробовал, результат тотже

на поле In House: запрос тормозит
в других запросах в данном поле только одно из переменных [CheckIn] или [CheckOut], думаю поэтому, другие запросы проходят без пробл.

...

Рейтинг:

0 / 0

19.03.2020, 17:52

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939276

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

Loxinfo

Код: sql

[In House]

такое название следует заключать в квадратные скобки
А выделенное вообще предикат

...

Рейтинг:

0 / 0

19.03.2020, 18:14

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939290

Loxinfo

Гость

Панург

Loxinfo

Код: sql

[In House]

такое название следует заключать в квадратные скобки
А выделенное вообще предикат

Я попробовал взять в скобки и объединить [InHouse] акс ругается

...

Рейтинг:

0 / 0

19.03.2020, 18:52

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939306

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

Loxinfo

Я попробовал взять в скобки и объединить [InHouse] акс ругается

Это надо делать не в конструкторе, а в режиме SQL... Да ладно

...

Рейтинг:

0 / 0

19.03.2020, 19:45

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939359

Loxinfo

Гость

Панург

Loxinfo

Я попробовал взять в скобки и объединить [InHouse] акс ругается

Это надо делать не в конструкторе, а в режиме SQL... Да ладно

В конструкторе запроса, квадратные скобки на [in House] всегда были
и как только я меняю одну из переменных в запросе на постоянное значение, запрос проходит
Например
([Forms]![HotelCalculator]![CheckOut]-[QTo])
([QFrom]-[Forms]![HotelCalculator]![CheckOut])
([Forms]![HotelCalculator]![CheckOut]-[To])
([From]-[Forms]![HotelCalculator]![CheckOut])

...

Рейтинг:

0 / 0

20.03.2020, 05:28

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939362

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

Loxinfo

и как только я меняю одну из переменных в запросе на постоянное значение, запрос проходит

Можно попробовать объявить параметры в разделе PARAMETERS запроса если не важно выполнение их вручную.
примерно так (это нужно будет сделать во всех запросах серии, но пока для теста только в этом)

Код: sql

1.
2.
3.
4.

PARAMETERS [CheckOut] Long, [CheckIn] Long;
INSERT INTO vbs_Invoice_Q_Between (Id, [In House])
SELECT ..., [CheckOut]-[CheckIn] AS [In House], ...
FROM ...

Везде меняем и код меняем соответственно

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Private Sub tt_Click()
Dim dbs as Dao.Database,  qdf As Dao.QueryDef, prp as  As DAO.Parameter
Dim vArray
Dim i as long

vArray=VBA.Array("vbs_Q_Between_Add")',"vbs_Q_Not_Between_Add","vbs_Q_From_Add","vbs_Q_To_Add")

Set dbs = CurrentDb

  For i=Lbound(vArray) to Ubound(vArray)
    Set qdf = dbs.QueryDefs(vArray(i))
      For Each prp In qdf.Parameters
        prp.Value = Nz(Me.Controls(Replace(Replace(prp.Name,"[",""),"]","")).Value)
      Next
    qdf.Execute
    Debug.Print vArray(i), vbTab, "обработано записей ",  qdf.RecordsAffected

  next i

End Sub

В дальнейшем можно всё это завернуть в транзакцию - будет быстрей и безопасней.
Ну и обработчик ошибок сделать.

...

Рейтинг:

0 / 0

20.03.2020, 05:52

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939363

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

параметры в запросе объявлять с типами!

...

Рейтинг:

0 / 0

20.03.2020, 05:53

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939364

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

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

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

...
Set qdf = dbs.QueryDefs(vArray(i))
  With qdf.Parameters
    .Item("[City]").Value=Nz(Me.City)
    .Item("[CheckIn]").Value=Nz(Me.CheckIn)
    .Item("[CheckOut]").Value=Nz(Me.CheckOut)
    .Item("[Adult]").Value=Nz(Me.Adult)
    .Item("[Child]").Value=Nz(Me.Child)
  end with
qdf.Execute
...

...

Рейтинг:

0 / 0

20.03.2020, 06:00

| Ответить | Цитировать | Написать

Запросы на добавление в таблицы, с параметрами из формы

#39939366

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

Сейчас заметил что параметры у тебя DateTime, а не Long

Панург

Код: sql

1.
2.
3.
4.

PARAMETERS [City] Text (255), [CheckOut] DateTime, [CheckIn] DateTime, ...;
INSERT INTO vbs_Invoice_Q_Between (Id, [In House])
SELECT ..., [CheckOut]-[CheckIn] AS [In House], ...
FROM ...

...

Рейтинг:

0 / 0

20.03.2020, 06:06

| Ответить | Цитировать | Написать

25 сообщений из 132, страница 5 из 6

все

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запросы на добавление в таблицы, с параметрами из формы

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39938760&tid=1610170]:	0ms
get settings:	9ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	57ms
get topic data:	10ms
get forum data:	3ms
get page messages:	56ms
get tp. blocked users:	1ms
others:	13ms

total:	166ms