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

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

Гость

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

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

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

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

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

все

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

#39938395

Loxinfo

Гость

Панург

Loxinfo

Я нашел пример, только не понимаю как его переделать под мои нужды, и возможно ли это

Научись работать с запросами с параметрами (DAO или ADO). Не формируй строк в коде (в данном случае это извращение), оставляй сохранённые запросы. Когда я делал большие отчёты. то формировал временную таблицу(цы) в линкованной временной бд. Иной раз проще считать через несколько временных таблиц. Всё это несложно.

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

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

...

Рейтинг:

0 / 0

17.03.2020, 18:10

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

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

#39938396

Панург

Участник

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

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

Рейтинг: 0 / 0

Loxinfo, выше тебе написали, но всё же прочти Как запускать запросы из VBA , зря что ли люди составляли

...

Рейтинг:

0 / 0

17.03.2020, 18:14

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

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

#39938401

Loxinfo

Гость

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

Loxinfo

Нужно програмно запустить запрос на добавление с параметрами.

Классика для запроса, использующего ссылки на формы:

Код: vbnet

1.
2.
3.
4.
5.

Set qdf = dbs.QueryDefs("vbs_Q_Between_Add")
For Each prp In qdf.Properties
  prp.Value = Eval(prp.Name)
Nevt
qdf.Execute

Еще есть DoCmd.OpenQuery. Он, вроде, такие ссылки глотает молча, но задает вопросы (это лечится).

Спасибо, этот код (чуть измененный) я указал в самом начале
Я не знаю как мне подставить значения из формы, куда именно???

Код: plsql

1.
2.
3.

For Each prp In qdf.Properties
  prp.Value = Eval(prp.Name)
Nevt

на форме Me![FindCity] = в запросе [City]
на форме [CheckIn] = в запросе [CheckIn]
на форме [CheckOut] = в запросе [CheckOut]
на форме [Adult] = в запросе [Adult]
на форме [Child] = в запросе [Child]
в запросе есть ссылки на поля на форме
[Forms]![HotelCalculator]![CheckIn]
[Forms]![HotelCalculator]![CheckOut]
[Forms]![HotelCalculator]![Adult]
[Forms]![HotelCalculator]![Child]

...

Рейтинг:

0 / 0

17.03.2020, 18:19

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

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

#39938405

Loxinfo

Гость

Панург

Loxinfo, выше тебе написали, но всё же прочти Как запускать запросы из VBA , зря что ли люди составляли

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

Код: plsql

1.
2.
3.

For Each prp In qdf.Properties
  prp.Value = Eval(prp.Name)
Nevt

Извините...

...

Рейтинг:

0 / 0

17.03.2020, 18:23

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

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

#39938417

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Loxinfo

Спасибо, этот код (чуть измененный) я указал в самом начале

и код в самом начале мне непонятен - нет начального значения strSQL да и пробела перед WHERE нет

там же перед городом двойной апостроф имеется, а после города его нет

если предположить, что начальное strSQL =queryDefs(vbs_Q_Between_Add).SQL
но где значение переменной vbs_Q_Between_Add

Код: sql

1.
2.
3.
4.
5.
6.

 Set dbs = CurrentDb
        Set qdf = dbs.CreateQueryDef(vbs_Q_Between_Add)
        Application.RefreshDatabaseWindow
    ''''''' ЧТО ЗДЕСЬ'''''''''''''''''''''''''''
        strSQL = strSQL & "WHERE [City]=""" & Me![FindCity]
        qdf.sql = strSQL

выкладывать надо нормальные тексты, а не куцые обрезки

...

Рейтинг:

0 / 0

17.03.2020, 18:39

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

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

#39938425

Loxinfo

Гость

ПЕНСИОНЕРКА

Loxinfo

Спасибо, этот код (чуть измененный) я указал в самом начале

Код: sql

1.
2.
3.
4.
5.
6.

 Set dbs = CurrentDb
        Set qdf = dbs.CreateQueryDef(vbs_Q_Between_Add)
        Application.RefreshDatabaseWindow
    ''''''' ЧТО ЗДЕСЬ'''''''''''''''''''''''''''
        strSQL = strSQL & "WHERE [City]=""" & Me![FindCity]
        qdf.sql = strSQL

