Всем здравствуйте. Использую для Рекордсета такую строку:
sql = "SELECT * FROM [Расписание] WHERE [Расписание]![Маршрут] like " & Forms![Мониторинг]![Маршрут] & " AND [Расписание]![График]= " & Forms![Мониторинг]![График] & " AND [Расписание]![Смена]= " & Forms![Мониторинг]![Смена] _
& " AND [Расписание]![День]= " & Forms![Мониторинг]![День] & " AND [Расписание]![Рейс]>= " & Forms![Мониторинг]![ПервыйКруг] & " AND [Расписание]![Рейс]<= " & Forms![Мониторинг]![ПоследнийКруг]

когда Forms![Мониторинг]![Маршрут] содержит только число (например 4), то все работает нормально, но стоит там появиться строке (например 4д), то выдает ошибку.

Как правильно написать?

https://www.sql.ru/forum/1312495/pomogite-pravilno-sostavit-sql-zapros

Добрый день!
База данных хранится в MySQL.
Access - это только интерфейс выполнения команд, но сам файл access растет при каждом открытии и работе с ним.

Если каждый раз нажимать "сжать и восстановить базу данных" то размер уменьшается с 22мб до 9мб.
Поставил сжатие при закрытии, но оно не работает так эффективно как кликом мышки)

Предполагаю что в access копятся значение переменных, и какие временные данные.

Вопрос 1: как из памяти Access очищать все временные данные и значения переменных?
Вопрос 2: как командой VBA сжимать/уменьшать размер файла access?

https://www.sql.ru/forum/1312469/kak-umenshit-razmer-fayla-access

Добрый день!
прошу помощи)

idvisit = DLookup("[КодЗанятия]", "[Занятия]", "[ДатаЗанятия]=" & Format(datevisit, "\#MM\/DD\/YYYY\#") & " And [Филиал]=" & filial & " And [Класс]=" & klass & " And [Время]=" & Format(vremya, "hh:mm:ss") & "")

При запуске выдает ошибку синтаксиса.
Ну все же верно сделано) Чего ему надо?

https://www.sql.ru/forum/1312468/dlookup-v-chem-oshibka

В виду того, что поиск на просторах инета ничего не дал, то что там предлагалось, либо не работает либа, я не правильно пытаюсь использовать.
Так вот ПРОБЛЕМА :
Есть форма, в ней процедура запуска других форм (с ними всё в порядке запускаются на УРА), но
в случае если оператор ошибся и не вбил какие то данные, нужно чтобы открылась форма "Ф_Ошибка" (с этим тоже нет проблем), но
в первой форме при выполнении процедуры, 12 вариантов ошибки, которым присвоено значение "oshibka" (вот так

 oshibka = "1"

Определена переменная

Public oshibka

, это всё в первой форме.
Во второй так же определена переменная

Public oshibka

и процедура вывода в свободное поле

Private Sub Form_Current()
   Me.П_Ошибка = oshibka 
  End Su

Но почему то переменная oshibka - пустая, не могу понять почему

https://www.sql.ru/forum/1312426/kak-perenesti-peremennuu-iz-odnoy-formy-v-druguu

Доброго дня!
Нужно реализовать напоминалки в access.
Т.е. каждую минуту идет проверка по активным задачам, если время подошло, то выскакивает уведомление.

Вопрос: как в access реализовать механизм аналогичный Cron?
цель, чтобы каждую минуту запускался процесс проверки подошло ли время выполнения задачи.

Вопрос 2: подскажите альтернативный вариант выполнения задачи по напоминалкам.
на компе windows.

https://www.sql.ru/forum/1312398/analog-cron-v-access

есть поле Фамилия на 20 символов -

какую ввести маску ввода чтобы первая буква капитализировалась

а количество символов в поле вводилось любое но не более 20

https://www.sql.ru/forum/1312391/maski-vvoda

Здравствуйте,
---
Ни как не могу разобраться с буфером обмена.
Помогите.
---
Архив mdb

Я создал собственное меню для двух полей (Поле1, Пле2)
Вырезать, Копировать, Вставить.

Private Clipboard1 As New Буфер.Класс1
Private CB1 As Office.CommandBar
Private WithEvents CBB1 As Office.CommandBarButton
Private WithEvents CBB2 As Office.CommandBarButton
Private WithEvents CBB3 As Office.CommandBarButton

Вставка работает нормально.
А вот Копировать/Вырезать нет.

Почему-то Копируется/Вырезается не весь выделенный текст,
а только 128 первых символов.
---
Почему так происходит? Как это исправить?
---
Архив mdb

https://www.sql.ru/forum/1312340/v-bufer-obmena-kopiruetsya-tolko-128-simvolov-pochemu

Ребят, такое дело,
код генерит на клиенте 1000 строк, типа:

"INSERT INTO t..."
"INSERT INTO t..."
"INSERT INTO t..."
...

мне надо каждую строку заинсертить в базу. Ну я, короче, делаю после каждой строки:

CN(0).Execute sQUERY, 0

по каждой записи капец долго. А сейчас как под 5000 записей, то это край.

Скажите, как пачкой заинсертить? Может какой отвязанный рекордсет создать, его набить данными, а потом сделать INSERT INTO t1 (SELECT * FROM MyRecordset) или как обычно вы делаете?

https://www.sql.ru/forum/1312335/mnozhestvennyy-insert

Приветствую форумчан!

вот скажите такую вещь, есть, предположим, 2 таблицы, person и personmetrics.
В person указаны некие люди. а в personmetrics параметры каждого из них, там рост, вес, телефон...

так вот, есть ли в акцесе некая возможность, чтобы удаляя запись из person, автоматом подтереть и все ссылающиеся на эту запись данных и из таблицы personmetrics?

т.е. чтобы не делать вначале удаление из таблицы personmetric записей where person = 'vasya', а потом уж и саму запись из таблицы person. а какбы воспользоваться некими внутренними инструментами акса, если таковые в нём предусмотрены.

п.с. речь идёт об удалении через adodb recordset

https://www.sql.ru/forum/1312330/kaskadnoe-udalenie-dannyh-v-spravochnike-soglasno-udalyaemoy-zapisi-v-glavnoy-tablice

Здравствуйте, О ГУРУ!)
Подскажите советом, где у меня в коде ошибка?
Пытаюсь отправить JSON-объект.
В ответ получаю сообщение "Ошибка декодирования данных"
Заранее спасибо за помощь!

