ReSQL.ru
     
powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема с date в VBA
25 сообщений из 76, страница 3 из 4
  3  все
Проблема с 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
| Ответить | Цитировать | Написать  
25 сообщений из 76, страница 3 из 4
  3  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема с date в VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39763344&tid=1610882]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 309ms
total:  446ms
созд. / загр.: 446ms
x
x
Закрыть


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