ReSQL.ru
     
powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема с date в VBA
76 сообщений из 76, показаны все 4 страниц
  все  
Проблема с date в VBA
    #37971049
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
Исходя из FAQ по формированию строки sql использую следующее: #" & Format([бд]![Внутренний заказДата],"mm\/dd\/yyyy") & "#
В запросе, созданным в конструкторе, работает нормально, но копируя код в VBA появляется ошибка 2465 “не удается найти поле”, пробовал с разными полями в разных базах, т.е. ошибка в синтаксисе, но перепробовав различные варианты, не смог ее найти. Поиск не помог.
Dim q As Date
q = Now
с подстановкой q вместо [бд]![Внутренний заказДата] не помогает также.
Как правильно писать в vba #" & Format([бд]![Внутренний заказДата],"mm\/dd\/yyyy") & "#. Спасибо.
...
Рейтинг: 0 / 0
25.09.2012, 11:35
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971060
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
Автор123,

пробовали использовать одинарные кавычки вместо двойных?
...
Рейтинг: 0 / 0
25.09.2012, 11:42
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971075
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
Если менять какие-то одни, vba ругается и краснеет, если все 4 - ошибка синтаксиса.
...
Рейтинг: 0 / 0
25.09.2012, 11:47
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971093
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
Автор123,

покажите ту часть кода, где образуется скл строка полностью и где вба становится стыдно настолько, что она краснеет ))))
...
Рейтинг: 0 / 0
25.09.2012, 11:56
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971107
Agapov_stas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Agapov_stas
Участник
Автор123,
Я так подозреваю, что Вы делаете несколько иное...
Два примера для размышлений:

Код: vbnet
1.
2.
3.
4.
'Пример 1
Dim q As Date
q = Now
MsgBox Format(q, "\#dd\/mm\/yyyy\#")



Код: vbnet
1.
2.
3.
4.
5.
6.
'Пример 2
Dim q As Date
Dim strSQL As String
q = Now
strSQL = " SELECT * FROM tbl WHERE DateBegin >= #" & Format(q, "dd\/mm\/yy") & "# "
MsgBox strSQL
...
Рейтинг: 0 / 0
25.09.2012, 12:04
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971112
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
Пример, в конструкторе работает, vba нет.
DoCmd.RunSQL "UPDATE бд SET бд.Прим2 = DSum('[Количество]','[бдп]','[бдп]![Внутренний заказДата]=#" & Format([бд]![Внутренний заказДата], "mm\/dd\/yyyy") & "#') WHERE (((бд.Количество)=1));"
...
Рейтинг: 0 / 0
25.09.2012, 12:07
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971129
alvk.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alvk.
Участник
Автор123,

