Vba запрос / Microsoft Access

ReSQL.ru

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

Гость

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

Новые сообщения | Избранное

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Vba запрос

74 сообщений из 74, показаны все 3 страниц

все

Vba запрос

#39160281

zagadochnitsa

Гость

Как прописать готовый запрос (аксес) на вставку в VBA. в запросе заполняются 3 поля, 2 из них берут значения из формы, а третье поле заполняется еще из одного запроса.

Private Sub Кнопка4_Click()
With CurrentDb.QueryDefs("Insert_tov")
.Parameters("Nd") = Me.Поле1
.Parameters("Nt") = Me.Поле2
.Execute
End With
End Sub

Я так делала, все работают. а в этом мне пишет мало параметров. в чем может быть ошибка?
спасибо!

...

Рейтинг:

0 / 0

01.02.2016, 15:12

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

Vba запрос

#39160283

ПЕНСИОНЕРКА

Участник

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

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

Рейтинг: 0 / 0

zagadochnitsa,

возможно поля 1 или 2 пустые
мы ведь даже их тип не видим
для дат вообще свои законы
==========
выложите базу или хотя бы
--запрос
--значения полей 1 и 2

...

Рейтинг:

0 / 0

01.02.2016, 15:14

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

Vba запрос

#39160287

zagadochnitsa

Гость

INSERT INTO Product_report ( N_rep, R_date, СуммаНаПочаток )
SELECT [Nt] AS Выражение1, [Nd] AS Выражение2, Zaluwku.[остаток_на_ начало_ дня]
FROM Zaluwku;
это запрос вставки
соответственно поле1 дата, оно не пустое при проверке все значение ввожу с формы

...

Рейтинг:

0 / 0

01.02.2016, 15:17

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

Vba запрос

#39160290

ПЕНСИОНЕРКА

Участник

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

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

Рейтинг: 0 / 0

zagadochnitsa,

но дата должна вводится в американском формате mm/dd/yyyy
вряд ли вы это обеспечили

...

Рейтинг:

0 / 0

01.02.2016, 15:20

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

Vba запрос

#39160294

zagadochnitsa

Гость

ПЕНСИОНЕРКА,
подскажите, пожалуйста, как это сделать)
я маску на форме прописала на дату 00.00.0000;0;" "

...

Рейтинг:

0 / 0

01.02.2016, 15:21

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

Vba запрос

#39160335

ПЕНСИОНЕРКА

Участник

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

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

Рейтинг: 0 / 0

zagadochnitsa,

я видимо сделала та, что бы уменьшить возню с кавычками(если я конечно не перепутала поля 1 2)

Код: vbnet

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

Private Sub Кнопка4_Click()
Dim s1
s1 = "INSERT INTO Product_report ( N_rep, R_date, СуммаНаПочаток )"
s1 = s1 & " SELECT [Nt] , [Nd] ,"
s1 = s1 & " Zaluwku.[остаток_на_ начало_ дня]"
s1 = s1 & " FROM Zaluwku;"

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

Debug.Print s1
CurrentDb.Execute s1
End Sub

...

Рейтинг:

0 / 0

01.02.2016, 15:58

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

Vba запрос

#39160338

zagadochnitsa

Гость

ПЕНСИОНЕРКА,Спасибо огромное за помощь!
но все равно говорит,что мало параметров.
может у меня криво что-то стоит?

...

Рейтинг:

0 / 0

01.02.2016, 16:02

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

Vba запрос

#39160341

ПЕНСИОНЕРКА

Участник

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

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

Рейтинг: 0 / 0

zagadochnitsa,

может я поля 1 2 перепутала или у вас одно из полей пустое или одно дата, второе символьное

...

Рейтинг:

0 / 0

01.02.2016, 16:06

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

Vba запрос

#39160351

zagadochnitsa

Гость

ПЕНСИОНЕРКА, проверила, все правильно, вы не ошиблись.

...

Рейтинг:

0 / 0

01.02.2016, 16:09

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

Vba запрос

#39160359

ПЕНСИОНЕРКА

Участник

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

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

Рейтинг: 0 / 0

zagadochnitsa,

у меня работает(создала отладочную таблички)
выложите базу ---иначе не угадать ситуацию

...

Рейтинг:

0 / 0

01.02.2016, 16:15

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

Vba запрос

#39160363

zagadochnitsa

Гость

ПЕНСИОНЕРКА, спасибо еще раз) не могу выложить)

...

Рейтинг:

0 / 0