выкладывать надо нормальные тексты, а не куцые обрезки

Извините, это не мой код, я просто чувствую что это то чно нужно, но не знаю как и что нужно изменить, поэтому и спросил совет
Ниже код, который я попытался изменить и подставить значения из формы, не работает
Выдает ошибку на
автор qdf("Forms!HotelCalculator!FindCity") = _
Forms!HotelCalculator!FindCity
Хотя город определил верно

Код: 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.

Private Sub CreatePrmRst2_Click()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    
    Set db = CurrentDb()
  
   'DoCmd.OpenForm "HotelCalculator", , , , , acDialog
    

    'If IsFormOpen("HotelCalculator") Then
        
        Set qdf = db.QueryDefs("vbs_Q_Between_Add")
        
        qdf("Forms!HotelCalculator!FindCity") = _
         Forms!HotelCalculator!FindCity
        qdf("Forms!HotelCalculator!CheckIn") = _
         Forms!HotelCalculator!CheckIn
        qdf("Forms!HotelCalculator!CheckOut") = _
         Forms!HotelCalculator!CheckOut
        qdf("Forms!HotelCalculator!Adult") = _
         Forms!HotelCalculator!Adult
        qdf("Forms!HotelCalculator!Child") = _
         Forms!HotelCalculator!Child


        Set rst = qdf.OpenRecordset()
        rst.MoveLast
        MsgBox "Recordset created with " & rst.RecordCount & _
         " records.", vbOKOnly + vbInformation, "CreatePrmRst"
        
        qdf.Close
        rst.Close
    'Else
      
Cancel.
        MsgBox "Query cancelled!", vbOKOnly + vbCritical, _
         "CreatePrmRst"
    'End If
    
    DoCmd.Close acForm, "HotelCalculator"
    Set qdf = Nothing
    Set rst = Nothing
    Set db = Nothing
End Sub

...

Рейтинг:

0 / 0

17.03.2020, 18:55

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

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

#39938434

Панург

Участник

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

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

Рейтинг: 0 / 0

Loxinfo

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

Код: vbnet

1.
2.
3.

For Each prp In qdf.Properties
  prp.Value = Eval(prp.Name)'<- вот тут и вставляются значения форм что указаны в запросе
NeXt

...

Рейтинг:

0 / 0

17.03.2020, 19:05

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

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

#39938436

Панург

Участник

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

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

Рейтинг: 0 / 0

Loxinfo, тренируйся лучше... на кошках. (с)

сделай маленькую базёнку, тестовую

...

Рейтинг:

0 / 0

17.03.2020, 19:10

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

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

#39938439

Loxinfo

Гость

Панург

Loxinfo, тренируйся лучше... на кошках. (с)

сделай маленькую базёнку, тестовую

Я так и делаю, кошки закончились..., а новых не достать, вилус зверствует...

...

Рейтинг:

0 / 0

17.03.2020, 19:17

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

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

#39938444

Loxinfo

Гость

Панург

Loxinfo

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

Код: vbnet

1.
2.
3.

For Each prp In qdf.Properties
  prp.Value = Eval(prp.Name)'<- вот тут и вставляются значения форм что указаны в запросе
NeXt

Спасибо, подставил данные в код

Код: plsql

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

Dim q As DAO.QueryDef, p As DAO.Parameter
  Set q = CurrentDb.QueryDefs("vbs_Q_Between_Add") 
  For Each p In q.Parameters
    p.Value = Eval(p.Name) = City        <---- город определил верно
    p.Value = Eval(p.Name) = CheckIn   <--------дату верно
    p.Value = Eval(p.Name) = CheckOut  <------- верно
    p.Value = Eval(p.Name) = Adult         <------ верно
    p.Value = Eval(p.Name) = Adult         <---- верно
  Next
  q.Execute   ------------< выдает ошибку
  q.Close: Set q = Nothing

может я что-то не верно в коде сделал?

