ReSQL.ru
     
powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запросы на добавление в таблицы, с параметрами из формы
25 сообщений из 132, страница 4 из 6
  4  все
Запросы на добавление в таблицы, с параметрами из формы
    #39938601
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Loxinfo
3) запрос temp я выложил, он на фото выше

просмотрела все, но не нашла

Код: sql
1.
2.
3.
INSERT INTO vbs_Invoice_Q_Between
SELECT vbs_Q_Between.*, *
FROM vbs_Q_Between;



это читается, как вставить в таблицу vbs_Invoice_Q_Between
vbs_Q_Between.* - все поля таблицы/запроса vbs_Q_Between
* после запятой снова запрашивает все поля vbs_Q_Between

я совсем не чайник, а педантизм при поиске ошибок - обязателен
...
Рейтинг: 0 / 0
18.03.2020, 10:54
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938605
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Loxinfo
почему вы ей не верите? это название запроса
там не в названии дело, а в двух звёздочках. Т.е. у тебя выводится 2 набора полей. Но в данном случае не важно, вставится из первого.

Что там с моим вопросом? 22101131
...
Рейтинг: 0 / 0
18.03.2020, 10:57
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938614
Loxinfo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loxinfo
Гость
ПЕНСИОНЕРКА
Loxinfo
3) запрос temp я выложил, он на фото выше

просмотрела все, но не нашла

Код: sql
1.
2.
3.
INSERT INTO vbs_Invoice_Q_Between
SELECT vbs_Q_Between.*, *
FROM vbs_Q_Between;



авторэто читается, как вставить в таблицу vbs_Invoice_Q_Between
vbs_Q_Between.* - все поля таблицы/запроса vbs_Q_Between
* после запятой снова запрашивает все поля vbs_Q_Between


я совсем не чайник, а педантизм при поиске ошибок - обязателен

Извините за "чайник"

на фото 3 запроса в конструкторе

авторэто читается, как вставить в таблицу vbs_Invoice_Q_Between
vbs_Q_Between.* - все поля таблицы/запроса vbs_Q_Between
* после запятой снова запрашивает все поля vbs_Q_Between

Это делал Access автоматом
...
Рейтинг: 0 / 0
18.03.2020, 11:17
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938618
Loxinfo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loxinfo
Гость
Панург
Loxinfo
почему вы ей не верите? это название запроса
там не в названии дело, а в двух звёздочках. Т.е. у тебя выводится 2 набора полей. Но в данном случае не важно, вставится из первого.

Что там с моим вопросом? 22101131


Ответ на фото, ниже
одну из звездочек я убрал, это было из за того что я удалил случайно старый запрос и переделал запрос на временную таблицу в запрос на добавление
...
Рейтинг: 0 / 0
18.03.2020, 11:28
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938621
Loxinfo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loxinfo
Гость
Панург
Loxinfo
почему вы ей не верите? это название запроса
там не в названии дело, а в двух звёздочках. Т.е. у тебя выводится 2 набора полей. Но в данном случае не важно, вставится из первого.

Что там с моим вопросом? 22101131



Ошибка

Код: 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.Property
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.Properties
        prp.Value = Eval(prp.Name) ------- < Тут
Debug.Print prp.Name
      Next
    qdf.Execute
  Next i

End Sub
...
Рейтинг: 0 / 0
18.03.2020, 11:32
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938626
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Loxinfo, а теперь сравни что у меня написано и у тебя... внимательно
...
Рейтинг: 0 / 0
18.03.2020, 11:40
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938629
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Loxinfo, ну и ошибка (перевод)
Изменения не были успешно внесены из-за повторяющихся значений в индексе, ключевых полях или связях. Измените данные в поле или полях, содержащих повторяющиеся значения, удалите индекс или переопределите его, чтобы разрешить
повторяющиеся значения, и повторите попытку.
Ни о чём не заставляет задуматься?