у меня это выражение красным не выделяет.
...
Рейтинг: 0 / 0
25.09.2012, 12:14
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971145
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Ну, во-первых короче и красивше выглядит строка:
Format([бд]![Внутренний заказДата],"\#mm\/dd\/yyyy\#")
Во-вторых кавычки внутри текстовой константы должны быть продублированы, а в случае с SQL строкой могут быть заменены на апострофы.
Т.е. запрос в виде:
sSQL = "SELECT ... WHERE [Поле]=Format(Now(), "" \#mm\/dd\/yyyy\# "" )"
или
sSQL = "SELECT ... WHERE [Поле]=Format(Now(), ' \#mm\/dd\/yyyy\# ' )"
или
q = Now
sSQL = "SELECT ... WHERE [Поле]=Format(" q ", ' \#mm\/dd\/yyyy\# ' )"
работать будет.
А вот если вместо Now() указать [бд]![Внутренний заказДата], то будет работать, если таблица "бд" включена в раздел FROM запроса.
...
Рейтинг: 0 / 0
25.09.2012, 12:18
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971169
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
Есть у меня подозрение, что дело может быть в разных версиях (Access 2010, Vba 7.0), но скорее всего просто пишу с ошибкой.
Agapov_stas, не понял Вашу мысль, в обоих случаях выводит #25/09/2012#
alvk., Вы все 4 " меняете на ' или только пару?
...
Рейтинг: 0 / 0
25.09.2012, 12:30
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971197
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
Анатолий ( Киев )Ну, во-первых короче и красивше выглядит строка:
Format([бд]![Внутренний заказДата],"\#mm\/dd\/yyyy\#")
Во-вторых кавычки внутри текстовой константы должны быть продублированы, а в случае с SQL строкой могут быть заменены на апострофы.
Т.е. запрос в виде:
sSQL = "SELECT ... WHERE [Поле]=Format(Now(), "" \#mm\/dd\/yyyy\# "" )"
или
sSQL = "SELECT ... WHERE [Поле]=Format(Now(), ' \#mm\/dd\/yyyy\# ' )"
или
q = Now
sSQL = "SELECT ... WHERE [Поле]=Format(" q ", ' \#mm\/dd\/yyyy\# ' )"
работать будет.
А вот если вместо Now() указать [бд]![Внутренний заказДата], то будет работать, если таблица "бд" включена в раздел FROM запроса.
Что-то ни один из таких вариантов не работает, то тип неизвестный, то ошибка синтаксиса.
...
Рейтинг: 0 / 0
25.09.2012, 12:43
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971223
Фотография George-III
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
George-III
Участник
Автор123Анатолий ( Киев )Ну, во-первых короче и красивше выглядит строка:
Format([бд]![Внутренний заказДата],"\#mm\/dd\/yyyy\#")
Во-вторых кавычки внутри текстовой константы должны быть продублированы, а в случае с SQL строкой могут быть заменены на апострофы.
Т.е. запрос в виде:
sSQL = "SELECT ... WHERE [Поле]=Format(Now(), "" \#mm\/dd\/yyyy\# "" )"
или
sSQL = "SELECT ... WHERE [Поле]=Format(Now(), ' \#mm\/dd\/yyyy\# ' )"
или
q = Now
sSQL = "SELECT ... WHERE [Поле]=Format(" q ", ' \#mm\/dd\/yyyy\# ' )"
работать будет.
А вот если вместо Now() указать [бд]![Внутренний заказДата], то будет работать, если таблица "бд" включена в раздел FROM запроса.
Что-то ни один из таких вариантов не работает, то тип неизвестный, то ошибка синтаксиса.
Я не сомневаюсь, но просто:
[бд]![Внутренний заказДата] - это конечно же me.[бд].[Внутренний заказДата].value?
...
Рейтинг: 0 / 0
25.09.2012, 12:58
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971226
alvk.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alvk.
Участник
Автор123alvk., Вы все 4 " меняете на ' или только пару?
я просто скопировал как есть
...
Рейтинг: 0 / 0
25.09.2012, 13:00
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971251
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
George-III, запрос работает только с данными таблиц, me.[бд].[Внутренний заказДата].value это же если бы была форма?
alvk., у меня тоже ничего не выделяет, но не работает. А краснеет, если по совету askerli меняю " на '

Запрос конструктора (работает):
UPDATE бд SET бд.Прим2 = DSum("[Количество]","[бдп]","[бдп]![Внутренний заказДата]=#" & Format([бд]![Внутренний заказДата],"mm\/dd\/yyyy") & "#")
WHERE (((бд.Количество)=1));

Запрос в VBA (ошибка, не удается найти поле “|1”, указанное в выражении)
DoCmd.RunSQL "UPDATE áä SET áä.Ïðèì2 = DSum('[Êîëè÷åñòâî]','[áäï]','[áäï]![Âíóòðåííèé çàêàçÄàòà]=#" & Format([áä]![Âíóòðåííèé çàêàçÄàòà], "mm\/dd\/yyyy") & "#') WHERE (((áä.Êîëè÷åñòâî)=1));"
...
Рейтинг: 0 / 0
25.09.2012, 13:15
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971280
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
Автор123,

предполагаю, что первым параметром в функции Format должна быть ссылка на поле формы, которая содержит ту самую дату, по которой идет проверка. Есть ли такое поле на форме с указанным вами названием? Если есть, то и обращаться к ней надо как к полю формы.
...
Рейтинг: 0 / 0
25.09.2012, 13:27
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971286
alvk.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alvk.
Участник
Автор123,

