ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Vba запрос
25 сообщений из 74, страница 2 из 3
  2  все
Vba запрос
    #39160765
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsaВсе время выдает, что слишком мало параметров)1. Покажите текст строки strSQL.
Для этого:
а) после оператора присвоения значения поставьте
Код: vbnet
1.
Debug.Print strSQL

б) после выполнения откройте окно Immediate (клавишами Ctrl-G)
в) скопируйте текст из этого окна
г) выложите здесь

2. А также выложите структуры таблиц, участвующих в запросе,
для проверки корректности задания имен в запросе.
...
Рейтинг: 0 / 0
02.02.2016, 10:13
| Ответить | Цитировать | Написать  
Vba запрос
    #39160781
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
Код: sql
1.
2.
3.
4.
INSERT INTO Product_report ( N_rep, R_date, СуммаНаПочаток )
SELECT [nt] AS Выражение1, [nd] AS Выражение2, Zaluwku.[остаток_на_ начало_ дня]
FROM Zaluwku
WHERE Zaluwku.All_Date=[nd];



Вот этот запрос в sql работает вообще без проблем, быстро,правильно)
а в vba, что бы не делала слишком мало параметров)
...
Рейтинг: 0 / 0
02.02.2016, 10:25
| Ответить | Цитировать | Написать  
Vba запрос
    #39160785
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Zaluwku - это таблица или запрос? Если запрос, то нет ли в нем ссылки на элемент формы?
Если есть, то это ваш недостающий параметр.
...
Рейтинг: 0 / 0
02.02.2016, 10:31
| Ответить | Цитировать | Написать  
Vba запрос
    #39160791
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
Анатолий ( Киев ),
Zaluwku, это запрос, в нем ссылка на поле формы, поле 1, там где дата
а как правильно тогда его прописать в vba?
...
Рейтинг: 0 / 0
02.02.2016, 10:37
| Ответить | Цитировать | Написать  
Vba запрос
    #39160794
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsaINSERT INTO Product_report ( N_rep, R_date, СуммаНаПочаток )
SELECT [nt] AS Выражение1, [nd] AS Выражение2, Zaluwku.[остаток_на_ начало_ дня]
FROM Zaluwku
WHERE Zaluwku.All_Date=[nd];

Вот этот запрос в sql работает вообще без проблем, быстро,правильно)
а в vba, что бы не делала слишком мало параметров)Вы издеваетесь?)))
Где говорилось про All_Date?
Код: vbnet
1.
2.
3.
strSQL = "INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток) " & 
         "VALUES (" & Me.Поле1 & "," & Format(Me.Поле2, "\#mm\/dd\/yyyy\#") & "," & 
         DLookUp("[остаток_на_ начало_ дня]", "Zaluwku", [All_Date]=" & Me.Поле1) & ")"
...
Рейтинг: 0 / 0
02.02.2016, 10:40
| Ответить | Цитировать | Написать  
Vba запрос
    #39160798
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Кнопка8_Click()
Dim s1
s1 = "INSERT INTO Product_report ( N_rep, R_date, СуммаНаПочаток )"
s1 = s1 & " SELECT [Nt] , [Nd] ,"
s1 = s1 & " Zaluwku.[ОстатокНаНачалоДня]"
s1 = s1 & " FROM Zaluwku where (Zaluwku.All_Date = Me.Поле1);"


s1 = Replace(s1, "[nt]", Me.Поле2)
s1 = Replace(s1, "[nd]", Format(Me.Поле1, "\#mm\/dd\/yyyy\#"))

Debug.Print s1
CurrentDb.Execute s1
End Sub




Это из последних вариантов
...
Рейтинг: 0 / 0
02.02.2016, 10:41
| Ответить | Цитировать | Написать  
Vba запрос
    #39160800
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle,Простите, я просто ищу в чем еще ошибки могут быть. работают они однаково.


zagadochnitsa, в ваших же интересах оформлять текст максимально понятно, в тегах. И мне надоело исправлять за вами. Следующий код без тегов будет удален. mds_world
...
Рейтинг: 0 / 0
02.02.2016, 10:42
| Ответить | Цитировать | Написать  
Vba запрос
    #39160806
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Кавычка исчезла. С планшета не очень удобно.
Код: vbnet
1.
2.
3.
strSQL = "INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток) " & 
         "VALUES (" & Me.Поле1 & "," & Format(Me.Поле2, "\#mm\/dd\/yyyy\#") & "," & 
         DLookUp("[остаток_на_ начало_ дня]", "Zaluwku", "[All_Date]=" & Me.Поле1) & ")"