...

Рейтинг:

0 / 0

17.03.2020, 19:32

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

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

#39938448

sdku

Участник

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

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

Рейтинг: 0 / 0

еще вариант:

...

Рейтинг:

0 / 0

17.03.2020, 19:48

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

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

#39938449

Панург

Участник

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

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

Рейтинг: 0 / 0

Loxinfo

Код: vbnet

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

Dim q As DAO.QueryDef, p As DAO.Parameter
  Set q = CurrentDb.QueryDefs("vbs_Q_Between_Add") 
  For Each p In q.Parameters
     p.Value = Eval(p.Name) = City        <---- город определил верно
    p.Value = Eval(p.Name) = CheckIn   <--------дату верно
    p.Value = Eval(p.Name) = CheckOut  <------- верно
    p.Value = Eval(p.Name) = Adult         <------ верно
    p.Value = Eval(p.Name) = Adult         <---- верно
  Next
  q.Execute   ------------< выдает ошибку
  q.Close: Set q = Nothing

Выделенное это чего?!

...

Рейтинг:

0 / 0

17.03.2020, 20:01

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

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

#39938450

Панург

Участник

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

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

Рейтинг: 0 / 0

Loxinfo

Код: vbnet

p.Value = Eval(p.Name)

Ты представляешь чего делает эта строка?

...

Рейтинг:

0 / 0

17.03.2020, 20:03

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

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

#39938490

Loxinfo

Гость

sdku

еще вариант:

Спасибо.
Поблема в добавлении переменных данных в запрос а из запроса во временную Таблицу

авторЭтот запрос на добавление в таблицу работает и вносит данные в таблицу, но..., как я писал выше, есть переменные, от которых зависит информация, которая должна быть в таблицах

поясню идею
Т.к. я не могу вывести информацию отлько одним или несколькими запросами, я решил использовать таблицы, в которые нужно складировать информацию из ЗАПРОСОВ
vbs_Q_Between_Add
vbs_Q_From_Add
vbs_Q_Not_Between_Add
vbs_Q_To_Add
в соответствии с переменными ([City], [DateFrom], [DateTo], [Adult], [Child])

...

Рейтинг:

0 / 0

18.03.2020, 04:47

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

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

#39938491

Loxinfo

Гость

Панург

Loxinfo

Код: vbnet

p.Value = Eval(p.Name)

Ты представляешь чего делает эта строка?

Как я понял из (Как запускать запросы из VBA) эта строка подставляет в запрос данные из формы, которые соответствуют данным в запросе.

Я все правильно понял?

...

Рейтинг:

0 / 0

18.03.2020, 04:52

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

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

#39938493

Панург

Участник

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

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

Рейтинг: 0 / 0

Loxinfo

Я все правильно понял?

в общем случае функция Eval вычисляет выражение представленное буквенноцифровой строкой и (если может) возвращает значение. Далее это значение присваивается конкретному параметру запроса.
А у тебя чего написано в 22100915 (я выделил)? Что за муть? Ты одному параметру переприсваиваешь кучу значений, да ещё и все они Boolean !
В коде примера в цикле For на каждой итерации присваивается каждому параметру одно определённое значение .

И, да, Eval(prp.Name) , например, prp.Name="[Forms]![HotelCalculator]![CheckIn]" (это просто строка названия параметра!) и соответственно Eval("[Forms]![HotelCalculator]![CheckIn]") (это оценивается как выражение). Действительно в конечном итоге возвращается значение из формы (если она существует в коллекции Forms ) и присваивается как значение параметра запроса.

...

Рейтинг:

0 / 0

18.03.2020, 05:42

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

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

#39938496

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.

Private Sub tt_Click()
Dim qdf As QueryDef
On Error GoTo Errhandler

    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"
            Resume
        Case Else
            MsgBox Err.Number & " " & Err.Description
    End Select
End Sub

Возможно решение не самое лучшее, но оно работает.

Причины, по которой я задал вопрос на этом форуме:
около 14ти разработчиков не смогли сделать (ЗА ДЕНЬГИ, НЕ МАЛЕНЬКИЕ) то что я попросил, мотивировав это тем что база данных не способствует реализации моего запроса.