1.перед копированием сюда включайте русский язык на клавиатуре.
2.пользуйтесь тэгами
...
Рейтинг: 0 / 0
25.09.2012, 13:29
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971290
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
askerliАвтор123,

предполагаю, что первым параметром в функции Format должна быть ссылка на поле формы, которая содержит ту самую дату, по которой идет проверка. Есть ли такое поле на форме с указанным вами названием? Если есть, то и обращаться к ней надо как к полю формы.
М ... тут только две таблицы, никаких форм нетути.
...
Рейтинг: 0 / 0
25.09.2012, 13:30
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971302
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
alvk.Автор123,

1.перед копированием сюда включайте русский язык на клавиатуре.

Большое спасибо, думал что такие кракозябры норма.
DoCmd.RunSQL "UPDATE бд SET бд.Прим2 = DSum('[Количество]','[бдп]','[бдп]![Внутренний заказДата]=#" & Format([бд]![Внутренний заказДата], "mm\/dd\/yyyy") & "#') WHERE (((бд.Количество)=1));"
Но суть от названия полей и таблиц не меняется, они точно правильные.
...
Рейтинг: 0 / 0
25.09.2012, 13:32
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971311
PMVolga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PMVolga
Гость
Автор123,

Попробуйте метод BuildCriteria.
...
Рейтинг: 0 / 0
25.09.2012, 13:35
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971317
alvk.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alvk.
Участник
Автор123,

если у вас две таблицы, то пользуйтесь объединением inner join и агрегатными функциями (sum) и не надо никаких format()
...
Рейтинг: 0 / 0
25.09.2012, 13:37
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971328
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
А ее в DLookUp можно засунуть? И не совсем понятно, сравнивая дату с датой, разве нужно к ней прибегать?
...
Рейтинг: 0 / 0
25.09.2012, 13:43
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971329
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
alvk.,

в faq-е есть хороший совет. цитирую
Код: html
1.
2.
3.
4.
5.
Составив такой стринг, содержащий команду SQL, и отправив его на выполнение, 
вы можете получить ошибку. В таком случае распечатайте этот стринг в отладочное окно и посмотрите на
 него глазами. Возможно, ошибка сразу бросится в глаза. Если не бросится, создайте новый запрос в 
конструкторе запросов, переключите в режим SQL, вставьте туда текст запроса и запустите на 
выполнение. Если ошибка есть, то она будет показана более явным образом.


обязательно сделайте и если не разберетесь, то и мне было бы интересно на результат дебага посмотреть
...
Рейтинг: 0 / 0
25.09.2012, 13:44
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971367
alvk.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alvk.
Участник
askerli,

вы это зачем написали сейчас?
...
Рейтинг: 0 / 0
25.09.2012, 14:03
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971372
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
askerlialvk.,

в faq-е есть хороший совет. цитирую
Код: html
1.
2.
3.
4.
5.
Составив такой стринг, содержащий команду SQL, и отправив его на выполнение, 
вы можете получить ошибку. В таком случае распечатайте этот стринг в отладочное окно и посмотрите на
 него глазами. Возможно, ошибка сразу бросится в глаза. Если не бросится, создайте новый запрос в 
конструкторе запросов, переключите в режим SQL, вставьте туда текст запроса и запустите на 
выполнение. Если ошибка есть, то она будет показана более явным образом.


обязательно сделайте и если не разберетесь, то и мне было бы интересно на результат дебага посмотреть
Если это мне (вроде alvk. ничего не писал про ошибки), я не знаю как использовать отладочное окно. Debug - Run to cursor выдает ту же ошибку:
Run-time error '2465'
Приложению Micrisift Access не удается найти поле "1|", указанное в выражении
...
Рейтинг: 0 / 0
25.09.2012, 14:05
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971379
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
alvk.askerli,