...
Рейтинг: 0 / 0
02.02.2016, 10:47
| Ответить | Цитировать | Написать  
Vba запрос
    #39160810
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
zagadochnitsaZaluwku, это запрос, в нем ссылка на поле формы, поле 1, там где дата
а как правильно тогда его прописать в vba? Допустим, ссылка выглядит как [Forms]![ИмяФормы]![поле 1]
Тогда:
...
.Parameters("Nd") = Me.Поле1
.Parameters("Nt") = Me.Поле2
.Parameters("[Forms]![ИмяФормы]![поле 1]") = Forms![ИмяФормы]![поле 1]
 .Execute
...
Рейтинг: 0 / 0
02.02.2016, 10:51
| Ответить | Цитировать | Написать  
Vba запрос
    #39160818
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsa
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Кнопка8_Click()
Dim s1
s1 = "INSERT INTO Product_report ( N_rep, R_date, СуммаНаПочаток )"
s1 = s1 & " SELECT [Nt] , [Nd] ,"
s1 = s1 & " Zaluwku.[ОстатокНаНачалоДня]"
s1 = s1 & " FROM Zaluwku where (Zaluwku.All_Date = Me.Поле1);"


s1 = Replace(s1, "[nt]", Me.Поле2)
s1 = Replace(s1, "[nd]", Format(Me.Поле1, "\#mm\/dd\/yyyy\#"))

Debug.Print s1
CurrentDb.Execute s1
End Sub




Это из последних вариантов???
А это 18760244 пробовали?
И почему не отвечаете на 18760018 ?
...
Рейтинг: 0 / 0
02.02.2016, 10:58
| Ответить | Цитировать | Написать  
Vba запрос
    #39160828
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle, боюсь не правильно написать.
пробовала, теперь просит 4 параметра.
...
Рейтинг: 0 / 0
02.02.2016, 11:07
| Ответить | Цитировать | Написать  
Vba запрос
    #39160840
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsa__Michelle, боюсь не правильно написать.
пробовала, теперь просит 4 параметра.Какая-то путаница с Поле1 и Поле2.
А так?
Код: vbnet
1.
2.
3.
strSQL = "INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток) " & 
         "VALUES (" & Me.Поле2 & "," & Format(Me.Поле1, "\#mm\/dd\/yyyy\#") & "," & 
         DLookUp("[остаток_на_ начало_ дня]", "Zaluwku", [All_Date]=" & Format(Me.Поле1, "\#mm\/dd\/yyyy\#")) & ")"

Выложите, пожалуйста, результат, то есть, содержимое строки strSQL - текст запроса.
...
Рейтинг: 0 / 0
02.02.2016, 11:15
| Ответить | Цитировать | Написать  
Vba запрос
    #39160859
RVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RVI
Участник
zagadochnitsa,
Смотри здесь http://www.sql.ru/faq/faq_topic.aspx?fid=410
про параметры.
...
Рейтинг: 0 / 0
02.02.2016, 11:25
| Ответить | Цитировать | Написать  
Vba запрос
    #39160863
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle, с полями не страшно, я их корректирую, когда запрос пишу, не путаю.
а вот сейчас новая проблема, вба не хочет воспринимать # в формате даты, поэтому ничего не вышло.

Код: sql
1.
2.
3.
[SRC PLSQL]strSQL = "INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток)" _
         & "VALUES (" & Me.Поле2 & "," & Me.Поле1 & "," _
         & DLookup("[ОстатокНаНачалоДня]", "Zaluwku", [All_Date] = " & Me.Поле1 & ")

[/SRC]
...
Рейтинг: 0 / 0
02.02.2016, 11:27
| Ответить | Цитировать | Написать  
Vba запрос
    #39160864
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsaбоюсь не правильно написать.Для оформления текста программы/запроса тегами нужно
- выделить нужный фрагмент своего текста
- выбрать нужное из списка SRC (инструменты над окном ввода сообщения), в Вашем случае это либо vba, либо t-sql.
Нажмите на кнопку Предварительный просмотр (под окном ввода сообщения) и посмотрите на результат.
...
Рейтинг: 0 / 0
02.02.2016, 11:27
| Ответить | Цитировать | Написать  
Vba запрос
    #39160866
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
RVI,Спасибо, я вчера это читала, но результат никакой не получила
...
Рейтинг: 0 / 0
02.02.2016, 11:28
| Ответить | Цитировать | Написать  
Vba запрос
    #39160869
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle,я сделала первую попытку)
...
Рейтинг: 0 / 0
02.02.2016, 11:29
| Ответить | Цитировать | Написать  
Vba запрос
    #39160876
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle, самое обидное, что в моей базе insert используется где-то 22 раза и не было таких проблем. а здесь постоянно,что не хватает параметров и все.
...
Рейтинг: 0 / 0
02.02.2016, 11:31
| Ответить | Цитировать | Написать  
Vba запрос
    #39160894
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsa__Michelle, с полями не страшно, я их корректирую, когда запрос пишу, не путаю.
а вот сейчас новая проблема, вба не хочет воспринимать # в формате даты, поэтому ничего не вышло.