01.02.2016, 16:18

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

Vba запрос

#39160368

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsa,

Сколько записей должно вставиться?
Одна?
Тогда нужно ввести ограничение на выборку из таблицы Zaluwku.
Либо WHERE Zaluwku.<дата> = Format(Me.Поле2, "\#mm\/dd\/yyyy\#"), либо TOP 1, либо еще как-то.

...

Рейтинг:

0 / 0

01.02.2016, 16:22

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

Vba запрос

#39160380

zagadochnitsa

Гость

__Michelle,
так тоже говорит, что мало параметров(

...

Рейтинг:

0 / 0

01.02.2016, 16:30

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

Vba запрос

#39160384

ПЕНСИОНЕРКА

Участник

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

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

Рейтинг: 0 / 0

zagadochnitsaПЕНСИОНЕРКА, спасибо еще раз) не могу выложить)
никто же у вас не просил реальные таблицы
учитесь делать отладочные
--сохранение структуры
--2-3 записи

...

Рейтинг:

0 / 0

01.02.2016, 16:33

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

Vba запрос

#39160402

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsa,

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

...

Рейтинг:

0 / 0

01.02.2016, 16:42

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

Vba запрос

#39160413

zagadochnitsa

Гость

__Michelle,

__Michelle,
N_rep числовой,
R_date дата/время
сумманапочаток числовой.
должна вставляться одна запись.

INSERT INTO Product_report ( N_rep, R_date, СуммаНаПочаток )
SELECT [nt] AS Выражение1, [nd] AS Выражение2, Zaluwku.[остаток_на_ начало_ дня]
FROM Zaluwku
WHERE ((([nd])=[Forms]![Trade_report]![Поле1]));

...

Рейтинг:

0 / 0

01.02.2016, 16:48

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

Vba запрос

#39160460

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsa__Michelle,

__Michelle,
N_rep числовой,
R_date дата/время
сумманапочаток числовой.
должна вставляться одна запись.

INSERT INTO Product_report ( N_rep, R_date, СуммаНаПочаток )
SELECT [nt] AS Выражение1, [nd] AS Выражение2, Zaluwku.[остаток_на_ начало_ дня]
FROM Zaluwku
WHERE ((([nd])=[Forms]![Trade_report]![Поле1]));

Код: vbnet

1.
2.
3.
4.

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

...

Рейтинг:

0 / 0

01.02.2016, 17:21

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

Vba запрос

#39160467

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Небольшая недоделка, поправляю.

Код: vbnet

1.
2.
3.
4.

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

...

Рейтинг:

0 / 0

01.02.2016, 17:28

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

Vba запрос

#39160473

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 862

Рейтинг: 1 / 0

http://www.sql.ru/faq/faq_topic.aspx?fid=157

Например, нет ли там десятичной запятой в первом числе?

...

Рейтинг:

0 / 0

01.02.2016, 17:33

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

Vba запрос

#39160477

zagadochnitsa

Гость

Владимир Саныч,
нет,целое число

...

Рейтинг:

0 / 0

01.02.2016, 17:37

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

Vba запрос

#39160492

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsa,

Если до сих пор ничего не выходит, остается добавить Nz к [остаток_на_ начало_ дня].

Код: vbnet

1.
2.
3.

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

Как теперь?

...

Рейтинг:

0 / 0

01.02.2016, 17:57

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

Vba запрос

#39160606

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 862

Рейтинг: 1 / 0

А что вообще получается в переменной strSQL?

...

Рейтинг:

0 / 0

01.02.2016, 23:26

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

Vba запрос

#39160704

zagadochnitsa

Гость

Все время выдает, что слишком мало параметров)

...

Рейтинг:

0 / 0

02.02.2016, 09:03

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

Vba запрос

#39160749

ПЕНСИОНЕРКА

Участник

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

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

Рейтинг: 0 / 0

zagadochnitsa,

где-то лишние запятіе или апострофі
больше наврать здесь негде

...

Рейтинг:

0 / 0

02.02.2016, 09:56

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

Vba запрос

#39160752

ПЕНСИОНЕРКА

Участник

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

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

Рейтинг: 0 / 0

zagadochnitsa,

и добавьте отладку для просмотра в окне отладки

Код: vbnet

1.
2.
3.
4.

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

и сомневаюсь в єтом "[nd]=" & Me.Поле1)) & ")"

...

Рейтинг:

0 / 0

02.02.2016, 10:00

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

Vba запрос