вы это зачем написали сейчас?
ТС пытается создать скл-строку и есть проблемы. надо дебажить, чтобы увидеть, что именно у него возвращается в коде. а вы о чем подумали? )))
...
Рейтинг: 0 / 0
25.09.2012, 14:08
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971389
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Автор123DoCmd.RunSQL "UPDATE бд SET бд.Прим2 = DSum('[Количество]','[бдп]','[бдп]![Внутренний заказДата]=#" & Format([бд]![Внутренний заказДата], "mm\/dd\/yyyy") & "#') WHERE (((бд.Количество)=1));"

Чтоб наглядно увидеть проблему со строкой, вместо DoCmd.RunSQL сделайте Debug.Print, посмотрите как готовая строка выглядит в окне отладки и покажите нам. По меньшей мере апостроф после второй решетки надо убрать, а сразу после 1-й - добавить.
...
Рейтинг: 0 / 0
25.09.2012, 14:13
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971391
alvk.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alvk.
Участник
askerliа вы о чем подумали?

о том, что я не ТС. и решение я уже написал выше.
...
Рейтинг: 0 / 0
25.09.2012, 14:14
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971398
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
alvk.,

прошу прощения, только сейчас заметил, что не правильно указал адресата. обращался я конечно же к ТС.
...
Рейтинг: 0 / 0
25.09.2012, 14:17
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971407
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
Анатолий ( Киев )Автор123DoCmd.RunSQL "UPDATE бд SET бд.Прим2 = DSum('[Количество]','[бдп]','[бдп]![Внутренний заказДата]=#" & Format([бд]![Внутренний заказДата], "mm\/dd\/yyyy") & "#') WHERE (((бд.Количество)=1));"

Чтоб наглядно увидеть проблему со строкой, вместо DoCmd.RunSQL сделайте Debug.Print, посмотрите как готовая строка выглядит в окне отладки и покажите нам. По меньшей мере апостроф после второй решетки надо убрать, а сразу после 1-й - добавить.
Убрал и добавил - эффекта нет.
Вместо DoCmd.RunSQL вставил Debug.Print - выходит та же ошибка. Не подскажите как посмотреть готовую строку в окне отладке (это Immediate как я понял?).
...
Рейтинг: 0 / 0
25.09.2012, 14:22
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971413
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
alvk.askerliа вы о чем подумали?

решение я уже написал выше.
Т.е. в VBA это может и не работать, и искать ошибку не имеет смысла?
...
Рейтинг: 0 / 0
25.09.2012, 14:23
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971414
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
Автор123,

думаю, вба просто не в курсе, что такое
Код: plaintext
[бд]![Внутренний заказДата]
в выражении функции Format вам надо в коде предварительно найти значение подставляемого поля в виде даты, присвоить ее переменной, а потом ее вставить в скл-строку.
...
Рейтинг: 0 / 0
25.09.2012, 14:25
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971458
alvk.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alvk.
Участник
askerli,

да и dsum() нафиг не нужен.
...
Рейтинг: 0 / 0
25.09.2012, 14:49
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971467
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
alvk.askerli,

да и dsum() нафиг не нужен.

откровенно говоря, и сам вба нафиг не нужен, если там нет ни одной формы и только 2 таблицы
...
Рейтинг: 0 / 0
25.09.2012, 14:54
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971483
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
askerli, видимо будет быстрее, если выложите пример БД (в формате MDB) с этими таблицами и модулем.
...
Рейтинг: 0 / 0
25.09.2012, 14:58
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971487
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
Анатолий ( Киев )askerli, видимо будет быстрее, если выложите пример БД (в формате MDB) с этими таблицами и модулем.
кажется, на этом топике все ошибаются с адресатами я не ТС
...
Рейтинг: 0 / 0
25.09.2012, 15:00
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971522
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
Кому интересно прилагаю аналогичный пример базы данных 2007 - 2 таблицы по 2 строчки и vba не работает. Видимо дело в версиях.
...
Рейтинг: 0 / 0
25.09.2012, 15:16
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971526
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
Пример
...
Рейтинг: 0 / 0
25.09.2012, 15:17
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971566
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
Код: sql
1.
DoCmd.RunSQL "UPDATE [Т2] SET [Т2].[Текст] = DLookUp('[Число]','[Т1]','[Т1]![Дата1]=#' & Format([Т2]![Дата2], 'mm\/dd\/yyyy') & '#');"