Код: sql
1.
2.
3.
[SRC PLSQL]strSQL = "INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток)" _
         & "VALUES (" & Me.Поле2 & "," & Me.Поле1 & "," _
         & DLookup("[ОстатокНаНачалоДня]", "Zaluwku", [All_Date] = " & Me.Поле1 & ")

[/SRC]То есть, как это не хочет?)))
Сделайте в точности так, как сказано в 18760383 .
Где закрывающая скобка?
И вообще...
Покажите-же, наконец, текст, получившийся в strSQL .
Скопируйте все из 18760383 , не внося своих, не знаю чего....
И покажите, что это дает.
...
Рейтинг: 0 / 0
02.02.2016, 11:40
| Ответить | Цитировать | Написать  
Vba запрос
    #39160899
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsa__Michelle,я сделала первую попытку)Хорошо (не очень, правда).
Но там нужен был тег VBA.
...
Рейтинг: 0 / 0
02.02.2016, 11:42
| Ответить | Цитировать | Написать  
Vba запрос
    #39160911
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle,
Private Sub Кнопка10_Click()
'Dim strSQL As String

strSQL = "INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток) " &
"VALUES (" & Me.Поле2 & "," & Format(Me.Поле1, "\#mm\/dd\/yyyy\#") & "," &
DLookUp("[остаток_на_ начало_ дня]", "Zaluwku", [All_Date]=" & Format(Me.Поле1, "\#mm\/dd\/yyyy\#")) & ")"


End Sub
...
Рейтинг: 0 / 0
02.02.2016, 11:46
| Ответить | Цитировать | Написать  
Vba запрос
    #39160928
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsa__Michelle,
Private Sub Кнопка10_Click()
'Dim strSQL As String

strSQL = "INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток) " &
"VALUES (" & Me.Поле2 & "," & Format(Me.Поле1, "\#mm\/dd\/yyyy\#") & "," &
DLookUp("[остаток_на_ начало_ дня]", "Zaluwku", [All_Date]=" & Format(Me.Поле1, "\#mm\/dd\/yyyy\#")) & ")"


End Sub)))
Да не это.
Чему теперь равна строка strSQL, после того, как ей присвоено значение?

Поставьте, как уже несколько раз говорилось, Debug.Print strSQL после strSQL = ....
Откройте окно отладки (Ctrl-G) - появится внизу окна VBA.
И скопируйте текст оттуда.
Покажите здесь.

Если что-то непонятно, спросите.)))
...
Рейтинг: 0 / 0
02.02.2016, 12:06
| Ответить | Цитировать | Написать  
Vba запрос
    #39160932
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsa,

А почему строка Dim strSQL As String закомментирована?
...
Рейтинг: 0 / 0
02.02.2016, 12:10
| Ответить | Цитировать | Написать  
Vba запрос
    #39160946
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle,я хотела показать, что у меня ошибка в выражении, оно все красное. поэтому я пыталась исправлять
...
Рейтинг: 0 / 0
02.02.2016, 12:21
| Ответить | Цитировать | Написать  
Vba запрос
    #39160950
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Прошу прощения, у меня пропали знаки продолжения строк.
И кавычка перед [All_Date].
Исправляю.
Код: vbnet
1.
2.
3.
strSQL = "INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток) " & _
         "VALUES (" & Me.Поле2 & "," & Format(Me.Поле1, "\#mm\/dd\/yyyy\#") & "," & _
         DLookUp("[остаток_на_ начало_ дня]", "Zaluwku", "[All_Date]=" & Format(Me.Поле1, "\#mm\/dd\/yyyy\#")) & ")"
...
Рейтинг: 0 / 0
02.02.2016, 12:23
| Ответить | Цитировать | Написать  
25 сообщений из 74, страница 2 из 3
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Vba запрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39160810&tid=1613963]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 63ms
get tp. blocked users:
 1ms
others: 321ms
total:  466ms
созд. / загр.: 466ms
x
x
Закрыть


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