#39160765

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsaВсе время выдает, что слишком мало параметров)1. Покажите текст строки strSQL.
Для этого:
а) после оператора присвоения значения поставьте

Код: vbnet

Debug.Print strSQL

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

2. А также выложите структуры таблиц, участвующих в запросе,
для проверки корректности задания имен в запросе.

...

Рейтинг:

0 / 0

02.02.2016, 10:13

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

Vba запрос

#39160781

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

Гость

Анатолий ( Киев ),
Zaluwku, это запрос, в нем ссылка на поле формы, поле 1, там где дата
а как правильно тогда его прописать в vba?

...

Рейтинг:

0 / 0

02.02.2016, 10:37

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

Vba запрос

#39160794

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

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

Гость

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

Гость

__Michelle,Простите, я просто ищу в чем еще ошибки могут быть. работают они однаково.

zagadochnitsa, в ваших же интересах оформлять текст максимально понятно, в тегах. И мне надоело исправлять за вами. Следующий код без тегов будет удален. mds_world

...

Рейтинг:

0 / 0

02.02.2016, 10:42

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

Vba запрос

#39160806

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Кавычка исчезла. С планшета не очень удобно.

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

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

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

Гость

__Michelle, боюсь не правильно написать.
пробовала, теперь просит 4 параметра.

...

Рейтинг:

0 / 0

02.02.2016, 11:07

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

Vba запрос

#39160840

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

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

Участник

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

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

Рейтинг: 0 / 0

zagadochnitsa,
Смотри здесь http://www.sql.ru/faq/faq_topic.aspx?fid=410
про параметры.

...

Рейтинг:

0 / 0

02.02.2016, 11:25

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

Vba запрос

#39160863

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

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsaбоюсь не правильно написать.Для оформления текста программы/запроса тегами нужно
- выделить нужный фрагмент своего текста
- выбрать нужное из списка SRC (инструменты над окном ввода сообщения), в Вашем случае это либо vba, либо t-sql.
Нажмите на кнопку Предварительный просмотр (под окном ввода сообщения) и посмотрите на результат.

...

Рейтинг:

0 / 0

02.02.2016, 11:27

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

Vba запрос

#39160866

zagadochnitsa

Гость

RVI,Спасибо, я вчера это читала, но результат никакой не получила

...

Рейтинг:

0 / 0

02.02.2016, 11:28

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

Vba запрос

#39160869

zagadochnitsa

Гость

__Michelle,я сделала первую попытку)

...

Рейтинг:

0 / 0

02.02.2016, 11:29

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

Vba запрос

#39160876

zagadochnitsa

Гость

__Michelle, самое обидное, что в моей базе insert используется где-то 22 раза и не было таких проблем. а здесь постоянно,что не хватает параметров и все.

...

Рейтинг:

0 / 0

02.02.2016, 11:31

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

Vba запрос

#39160894

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

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

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsa__Michelle,я сделала первую попытку)Хорошо (не очень, правда).
Но там нужен был тег VBA.

...

Рейтинг:

0 / 0

02.02.2016, 11:42

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

Vba запрос

#39160911

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

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

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

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsa,

А почему строка Dim strSQL As String закомментирована?

...

Рейтинг:

0 / 0

02.02.2016, 12:10

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

Vba запрос

#39160946

zagadochnitsa

Гость

__Michelle,я хотела показать, что у меня ошибка в выражении, оно все красное. поэтому я пыталась исправлять

...

Рейтинг:

0 / 0

02.02.2016, 12:21

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

Vba запрос

#39160950

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Прошу прощения, у меня пропали знаки продолжения строк.
И кавычка перед [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

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

Vba запрос

#39160953

ПЕНСИОНЕРКА

Участник

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

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

Рейтинг: 0 / 0

zagadochnitsa,

Код: vbnet

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

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, 12:24

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

Vba запрос

#39160959

zagadochnitsa

Гость

__Michelle,
результат вот такой:

Код: vbnet

INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток) VALUES (,#11/26/2015#,5591351,54000001)

...

Рейтинг:

0 / 0

02.02.2016, 12:30

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

Vba запрос

#39160966

zagadochnitsa

Гость

Код: vbnet

INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток) VALUES (15,#12/15/2015#,5893670,16000001)

точнее вот так, я номер не ввела

...

Рейтинг:

0 / 0

02.02.2016, 12:35

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

Vba запрос

#39160976

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsa__Michelle,
результат вот такой:

Код: vbnet

INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток) VALUES (,#11/26/2015#,5591351,54000001)

Так. Значений вводится три (если верить...), а результирующих позиций четыре....
Или это одно число такое, 5591351,54000001? Вряд ли...
Причем первое значение (N_rep) пустое (?).
Сделайте так:
- очистите окно отладки (все удалите),
- скопируйте туда (полностью, с первым вопросительным знаком)

Код: vbnet

1.
2.
3.

? "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\#")) & ")"