Вывод - код работает, разбирайся чего там с данными.
...
Рейтинг: 0 / 0
18.03.2020, 11:45
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938631
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Loxinfo, ну и вывод сообщений зря отключил... где-то тут 22100683
...
Рейтинг: 0 / 0
18.03.2020, 11:47
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938663
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.
Private Sub tt_Click()
Dim dbs as Dao.Database,  qdf As Dao.QueryDef, prp as Dao.Property
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.Properties
        'prp.Value = Eval(prp.Name)
Debug.Print prp.Name
      Next
    'qdf.Execute -------<<<<< тут
  next i

End Sub




Ваш код, но я активировал пару строк,
а именно ('prp.Value = Eval(prp.Name)
и эту ('qdf.Execute )

Код: 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.Property
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.Properties
        prp.Value = Eval(prp.Name) ------- < Тут
Debug.Print prp.Name
      Next
    qdf.Execute
  Next i

End Sub



Без активации этих строк код даже не "пикнул"

авторНи о чём не заставляет задуматься?
Вывод - код работает, разбирайся чего там с данными.

Я хорошо читаю по английски
1) судя по предупреждению, код пытался инф. из всех 4х запросов слить или объединить в одну кучу, что делать нельзя
2) если посмотреть внимательно на ваш код, (хочу напомнить, я ЧАЙНИК и делаю все по интуиции) в нем нет никакой инф. куда нужно поместить, как и что именно нужно поменять в запросах, которые только и указаны в коде
...
Рейтинг: 0 / 0
18.03.2020, 12:33
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938667
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Loxinfo
судя по предупреждению, код пытался инф. из всех 4х запросов слить или объединить в одну кучу, что делать нельзя
он делает ровно то что написано в запросах - выполняет их.
Я не знаю структуру таблиц, но могу предположить, что предупреждение отключено (DoCmd.SetWarnings или через опции) потому запросы выполняемые через DoCmd.OpenQuery молчат и попросту не выполняются, т.к. данные уже есть.
...
Рейтинг: 0 / 0
18.03.2020, 12:40
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938673
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Loxinfo
если посмотреть внимательно на ваш код, (хочу напомнить, я ЧАЙНИК и делаю все по интуиции) в нем нет никакой инф. куда нужно поместить, как и что именно нужно поменять в запросах, которые только и указаны в коде
А откуда бы мне знать что поменять в запросах? Ещё раз повторю код выполняет запросы и в нормальных условиях, уж поверь мне, делает это хорошо.
Если это замечание касается того, что не понятно куда в модуле VBA вписать код, то вполне логично предположить что туда же (точнее вместо) откуда взят приведённый твой код 22101022
...
Рейтинг: 0 / 0
18.03.2020, 12:45
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938675
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Loxinfo
Без активации этих строк код даже не "пикнул"
он и не должен пищать, он пишет результат в окно Immediate (я писал об этом выше). Это окно можно увидеть там же где расположен код VBA, т.е. в редакторе. Если окно это отсутствует, то его нужно включить сочетанием Ctrl+G или в меню->View->Immediate Window

Весь этот процесс называется отладка кода
...
Рейтинг: 0 / 0
18.03.2020, 12:51
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938687
Loxinfo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loxinfo
Гость
Уважаемые гуру программирования, а также, как говорят у нас в "деревне"
Кун Кру, АчанЫ и Сенсеи...

Давайте забудем что было написано выше.
Сделаем глубокий вдох, и со свежей головой и полными легкими (того, кто что вдохнул...) прочтем текст ниже

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

3) 4 запроса на добавление во временные таблицы, ну и сами временные таблицы
Запросы на добавление
Код: plsql
1.
2.
3.
4.
vbs_Q_Between_Add
vbs_Q_From_Add
vbs_Q_Not_Between_Add
vbs_Q_To_Add



Временные таблицы
Код: plsql
1.
2.
3.
4.
vbs_Invoice_Q_Between
vbs_Invoice_Q_From
vbs_Invoice_Q_Not_Between
vbs_Invoice_Q_To