вроде так работает
...
Рейтинг: 0 / 0
25.09.2012, 15:38
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971593
Автор123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автор123
Гость
askerli
Код: sql
1.
DoCmd.RunSQL "UPDATE [Т2] SET [Т2].[Текст] = DLookUp('[Число]','[Т1]','[Т1]![Дата1]=#' & Format([Т2]![Дата2], 'mm\/dd\/yyyy') & '#');"


вроде так работает
Огромное спасибо! Действительно замена ' на " решает проблему, непонятно только почему не сработало раньше, то ли очепятался где-то, то ли сжатие помогло. Как всегда ларчик открывался просто.
...
Рейтинг: 0 / 0
25.09.2012, 15:54
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #37971609
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
Автор123Действительно замена ' на " решает проблему
об этом я писал еще в самом первом своем посте. верно говорят: лучше 1 раз пощупать, чем 100 раз услышать
...
Рейтинг: 0 / 0
25.09.2012, 16:01
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #38111140
Леонид Г
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Леонид Г
Гость
Подскажите, может кто знает в чем проблема.
Есть запрос с параметрами в Access , значение параметра формируется
из элемента DTPicker:
Dim cmd As ADODB.Command, cmd1 As ADODB.Command
Dim par As ADODB.Parameter, par1 As ADODB.Parameter
Set cmd = CreateObject("ADODB.Command")
Set par = cmd.CreateParameter("@date_n", adDBDate, adParamInput, , DTPicker9.Value)
Set par1 = cmd.CreateParameter("@date_k", adDBDate, adParamInput, , DTPicker0.Value)
cmd.Parameters.Append par
cmd.Parameters.Append par1
Однако в результате выполнения запроса путем экспериментов получается, что правильно он выполняется , только если в DTPicker9 поменять местами в дате день и месяц.
Запрос примерно такой strQry = "SELECT DISTINCTROW Sum(osn.Prop_gr).....
& "Where osn.Punkt_p=1 and osn.Data_zm>=@date_n and osn.Data_zm_k<=@date_k"

Заранее благодарю всех, кто откликнется.
...
Рейтинг: 0 / 0
15.01.2013, 17:34
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #38111219
Фотография ILL HEAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ILL HEAD
Участник
формат американской даты - месяц день год
...
Рейтинг: 0 / 0
15.01.2013, 18:16
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #38111224
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Леонид Г
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim cmd As ADODB.Command, cmd1 As ADODB.Command
Dim par As ADODB.Parameter, par1 As ADODB.Parameter
Set cmd = CreateObject("ADODB.Command")
Set par = cmd.CreateParameter("@date_n", adDBDate, adParamInput, , DTPicker9.Value)
Set par1 = cmd.CreateParameter("@date_k", adDBDate, adParamInput, , DTPicker0.Value)
cmd.Parameters.Append par
cmd.Parameters.Append par1



а почему вы выбрали такой тип ?
вот с этим - adDate - как будет ?
...
Рейтинг: 0 / 0
15.01.2013, 18:22
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #38111292
Леонид Г
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Леонид Г
Гость
qwerty112,
с adDate-отлично! Спасибо огромное!
...
Рейтинг: 0 / 0
15.01.2013, 19:09
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #38111299
?????
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
?????
Гость
А вот интересно
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub test_ADOdate_param()
    Dim p As New ADODB.Parameter
    Dim con As New ADODB.Connection
    Dim c As New ADODB.Command
    Dim s$
    
    s = "select datediff(dd,cast(0 as datetime),getdate())"
    con.Open "Строка подключения к МС СКЛ"
    Debug.Print con.Execute(s)(0)
    
    p.Type = adDate
    p.Value = 0
    s = "select datediff(dd,cast(? as datetime),getdate())"
    c.CommandType = adCmdText
    c.CommandText = s
    c.ActiveConnection = con
    c.Parameters.Append p
    Debug.Print c.Execute()(0)
    
    Set c = Nothing
    Set p = Nothing
    con.Close: Set con = Nothing
