ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Vba запрос
24 сообщений из 74, страница 3 из 3
  3  все
Vba запрос
    #39160953
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle,
результат вот такой:
Код: vbnet
1.
INSERT INTO Product_report (N_rep, R_date, СуммаНаПочаток) VALUES (,#11/26/2015#,5591351,54000001)
...
Рейтинг: 0 / 0
02.02.2016, 12:30
| Ответить | Цитировать | Написать  
Vba запрос
    #39160966
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
Код: vbnet
1.
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsa__Michelle,
результат вот такой:
Код: vbnet
1.
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle, сдела все как написали, но пишет ошибка выражения
...
Рейтинг: 0 / 0
02.02.2016, 12:48
| Ответить | Цитировать | Написать  
Vba запрос
    #39160992
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsa__Michelle, сдела все как написали, но пишет ошибка выраженияА, ну конечно!
Ведь там неизвестны Me.Поле1 и Me.Поле2.

Тогда объясните, пожалуйста, что такое 5591351,54000001.
Это два числа или одно?
...
Рейтинг: 0 / 0
02.02.2016, 12:57
| Ответить | Цитировать | Написать  
Vba запрос
    #39160998
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle, это число, потому что в запросе Zaluwku, считается сумма за 2 года.
и я только что проверила, в запросе sql то сумма на 26.11.2015 составляет 5 591 351,54.
...
Рейтинг: 0 / 0
02.02.2016, 13:01
| Ответить | Цитировать | Написать  
Vba запрос
    #39161001
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
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
1.
CurrentDb.Execute strSQL
...
Рейтинг: 0 / 0
02.02.2016, 13:09
| Ответить | Цитировать | Написать  
Vba запрос
    #39161006
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle, wrong number of arguments or invalid property assignment к сожалению
...
Рейтинг: 0 / 0
02.02.2016, 13:15
| Ответить | Цитировать | Написать  
Vba запрос
    #39161012
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle,урааа,все получилось, работает, спасибо Вам огромное!Спасибо,спасибо,спасибо!
Извините за потрепанные нервы! )
...
Рейтинг: 0 / 0
02.02.2016, 13:42
| Ответить | Цитировать | Написать  
Vba запрос
    #39161043
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
zagadochnitsa__Michelle,урааа,все получилось, работает, спасибо Вам огромное!Спасибо,спасибо,спасибо!
Извините за потрепанные нервы! )Хорошо. Наконец-то.)))
Мои-то нервы в порядке.)))
А ведь Владимир Саныч еще вчера наводил на мысль 18757995 ...
...
Рейтинг: 0 / 0
02.02.2016, 13:46
| Ответить | Цитировать | Написать  
Vba запрос
    #39161051
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle, я не думала,что это имеет такую важную роль. мне неплохо было бы еще позаниматься программированием,только преподавателя хорошего найти не могу)
...
Рейтинг: 0 / 0
02.02.2016, 13:50
| Ответить | Цитировать | Написать  
Vba запрос
    #39161099
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
__MichelleА ведь Владимир Саныч еще вчера наводил на мысль 18757995 ...
Запятая оказалась не в первом числе, а в третьем... Основная проблема, как всегда, получить от спрашивающего информацию. Но с таким ником было понятно, что это не гарантировано.
...
Рейтинг: 0 / 0
02.02.2016, 14:39
| Ответить | Цитировать | Написать  
Vba запрос
    #39161106
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
Владимир Саныч, если можно было бы открыть все карты и действительно показать структуру и все остальные нюансы)было бы намного легче)
...
Рейтинг: 0 / 0
02.02.2016, 14:46
| Ответить | Цитировать | Написать  
Vba запрос
    #39161955
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Да нет, всю структуру не надо. Только одно значение переменной. При обычной отладке это обычное дело - проверять значения переменных. При отладке через форум это тоже нужно, но не всегда получается...
...
Рейтинг: 0 / 0
03.02.2016, 13:48
| Ответить | Цитировать | Написать  
Vba запрос
    #39161964
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
zagadochnitsaВладимир Саныч, если можно было бы открыть все карты и действительно показать структуру и все остальные нюансы)было бы намного легче)

но по крайней мере про debug.print было сказано уже в 5-м сообщении
учитесь читать .......это необходимо
...
Рейтинг: 0 / 0
03.02.2016, 13:57
| Ответить | Цитировать | Написать  
Vba запрос
    #39162001
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Ой, сколько спеси...
...
Рейтинг: 0 / 0
03.02.2016, 14:22
| Ответить | Цитировать | Написать  
Vba запрос
    #39162068
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
__MichelleОй, сколько спеси...
Вы бы знали, сколько крови и пота за этим стоит. Когда приходят один за другим люди за помощью, а сами помочь помогающим не хотят ни на вот столько.
...
Рейтинг: 0 / 0
03.02.2016, 15:06
| Ответить | Цитировать | Написать  
Vba запрос
    #39162111
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Владимир Саныч__MichelleОй, сколько спеси...
Вы бы знали, сколько крови и пота за этим стоит. Когда приходят один за другим люди за помощью, а сами помочь помогающим не хотят ни на вот столько.Так ведь никто никого не заставляет.
Помощь - дело добровольное.
И потом, ленивых бездельников, которым "срочно зачет" сразу видно.
Здесь не тот случай.

"Кровь и пот" компенсируются, как мне кажется, ироническим взглядом на происходящее.)))
...
Рейтинг: 0 / 0
03.02.2016, 15:38
| Ответить | Цитировать | Написать  
Vba запрос
    #39162180
zagadochnitsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zagadochnitsa
Гость
__Michelle, Спасибо)
...
Рейтинг: 0 / 0
03.02.2016, 16:18
| Ответить | Цитировать | Написать  
Vba запрос
    #39162414
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
__MichelleТак ведь никто никого не заставляет.
Помощь - дело добровольное.
Совершенно верно. Я и ушел отсюда года два назад. Кому-то лучше от этого? То, что я сегодня стал отвечать, - это случайность.
...
Рейтинг: 0 / 0
03.02.2016, 20:40
| Ответить | Цитировать | Написать  
Vba запрос
    #39162446
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Владимир СанычПомощь - дело добровольное.
Совершенно верно. Я и ушел отсюда года два назад. Кому-то лучше от этого? То, что я сегодня стал отвечать, - это случайность.Как же и кому от этого может быть лучше?!
Никак и никому!
Но, возможно, слегка изменился профиль деятельности, 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
| Ответить | Цитировать | Написать  
24 сообщений из 74, страница 3 из 3
  3  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Vba запрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39160953&tid=1613963]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 40ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 17ms
total:  169ms
созд. / загр.: 169ms
x
x
Закрыть


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