Private Sub JSON_TEST()
Dim strQuery As String, myUrl As String
        
strQuery = "{""version"":""" & "1.0" & """,""dateExecute"":""" & "2019-02-18" & """,""senderCityId"":""" & "270" & _
""",""receiverCityId"":""" & "44" & _
""",""tariffId"":""" & "137" & _
""",""goods"":[{""weight"":""" & "0.3" & _
""",""length"":""" & "10" & """,""width"":""" & "7" & """,""height"":""" & "5" & _
"""},{""weight"":""" & "0.1" & """,""volume"":""" & "0.1" & """}],""services"": [{""id"": 2,""param"": 2000}," & _
        """ & {""id"": 30}]}"

''strQuery = StrConv(strQuery, vbFromUnicode)
'Debug.Print strQuery

myUrl = "http://api.cdek.ru/calculator/calculate_price_by_json_request.php"
''myUrl = "http://api.cdek.ru/calculator/calculate_price_by_json.php"
  
Dim WinHttpReq As Object
'Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
Set WinHttpReq = CreateObject("MSXML2.XMLHTTP")
WinHttpReq.Open "POST", myUrl, False
'WinHttpReq.Open "GET", myUrl, False
'WinHttpReq.setRequestHeader "Content-Type:", "application/json;charset=utf-8"
WinHttpReq.setRequestHeader "Content-Type:", "application/x-www-form-urlencoded;charset=utf-8"

WinHttpReq.send (strQuery)

'Debug.Print WinHttpReq.responseText

MsgBox "Готово!" & Chr(13) & Chr(13) & _
"Text = " & WinHttpReq.responseText, 64, "Тест"

Set WinHttpReq = Nothing
End Sub

https://www.sql.ru/forum/1312303/otpravka-i-poluchenie-json

Добрый день!

Подскажите есть в VB возможность проверить, что переменная принадлежит к множеству значений?
Вместо

If i=1 Or i=5 Or i=7 Then ...

Возможно ли написать, что-то типа

If i in(1, 5, 7) Then ...

Спасибо!

https://www.sql.ru/forum/1312294/prinadlezhnost-peremennoy-k-mnozhestvu

Подскажите, а как узнать/прописать этот путь/ссылку на файл внутри архива.
Например: я открываю в архиве рисунок на просмотр, смотрю в его свойствах путь.
В начале он такой.
C:\Users\Master 307\AppData\Local\Temp\Rar$DIa0.888\Рис1 (640х428).png

Закрываю, открываю заново этот же рисунок. Путь уже другой.
C:\Users\Master 307\AppData\Local\Temp\Rar$DIa0.733\Рис1 (640х428).png

И этот рар всегда меняется
---
И как тогда сделать ссылку на файл Рис1 (640х428).png, который внутри архива?

https://www.sql.ru/forum/1312181/put-ssylka-na-fayl-vnutri-arhiva

Всем знатокам Access и Vba доброе время суток.