End Sub


Код: vbnet
1.
2.
 41287 
 41289
...
Рейтинг: 0 / 0
15.01.2013, 19:13
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Проблема с date в VBA
    #39754758
Фотография Rikozenit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rikozenit
Участник
А как быть, если поле с датой может оказаться незаполненным?
При выполнении команды sql на копирование строки с такими полями (Финиш_компл_пл is null) - возникают ошибки, так как в поле с форматом данных ДАТА невозможно вставить значение NULL:
Код: vbnet
1.
2.
CurrentProject.Connection.Execute "INSERT INTO Онлайн (Финиш_компл_пл)" _
& "VALUES (#' & Format(Финиш_компл_пл, 'mm\/dd\/yyyy') & '#);"
...
Рейтинг: 0 / 0
29.12.2018, 00:12
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39754773
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
RikozenitА как быть, если поле с датой может оказаться незаполненным?
При выполнении команды sql на копирование строки с такими полями (Финиш_компл_пл is null) - возникают ошибки, так как в поле с форматом данных ДАТА невозможно вставить значение NULL:
Код: vbnet
1.
2.
CurrentProject.Connection.Execute "INSERT INTO Онлайн (Финиш_компл_пл)" _
& "VALUES (#' & Format(Финиш_компл_пл, 'mm\/dd\/yyyy') & '#);"


Возможно, я не совсем понял вашу задачу - но в таких случаях я бы сделал предварительную проверку на заполненность поля. И далее - уже по желанию, например - либо просто тормознуть операцию, либо вставить в пустые поля некие значения по умолчанию.
...
Рейтинг: 0 / 0
29.12.2018, 04:36
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39754809
Swa111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Swa111
Гость
Rikozenit,

Null вставлять можно, у Вас в случае Null в строке получается не корректный запрос

И вообще запрос у Вас какой то странный....