- установите курсор в конец этого
- нажмите Enter
- скопируйте все содержимое окна отладки
- выложите сюда.

...

Рейтинг:

0 / 0

02.02.2016, 12:41

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

Vba запрос

#39160983

zagadochnitsa

Гость

__Michelle, сдела все как написали, но пишет ошибка выражения

...

Рейтинг:

0 / 0

02.02.2016, 12:48

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

Vba запрос

#39160992

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsa__Michelle, сдела все как написали, но пишет ошибка выраженияА, ну конечно!
Ведь там неизвестны Me.Поле1 и Me.Поле2.

Тогда объясните, пожалуйста, что такое 5591351,54000001.
Это два числа или одно?

...

Рейтинг:

0 / 0

02.02.2016, 12:57

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

Vba запрос

#39160998

zagadochnitsa

Гость

__Michelle, это число, потому что в запросе Zaluwku, считается сумма за 2 года.
и я только что проверила, в запросе sql то сумма на 26.11.2015 составляет 5 591 351,54.

...

Рейтинг:

0 / 0

02.02.2016, 13:01

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

Vba запрос

#39161001

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsa__Michelle, это число, потому что в запросе Zaluwku, считается сумма за 2 года.
и я только что проверила, в запросе sql то сумма на 26.11.2015 составляет 5 591 351,54.Ну, вот.
Нужно заменить в числе десятичную запятую на десятичную точку.

Код: vbnet

1.
2.
3.

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

Попробуйте теперь выполнить запрос.

Код: vbnet

CurrentDb.Execute strSQL

...

Рейтинг:

0 / 0

02.02.2016, 13:09

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

Vba запрос

#39161006

zagadochnitsa

Гость

__Michelle, wrong number of arguments or invalid property assignment к сожалению

...

Рейтинг:

0 / 0

02.02.2016, 13:15

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

Vba запрос

#39161012

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsa,

Да. Немного не туда поместила (перед другой скобкой).
А теперь?

Код: vbnet

1.
2.
3.

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

...

Рейтинг:

0 / 0

02.02.2016, 13:28

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

Vba запрос

#39161035

zagadochnitsa

Гость

__Michelle,урааа,все получилось, работает, спасибо Вам огромное!Спасибо,спасибо,спасибо!
Извините за потрепанные нервы! )

...

Рейтинг:

0 / 0

02.02.2016, 13:42

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

Vba запрос

#39161043

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

zagadochnitsa__Michelle,урааа,все получилось, работает, спасибо Вам огромное!Спасибо,спасибо,спасибо!
Извините за потрепанные нервы! )Хорошо. Наконец-то.)))
Мои-то нервы в порядке.)))
А ведь Владимир Саныч еще вчера наводил на мысль 18757995 ...

...

Рейтинг:

0 / 0

02.02.2016, 13:46

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

Vba запрос

#39161051

zagadochnitsa

Гость

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

...

Рейтинг:

0 / 0

02.02.2016, 13:50

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

Vba запрос

#39161099

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 862

Рейтинг: 1 / 0

__MichelleА ведь Владимир Саныч еще вчера наводил на мысль 18757995 ...
Запятая оказалась не в первом числе, а в третьем... Основная проблема, как всегда, получить от спрашивающего информацию. Но с таким ником было понятно, что это не гарантировано.

...

Рейтинг:

0 / 0

02.02.2016, 14:39

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

Vba запрос

#39161106

zagadochnitsa

Гость

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

...

Рейтинг:

0 / 0

02.02.2016, 14:46

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

Vba запрос

#39161955

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 862

Рейтинг: 1 / 0

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

...

Рейтинг:

0 / 0

03.02.2016, 13:48

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

Vba запрос

#39161964

ПЕНСИОНЕРКА

Участник

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

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

Рейтинг: 0 / 0

zagadochnitsaВладимир Саныч, если можно было бы открыть все карты и действительно показать структуру и все остальные нюансы)было бы намного легче)

но по крайней мере про debug.print было сказано уже в 5-м сообщении
учитесь читать .......это необходимо

...

Рейтинг:

0 / 0

03.02.2016, 13:57

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

Vba запрос

#39162001

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Ой, сколько спеси...

...

Рейтинг:

0 / 0

03.02.2016, 14:22

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

Vba запрос

#39162068

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 862

Рейтинг: 1 / 0

__MichelleОй, сколько спеси...
Вы бы знали, сколько крови и пота за этим стоит. Когда приходят один за другим люди за помощью, а сами помочь помогающим не хотят ни на вот столько.

...

Рейтинг:

0 / 0

03.02.2016, 15:06

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

Vba запрос

#39162111

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Владимир Саныч__MichelleОй, сколько спеси...
Вы бы знали, сколько крови и пота за этим стоит. Когда приходят один за другим люди за помощью, а сами помочь помогающим не хотят ни на вот столько.Так ведь никто никого не заставляет.
Помощь - дело добровольное.
И потом, ленивых бездельников, которым "срочно зачет" сразу видно.
Здесь не тот случай.

"Кровь и пот" компенсируются, как мне кажется, ироническим взглядом на происходящее.)))

...

Рейтинг:

0 / 0

03.02.2016, 15:38

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

Vba запрос

#39162180

zagadochnitsa

Гость

__Michelle, Спасибо)

...

Рейтинг:

0 / 0

03.02.2016, 16:18

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

Vba запрос

#39162414

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 862

Рейтинг: 1 / 0

__MichelleТак ведь никто никого не заставляет.
Помощь - дело добровольное.
Совершенно верно. Я и ушел отсюда года два назад. Кому-то лучше от этого? То, что я сегодня стал отвечать, - это случайность.

...

Рейтинг:

0 / 0

03.02.2016, 20:40

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

Vba запрос

#39162446

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Владимир СанычПомощь - дело добровольное.
Совершенно верно. Я и ушел отсюда года два назад. Кому-то лучше от этого? То, что я сегодня стал отвечать, - это случайность.Как же и кому от этого может быть лучше?!
Никак и никому!
Но, возможно, слегка изменился профиль деятельности, Access уже на периферии интересов?
Хотя...
Вот смотрю темы и обсуждения тех прошлых лет,
когда я еще сюда не заходила (о чем, конечно, жалею), и то, что сейчас - "две большие разницы"...
Отмирают некоторые технологии быстро, к сожалению.
Хорошо, что тут, на форуме, есть еще отдельные прекрасные знатоки, могущие рассказать много интересного по любой теме.
Но некоторые из них тоже уже редко появляются. Жаль.

Конечно, и круг вопросов, и контингент спрашивающих уже не тот.
Но, согласитесь, изрекать "учитесь читать .......это необходимо" 18767276
растерянной и оттого не сразу вникающей девочке как-то не очень.
Вот на это я и отреагировала.
Но это нисколько не умаляет моего уважения к знаниям и готовности помочь автора этих слов.

Ладно, буря в стакане воды.)))

Возвращайтесь!

...

Рейтинг:

0 / 0

03.02.2016, 21:39

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

Vba запрос

#39162860

Анатолий ( Киев )

Гость

Код: vbnet

1.
2.
3.

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

Я много раз советовал не использовать INSERT...VALUES... Вот этот пример - отличная иллюстрация. А кроме формата даты и вида дес. разделителя еще есть борьба с Null и кавычками внутри строки.
Альтернатива:

Код: vbnet

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

With  CurrentDb.OpenRecordset("SELECT * FROM Product_report WHERE 1=0")
  .AddNew
  !N_rep = Me.Поле2
  !R_date = Me.Поле1
  !СуммаНаПочаток = DLookUp("[остаток_на_ начало_ дня]", "Zaluwku", "[All_Date]=" & Format(Me.Поле1, "\#mm\/dd\/yyyy\#"))
  .Updete
End With

Такой подход не имеет указанных проблем и как-то элегантнее, что ли.

ЗЫ. Пани zagadochnitsa ранее писала, что "Zaluwku", это запрос, использующий ссылку на форму. Неужели DLookUp с таким источником работает? Был уверен, что нет.

...

Рейтинг:

0 / 0

04.02.2016, 12:50

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

74 сообщений из 74, показаны все 3 страниц

все

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Vba запрос

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

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

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

start [/forum/topic.php?all=1&fid=45&tid=1613963]:	0ms
get settings:	11ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	36ms
get topic data:	11ms
get forum data:	3ms
get page messages:	98ms
get tp. blocked users:	2ms
others:	322ms

total:	504ms