Я знаю свою программу и базу данных, сам все это сделал, (иногда находил код на и-нете и переделывал под свои нужды), я не програмист, обычный водолаз сварщик.
Мое убеждение, всегда можно найти выход из тупика, если не ТУПИТЬ...

Поэтому решил проверить их заявления, они оказались ложными, все можно сделать и ДАЖЕ Я СМОГ ЭТО СДЕЛАТЬ

Для: Владимир Саныч
Прошу вас, для таких как я, скромных и не владеющих знаниями програмирования, сделайте FAQ более доступным, тогда МЫ не будем задавать "Глупые", на взгляд профи., вопросы.

П.С.
Я так и не понял куда и что подставлять в

Код: plsql

 p.Value = Eval(p.Name)

Всем счастья, здоровья.

...

Рейтинг:

0 / 0

18.03.2020, 07:36

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

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

#39938498

Панург

Участник

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

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

Рейтинг: 0 / 0

Loxinfo

П.С.
Я так и не понял куда и что подставлять в

Код: plsql

 p.Value = Eval(p.Name)

...

Рейтинг:

0 / 0

18.03.2020, 07:50

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

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

#39938500

Панург

Участник

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

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

Рейтинг: 0 / 0

Loxinfo, подзадержался

Loxinfo

П.С.
Я так и не понял куда и что подставлять в

Код: plsql

 p.Value = Eval(p.Name)

Примерно так

Код: vbnet

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

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))
      For Each prp In qdf.Properties
        prp.Value = Eval(prp.Name)
      Next
    qdf.Execute
  next i

End Sub

...

Рейтинг:

0 / 0

18.03.2020, 08:03

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

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

#39938506

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Loxinfo

Возможно решение не самое лучшее, но оно работает.

не могу понять, как работает - вы одной и той же переменной присваиваете 4 значения,
значит остается только одно Set qdf = CurrentDb.QueryDefs("vbs_Q_To_Add_temp")

я на форумах более 10 лет, но никогда не видела подобного выполнения запросов

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

On Error GoTo Errhandler

    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")

...

Рейтинг:

0 / 0

18.03.2020, 08:16

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

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

#39938508

4d_monster

Участник

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

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

Рейтинг: 0 / 0

ПЕНСИОНЕРКА,

Тоже не сразу сообразил , но думаю что первые три запроса получают данные от формы, т.к. используется DoCmd.OpenQuery, которая так может. А не CurrentDB.Execute, так не может.

...

Рейтинг:

0 / 0

18.03.2020, 08:20

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

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

#39938510

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

4d_monster

в этом последнем запросе 4 раза модифицируется текст, но выполняется 3 старых запроса и только последний с изменениями
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" 'новый

экзотика да и только

...

Рейтинг:

0 / 0

18.03.2020, 08:29

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

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

#39938511

Панург

Участник

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

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

Рейтинг: 0 / 0

ПЕНСИОНЕРКА

не могу понять, как работает - вы одной и той же переменной присваиваете 4 значения,

у него через ошибку (отсутствие запроса) копируется оригинал, далее в копии меняется текст запроса и выполняется. Вот такой финт вместо цикла... через ж...

...

Рейтинг:

0 / 0

18.03.2020, 08:30

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

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

#39938513

Панург

Участник

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

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

Рейтинг: 0 / 0

но это не точно (с)

...

Рейтинг:

0 / 0

18.03.2020, 08:31

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

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

#39938521

Loxinfo

Гость

Панург

Loxinfo, подзадержался

Loxinfo

П.С.
Я так и не понял куда и что подставлять в

Код: plsql

 p.Value = Eval(p.Name)

Примерно так

Код: vbnet

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

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))
      For Each prp In qdf.Properties
        prp.Value = Eval(prp.Name)
      Next
    qdf.Execute
  next i

End Sub

К сожалению код не работает, совсем

...

Рейтинг:

0 / 0

18.03.2020, 08:55

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

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

все

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

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

total:	414ms