4) 1 форма с 5ю (пять) параметрами, которые меняются непосредственно в форме
Код: plsql
1.
2.
3.
4.
5.
[Forms]![HotelCalculator]![City])
[Forms]![HotelCalculator]![CheckIn])
[Forms]![HotelCalculator]![CheckOut])
[Forms]![HotelCalculator]![Adult])
[Forms]![HotelCalculator]![Child])


Во всех запросах меняются ТОЛЬКО эти 5ть параметров

ЗАДАЧА....
Нужно через код VBA изменять переменные в запросах на добавление, ПЕРЕД добавлением во временные таблицы
Типа инф которую вносят в форме, а это; [City], [CheckIn], [CheckOut], [Adult], [Child] , ничего более менять в запросах не нужно
Повторюсь, инф. в запросах разная и только эти 5ть параметров одинаковые во всех 4х запросах
Да структура запросов, ячейки, их кол-во все одинаковое, но инфа разная

И теперь, как говорил наш ком. взвода, перед марш броском, попробуем дойти с этим, барахлом, до дверей казармы, а там уже будет легче.
...
Рейтинг: 0 / 0
18.03.2020, 13:03
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938689
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Loxinfo
Нужно через код VBA изменять переменные в запросах на добавление, ПЕРЕД добавлением во временные таблицы
в запросах нет переменных, там параметры
так и сделано уж. Не пробовал очищать таблицы (временные?) прежде чем вносить данные? Или этого не требуется?
...
Рейтинг: 0 / 0
18.03.2020, 13:06
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938690
Loxinfo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loxinfo
Гость
Панург
Loxinfo
Без активации этих строк код даже не "пикнул"
он и не должен пищать, он пишет результат в окно Immediate (я писал об этом выше). Это окно можно увидеть там же где расположен код VBA, т.е. в редакторе. Если окно это отсутствует, то его нужно включить сочетанием Ctrl+G или в меню->View->Immediate Window

Весь этот процесс называется отладка кода


фото ниже
...
Рейтинг: 0 / 0
18.03.2020, 13:07
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938691
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
очищать можно прежде чем заполнять
...
Рейтинг: 0 / 0
18.03.2020, 13:07
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938693
Loxinfo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loxinfo
Гость
Панург
Loxinfo
Нужно через код VBA изменять переменные в запросах на добавление, ПЕРЕД добавлением во временные таблицы
в запросах нет переменных, там параметры
так и сделано уж. Не пробовал очищать таблицы (временные?) прежде чем вносить данные? Или этого не требуется?


код на форме
...
Рейтинг: 0 / 0
18.03.2020, 13:09
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938695
Loxinfo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loxinfo
Гость
Панург
очищать можно прежде чем заполнять


я же уже сделал скрины чистых табл.
код с запросами на удаление их чистит при каждой загрузке формы
я хоть и чайник, но уж не до такой степени.. ;)
...
Рейтинг: 0 / 0
18.03.2020, 13:11
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938698
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Loxinfo, гм... вот и видно что я ошибся
поменяй Parameter
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
...
Dim dbs as Dao.Database,  qdf As Dao.QueryDef, prp as  As DAO.Parameter
...
      For Each prp In qdf.Parameters' Properties
        prp.Value = Eval(prp.Name)
      Next
...


копируя нужно проверять, даже то что написали опытные люди (это мне)
...
Рейтинг: 0 / 0
18.03.2020, 13:14
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938700
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
после смены протестируй ещё раз
...
Рейтинг: 0 / 0
18.03.2020, 13:16
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938728
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
Панург
Loxinfo, гм... вот и видно что я ошибся
поменяй Parameter
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
...
Dim dbs as Dao.Database,  qdf As Dao.QueryDef, prp as  As DAO.Parameter
...
      For Each prp In qdf.Parameters' Properties
        prp.Value = Eval(prp.Name)
      Next
...


копируя нужно проверять, даже то что написали опытные люди (это мне)
Блин! Это я ошибся! Ну конечно Parameters, а не Properties. Аж стыдно...
...
Рейтинг: 0 / 0
18.03.2020, 14:13
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938729
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Loxinfo
Давайте забудем что было написано выше

давайте

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

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