Код: vbnet
1.
2.
CurrentProject.Connection.Execute "INSERT INTO Онлайн (Финиш_компл_пл)" _
& "VALUES (" & iif(isNull(Финиш_компл_пл, " Null ", "#" & Format(Финиш_компл_пл, "mm\/dd\/yyyy") & "#") & ");"
...
Рейтинг: 0 / 0
29.12.2018, 09:56
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39754880
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Rikozenit,
А так:
Код: vbnet
1.
2.
3.
Dim a
a = "#" & Format(Me.ctl, "mm\/dd\/yyyy") & "#"
CurrentDb.Execute "insert into tbl1(ctl1) values (" & a & ")"
...
Рейтинг: 0 / 0
29.12.2018, 12:52
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39754890
Swa111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Swa111
Гость
sdku,

Format(Me.ctl, "mm\/dd\/yyyy") от null вернут пустую строку в итоге в переменной "a" будет "##". результирующий запрос = "insert into tbl1(ctl1) values (##)", а это уже синтаксическая ошибка
...
Рейтинг: 0 / 0
29.12.2018, 13:01
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39754939
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Вам предложен работоспособный вариант и сделать так,как показано ниже, Вам не позволяет религия,да?
А какое значение Вы хотите записать при пустом поле в поле дата? если таблица-приемник содержит одно единственное поле-дата (что оченьоченьочень маловероятно),то добавить запись с пустым полем даты Вам удастся только рекордсетом-может я ошибаюсь-форумчане поправят
Код: vbnet
1.
2.
3.
4.
5.
If IsNull(Me.ctl) Then
Exit Sub  ' или,например, дата #1/1/1# 
Else
a = "#" & Format(Me.ctl, "mm\/dd\/yyyy") & "#"
End If
...
Рейтинг: 0 / 0
29.12.2018, 14:07
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39755709
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
Вместо запроса INSERT INTO ... VALUES ... открывайте Recordset и добавьте запись. И не понадобится ни форматирование даты, ни борьба с NULL.
...
Рейтинг: 0 / 0
03.01.2019, 17:54
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39757287
Фотография Rikozenit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rikozenit
Участник
Swa111,
Код: vbnet
1.
2.
CurrentProject.Connection.Execute "INSERT INTO Онлайн (Финиш_компл_пл)" _
& "VALUES (" & iif(isNull(Финиш_компл_пл, " Null ", "#" & Format(Финиш_компл_пл, "mm\/dd\/yyyy") & "#") & ");"


Спасибо большое! Отлично работает!

Кривцов АнатолийВместо запроса INSERT INTO ... VALUES ... открывайте Recordset и добавьте запись. И не понадобится ни форматирование даты, ни борьба с NULL.
Если бы я ещё знал, как это делается... Как-то так?..
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim Онлайн As DAO.Recordset 
Set Онлайн = CurrentDb.OpenRecordset("SELECT * FROM [Онлайн]") 
Онлайн.AddNew 
Онлайн![Финиш_компл_пл] = Me.Финиш_компл_пл.Value 
Онлайн.Update 
Онлайн.Close 
Set Онлайн = Nothing 
DoCmd.Close 
End Sub
...
Рейтинг: 0 / 0
09.01.2019, 16:06
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39757429
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Rikozenit,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub cmb_Click() 'или другое событие
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tbl") 'таблица назначения
rs.AddNew
rs!дата = Me.полеСдатой 'форматировать не надо 
'аналогично для других полей
rs.Update
End Sub
...
Рейтинг: 0 / 0
09.01.2019, 17:56
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39757678
Фотография Rikozenit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rikozenit
Участник
sdku, благодарю!! Ваш вариант для меня намного удобнее, ибо задача была скопировать 27 разноформатных полей и sql строка уже смотрелась дико)
...
Рейтинг: 0 / 0
10.01.2019, 10:03
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39758000
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
Rikozenit, я добавлю, что Recordset лучше открывать пустым (так быстрее):
Set rs = CurrentDb.OpenRecordset("tbl", dbOpenDynaset, dbAppendOnly)
или
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl WHERE False")
...
Рейтинг: 0 / 0
10.01.2019, 16:08
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39758081
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Кривцов АнатолийRikozenit, я добавлю, что Recordset лучше открывать пустым (так быстрее):
Set rs = CurrentDb.OpenRecordset("tbl", dbOpenDynaset, dbAppendOnly)
или
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl WHERE False")для одой записи из 27 полей это крайне необходимо
...
Рейтинг: 0 / 0
10.01.2019, 18:18
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39758230
Фотография Rikozenit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rikozenit
Участник
Кривцов Анатолий, спасибо!
sdku, это я копирую 27 полей, а всего у меня в этой таблице 196 полей, в этом случае пустой рекордсет более оправдан?
...
Рейтинг: 0 / 0
11.01.2019, 08:36
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39758311
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
sdkuКривцов АнатолийRikozenit, я добавлю, что Recordset лучше открывать пустым (так быстрее):
Set rs = CurrentDb.OpenRecordset("tbl", dbOpenDynaset, dbAppendOnly)
или
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl WHERE False")для одой записи из 27 полей это крайне необходимо Вопрос не в том, сколько полей, а в том, что Recordset открывается для добавления записи. Зачем тащить в него миллион существующих?
...
Рейтинг: 0 / 0
11.01.2019, 10:46
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39758390
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Кривцов Анатолий,
обычно добавляю в справочники, которые не большие,а если мильон записей-тогда конечно...
...
Рейтинг: 0 / 0
11.01.2019, 12:43
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39763330
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
Аксесс 2007 возникла проблема с прописанием типа данных в Модуле. Может кто сталкивался
...
Рейтинг: 0 / 0
23.01.2019, 11:46
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39763340
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
RS открывается так:
Код: vbnet
1.
2.
3.
Dim dbMy as Database, rst as Recordset
Set dbMy=CurrentDB
Set rst=dbMy.OpenRecordset("SELECT....")
...
Рейтинг: 0 / 0
23.01.2019, 12:14
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39763344
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Хотелось бы узнать: а что такое
Код: vbnet
1.
2.
NodeNM=Node.text
NodeNM1=Node.text
...
Рейтинг: 0 / 0
23.01.2019, 12:22
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39763386
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
NodeNM это переменные
...
Рейтинг: 0 / 0
23.01.2019, 13:06
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39763403
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Дар1,

Библиотеку подключить надо.
...
Рейтинг: 0 / 0
23.01.2019, 13:22
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39763413
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
В чем проблема
Хочу в форме Вставить Тривиью АктивХ
Все возможные библиотеки подключил
Если что подскажете буду благодарен
...
Рейтинг: 0 / 0
23.01.2019, 13:30
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39763596
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Дар1,
Не все так просто как кажется:
...
Рейтинг: 0 / 0
23.01.2019, 15:40
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39764047
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
Согласен с в 64 разрадных системах эти надстройки работают по непонятному алгоритму.
В одних приложениях функционируют нормально из под офиса 2007, в других нет Притом что однин и тот же проект работает и на Висте и под Вин 10 64. Хочу понять причину
...
Рейтинг: 0 / 0
24.01.2019, 10:37
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39764053
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
sdku,
База открылась, но при открытии формы Дерево, прекращается работа Акссесс
...
Рейтинг: 0 / 0
24.01.2019, 10:41
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39764073
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Дар1,
ну,не знаю, под win7(86),А-2007 работает нормально-а у Вас что?
...
Рейтинг: 0 / 0
24.01.2019, 11:02
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39764083
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
sdku,
У меня Вин 10 64 и Офис 2007
...
Рейтинг: 0 / 0
24.01.2019, 11:12
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39764091
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Дар1,
а это
...
Рейтинг: 0 / 0
24.01.2019, 11:15
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39764110
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Может коллеги посоветуют что-нибудь, более серьезное, кроме как проверить ссылки
...
Рейтинг: 0 / 0
24.01.2019, 11:35
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39764202
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
sdku,
Спасибо большое, но и это не работает
...
Рейтинг: 0 / 0
24.01.2019, 12:42
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39765409
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Дар1Согласен с в 64 разрадных системах эти надстройки работают по непонятному алгоритму.
В одних приложениях функционируют нормально из под офиса 2007, в других нет Притом что однин и тот же проект работает и на Висте и под Вин 10 64. Хочу понять причинуА вот что написано на сайте Microsoft: "Элементы управления ActiveX и надстройки COM, написанные для 32-разрядного Office, не будут работать в 64-разрядной версии" (Treeview-элемент ActiveX. Подчеркиваю-речь об Office а не о Windows. Хотя некоторые "спецы"(повбывал бы гадов) говорят что "если система 64 то и Office надо ставить 64")
В установке 64-разрядного Office не вижу никакой необходимости (разве что работать с гигантскими файлами свыше 2гб)
...
Рейтинг: 0 / 0
27.01.2019, 00:57
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39766443
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
sdku,

Интересная мысль, как то не придавал этому значения.
Считал что раз система 64 то и приложения надо ставить 64 битное.
Спасибо за подсказку!!!
...
Рейтинг: 0 / 0
29.01.2019, 12:31
| Ответить | Цитировать | Написать  
Проблема с date в VBA
    #39766685
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Дар1,
Для того чтоб рассуждать на эту тему поинтересуйтесь что такое разрядность системы(приложения),почему вообще появились 64 битные системы(приложения), какие имеют преимущества и нужны ли они Вам (кроме преимуществ бывают и недостатки-с одним из них Вы уже столкнулись)
...
Рейтинг: 0 / 0
29.01.2019, 17:00
| Ответить | Цитировать | Написать  
76 сообщений из 76, показаны все 4 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема с date в VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=45&tid=1610882]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 25ms
get topic data:
 7ms
get forum data:
 3ms
get page messages:
 105ms
get tp. blocked users:
 1ms
others: 13ms
total:  180ms
созд. / загр.: 180ms
x
x
Закрыть


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