Озадачился вопросом, на который пока не нашел ответ, втч на форуме, возможно, у кого-то есть ссылочка на "почитать" или опыт внедрения описания собственных функций и процедур. Хотелось бы, чтобы при выборе свой функции или процедуры в Object Browser, а после - при выборе в контекстном меню Properties можно было видеть свое краткое описание функционала, а при выборе HELP - открывалась справка по функции или процедуре. Понимаю, что можно не парить себе мозги, сделать табличку с описанием в любом редакторе, в том же access аналог хелпа замутить, но может быть есть возможность использоваться штатный функционал Object Browser?

Буду признателен за наводку на нужную инфу

https://www.sql.ru/forum/1312141/opisanie-polzovatelskih-procedur-i-funkciy

Всем привет! Помогите решить задачу. Надо из аксесс рассылать емейлы в формате HTML.
Например такой шаблон письма:

Напоминание.

Уважаемый ИМЯ!

У Вас есть задолженность перед банком в сумме СУММА рублей!

Просим погасить её до ДАТА.

Вместо ИМЯ, СУММА, ДАТА мне надо вставить данные из соответствующих полей формы. Как их туда приклеить?

https://www.sql.ru/forum/1312118/vyvod-dannyh-iz-aksessa-v-telo-pisma-v-formate-html

Здравствуйте.

Нужно перевести базу из access .accdb в базу oracle apex.

Попытки следовать туториалу https://www.oracle.com/technetwork/developer-tools/apex/application-migration-workshop-167993.pdf без результата. Т.к. в gui sqldeveloper 19.1.0 отсутствует Migration > Microsoft Access Exporter > Run MS Access Exporter. И непонятно установлен ли "...to ensure that Oracle Migration Workbench ...", т.к. во вкладке help/about нет ничего, что содержало бы "bench", а есть 15 содержащих "migrat".
Ожидаемый результат: грамотные ссылки на адекватный ситуации софт и мануалы.

Кто может, направьте, пожалуйста.

https://www.sql.ru/forum/1312100/perenos-access-accdb-v-bazu-oracle-apex

Последний год стал замечать, что - Access, не так шибко популярен (ну разве что среди студентов, для изучения основ БД)
По 2-3 вопроса в сутки.
Присоветуйте люди добрые, каким местом и чЁ именно про БД, приспело и настало время изучать, дабы быть, как бы быть в - Тренде.
Неужели - Акс - Великолепный - Изжил себя?
Или же это благотворное влияние форумчан благостно действует на мо'зги вопрошающих, что даже и вопросы не нужно задавать, ибо на всЁ уже давно отвечено?

https://www.sql.ru/forum/1312095/a-chyo-shhas-v-mode

Добрый день! Пытаюсь сохранить документ ворд в поле таблицы через присоединенную рамку на форме следующим кодом:

me![OLEObject].Class = "Word.document"
me![OLEObject].OLETypeAllowed = acOLEEmbedded
me![OLEObject].SourceDoc = myDocname
me![OLEObject].action = acOLECreateEmbed

на строке me![OLEObject].action = acOLECreateEmbed выдает ошибку "Данные были изменены", но если при переходе в debug из ошибки далее нажать F8 то отработает. Помогите разобраться с этой ошибкой, плз.

https://www.sql.ru/forum/1312054/acolecreateembed

Добрый день!
Имею 3 однотипных запроса и хочу, грубо говоря, объединить их в один единый запрос.

SELECT BY ID_m, prm1, prm2, prm3 
FROM table0
GROUP BY ID_m;

SELECT BY ID_m, A1, A2, A3 
FROM table1
GROUP BY ID_m;

SELECT BY ID_m, B1, B2, B3 
FROM table2
GROUP BY ID_m;

Конечная цель получить таблицу:
ID_m, A1, A2, A3,B1, B2, B3, prm1, prm2, prm3

Подскажите, пожалуйста, как в данном случае поступить правильней?

https://www.sql.ru/forum/1312050/sgruppirovat-po-kluchu-rezultaty-neskolkih-odnotipnyh-sql-zaprosov

Привет всем. Пытаюсь получить данные из XML. Файл порядка 200Мб. Получаю данную ошибку: out of string space vba
Как её обойти? Что нужно исправить в моем коде?

Dim i, sPat
i = FreeFile
Open FilePath For Input As i
sPat = Input(LOF(i), i)    '   <= ТУТ ОШИБКА
Close i

https://www.sql.ru/forum/1312038/bolshoy-fayl-xml-oshibka-out-of-string-space-vba

Добрый час! Подскажите пожалуйста!

Необходимо создать линейный планировщик, по сути одна таблица.

При создании новой записи надо задать периодичность (ежедневную, еженедельную и т.д.) подобно MS OutLook, см. прикрепленный рисунок.


Вот не пойму как сделать чтоб я могу изменять в перспективы эти интервалы. Может быть при создании новой записи клонировать их с единым идентификатором? И как при этом учесть особенности повторов к примеру - еженедельно, каждый понедельник?

https://www.sql.ru/forum/1311997/sozdanie-planirovshhika