Есть форма с переменными
([City]-город, [DateFrom]- начало периода, [DateTo]-конец периода, [Adult]-взрослые, [Child]-дети)
...
Рейтинг: 0 / 0
18.03.2020, 14:15
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938751
Loxinfo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loxinfo
Гость
Кривцов Анатолий
Панург
Loxinfo, гм... вот и видно что я ошибся
поменяй Parameter
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
...
Dim dbs as Dao.Database,  qdf As Dao.QueryDef, prp as  As DAO.Parameter
...
      For Each prp In qdf.Parameters' Properties
        prp.Value = Eval(prp.Name)
      Next
...


копируя нужно проверять, даже то что написали опытные люди (это мне)
Блин! Это я ошибся! Ну конечно Parameters, а не Properties. Аж стыдно...


Ниже детали по работе кода
Код: 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.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
vbs_Q_Between_Add
Name
DateCreated
LastUpdated
Type
SQL
Updatable
Connect
ReturnsRecords
ODBCTimeout
RecordsAffected
MaxRecords
StillExecuting
CacheSize
Prepare
RecordLocks
UseTransaction
Orientation
OrderByOn
DefaultView
----------
vbs_Q_Not_Between_Add
Name
DateCreated
LastUpdated
Type
SQL
Updatable
Connect
ReturnsRecords
ODBCTimeout
RecordsAffected
MaxRecords
StillExecuting
CacheSize
Prepare
RecordLocks
UseTransaction
Orientation
----------
vbs_Q_From_Add
Name
DateCreated
LastUpdated
Type
SQL
Updatable
Connect
ReturnsRecords
ODBCTimeout
RecordsAffected
MaxRecords
StillExecuting
CacheSize
Prepare
RecordLocks
UseTransaction
Orientation
----------
vbs_Q_To_Add
Name
DateCreated
LastUpdated
Type
SQL
Updatable
Connect
ReturnsRecords
ODBCTimeout
RecordsAffected
MaxRecords
StillExecuting
CacheSize
Prepare
RecordLocks
UseTransaction
Orientation
----------
vbs_Q_Between_Add
----------
vbs_Q_Between_Add
Name
DateCreated
LastUpdated
Type
SQL
Updatable
Connect
ReturnsRecords
ODBCTimeout
RecordsAffected
MaxRecords
StillExecuting
CacheSize
Prepare
RecordLocks
UseTransaction
Orientation
OrderByOn
DefaultView
----------
vbs_Q_Not_Between_Add
Name
DateCreated
LastUpdated
Type
SQL
Updatable
Connect
ReturnsRecords
ODBCTimeout
RecordsAffected
MaxRecords
StillExecuting
CacheSize
Prepare
RecordLocks
UseTransaction
Orientation
----------
vbs_Q_From_Add
Name
DateCreated
LastUpdated
Type
SQL
Updatable
Connect
ReturnsRecords
ODBCTimeout
RecordsAffected
MaxRecords
StillExecuting
CacheSize
Prepare
RecordLocks
UseTransaction
Orientation
----------
vbs_Q_To_Add
Name
DateCreated
LastUpdated
Type
SQL
Updatable
Connect
ReturnsRecords
ODBCTimeout
RecordsAffected
MaxRecords
StillExecuting
CacheSize
Prepare
RecordLocks
UseTransaction
Orientation
----------
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]
...
Рейтинг: 0 / 0
18.03.2020, 14:38
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938754
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
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
...
Рейтинг: 0 / 0
18.03.2020, 14:46
| Ответить | Цитировать | Написать  
Запросы на добавление в таблицы, с параметрами из формы
    #39938755
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Кривцов Анатолий
Блин! Это я ошибся! Ну конечно Parameters, а не Properties. Аж стыдно...
Да я тоже хорош...
...
Рейтинг: 0 / 0
18.03.2020, 14:47
| Ответить | Цитировать | Написать  
25 сообщений из 132, страница 4 из 6
  4  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запросы на добавление в таблицы, с параметрами из формы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39938691&tid=1610170]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 54ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 250ms
total:  413ms
созд. / загр.: 413ms
x
x
Закрыть


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