Господа, приветствую.

Никто не пробовал это чудо?

Public Function My() As String
Dim objHTTP As New MSXML2.ServerXMLHTTP60  '   Object
Dim URL As String
Dim Res As Variant

'Set objHTTP = CreateObject ("MSXML2.ServerXMLHTTP")
' функция с параметрами не проходит
'такой шаблон подключения обязателен
'____________________________________________________функция__________параметры
'URL = "https://ios.bitrix24.ru/rest/7/ключ_вебхука/task.item.add.xml?TITLE='created via REST API at&RESPONSIBLE_ID=1&DEADLINE='2013-05-13T16:06:06+03:00'"

'функция без параметров проходит и я получаю данные
URL = "https://ios.bitrix24.ru/rest/7/ключ_вебхука/task.item.getmanifest.xml?"

objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send ("")
'Res = objHTTP.responseBody
Res = objHTTP.responseText

Debug.Print Res

End Function

Код нашел где то на просторах.
Может есть спецы, кто знает, как запихнуть параметры в строку URL.
Пробовал и POST и GET. Результат один.
Примеры кода, все на PHP.
Я в нем не силен.


ошибка при запросе с параметрами

<response>
<error>ERROR_CORE</error>
<error_description>
TASKS_ERROR_EXCEPTION_#256; 5af60ba5a264a2.69243225: Param #0 (arNewTaskData) for method ctaskitem::add() expected to be of type "array", but given something else.; 256/TE/WRONG_ARGUMENTS<br>
</error_description>
</response>

просит массив данных.

http://www.sql.ru/forum/1292901/bitrix24-vebhuki-api

Привет всем подскажите как сделать запрос похожий на примере картинки.
Буду благодарен если кто подскажет как это можно реализовать

Есть две таблицы группа и блюда

Блюда
-Наименование
-Цена
-Код_группы

Группа
-Код_группы
-Наименование

http://www.sql.ru/forum/1292868/kak-sdelat-zapros-primerno-takogo-zhe-tipa

Добрый день! Написал на Delphi 7 программу для обращения с фискальным регистратором Вики принт 57 ( Viki Print 57 ). Принцип работы посылки команд, как в утилите Fito. Данные для ОФД передаются. Если кому интересно взглянуть на исходники (могу всё и объяснить) - пишите мне на почту kilovatt_dv@mail.ru

Модератор: Топик закрывается. В Дельфи есть полный аналог

http://www.sql.ru/forum/1292862/ishodniki-programmy-dli-viki-print-57-viki-print-57-na-delphi-7

На сайте Даниэля Пино (Daniel Pineault) нашел упоминание об инструменте для поиска и замены имен полей, который может просмотреть все элементы базы данных

Вот такое сообщение:
==================================================
Вы хотели изменить имя поля, но не знаете, какие объекты его используют?

Исторически разработчики обращались к инструментам вроде:

Speed Ferret (последнее обновление для Access 2002 и я не думаю, что компания ещё выдёт лицензии)
Rick Fisher's Find and Replace (он больше не реагирует на покупки и не выдаёт лицензии, никто не может его отнять).
Итак, каковы наши варианты сейчас !?

К счастью, Брент Сполдинг (aka datAdrenaline ) создал утилиту поиска текста, которую можно найти на форуме архива кодов UtterAccess.com (вместе со многими другими маленькими драгоценными камнями!).

Вы можете делать такие вещи, как:

Определить, где используется поле. Отлично подходит для обновления.
Определить, где используются таблицы, запросы и т. д. Отлично подходит для очистки.
Определить, где вы ссылаетесь / называете различные объекты
и т.п.

Поиск просматривается:

таблицы
Запросы
Формы (включая их модуль VBA)
Отчеты (включая их модуль VBA)
макросы
Модули
Командные бары

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

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

Наконец, хотя я еще не тестировал его, единственное объявление API, используемое в этом инструменте, было настроено как для x32, так и для 64-разрядных версий Access.
===============================================

А вот что говорит сам автор программы вот здесь

===============================================
Это утилита, которую я использую для поиска объектов в моем приложении, которые содержат заданный шаблон строки. Это полезно, когда вы хотите изменить имя поля в таблице, но вам нужно выяснить, где вы использовали его сначала, чтобы увидеть, стоит ли менять имя или нет. Эта утилита также хороша для определения того, можете ли вы удалить старые запросы или таблицы, которые, как вы подозреваете, вы больше не используете, просто введите имя этого запроса / таблицы, выберите типы объектов, которые вы хотите найти, затем «Поиск» утилита укажет вам на все вхождения этой строки.
При поиске типов объектов Query, Form и Report вы должны выбрать параметр для редактирования и сохранения свойства, в котором был найден шаблон строки. Эта функция очень полезна, когда вы изменяете имя объекта Table или Query или имя поля в объекте Table.
Запросы Osearch, формы, отчеты, таблицы, модули, макросы и командные бары (код для командных баров не был создан мной). Также выполняется поиск кода Форм и отчетов.
Я понимаю, что с A2000 и выше есть функция «Автоответчик имени», однако я лично не использую эту функцию по причинам, упомянутым в UtterAccess и в других местах в Интернете. Эта утилита также может быть не идеальной, но для меня это был спасение. Надеюсь, вы сочтете это полезным.
Файл Zip содержит и MDB-файл в формате Access 2000. Чтобы использовать эту утилиту, просто извлеките MDB из Zip-файла, затем импортируйте объект формы xdlgSearchForText_v42 в ваше приложение базы данных. Весь код нужен за формой. Ожидается ссылка на библиотеку объектов DAO (проверка для этой библиотеки выполняется в Form_Open).
===============================================

Ну и в качестве приложения сама утилита. Её так же можно скачать и тут
-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1292858/instrument-dlya-poiska-i-zameny-nazvaniy-searchfortext-v42

Недавно натолкнулся на статью Даниэля Пино (Daniel Pineault) Windows Explorer MS Access Database Right-Click Context Menu
Она показалась мне полезной и я решил ознакомить Вас с ней.

Суть проблемы. Есть действия, которые нельзя задать из меню Access (например - декомпиляция) или их включение затруднено (открытие в монопольном режиме), или требуют лишних движений (сжатие). Автор (и не только) предлагает прописать такие действия в контекстное меню, вызываемое по правой кнопке мыши.

Автором разработана специальная программа, называемая "Context Menu Creator", позволяющая автоматизировать создание такого меню. Программа написана на Access и предоставляется в исходных кодах. Главная форма программы имеет два списка.
В первом выбираются расширения, для которых вызывается контекстное меню, а во втором выбираются действия.
Можно добавить новые действия или откорректировать существующие.

Программа была протестирована на Windows 7, в Access 2010, 2013, 2016, и она работала без проблем, но это не гарантирует, что она будет работать у Вас (это слова автора). Программа предоставляется по принципу "As Is" и автор не принимает никаких претензий.

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


В приложении описанная программа.
-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1292824/dekompilyaciya-szhatie-i-monopolnoe-otkrytie-baz-access-iz-kontekstnogo-menu

Добрый день. Подскажите пожалуйста как решить проблему.
Создаю поле со списком и туда подгружается Код и Название, скрываю код. Видно только название, далее создаю подчиненную форму. Далее жму мышкой на списке пытаюсь выбрать, но в результате звук и Невозможно изменение элемента, присоединенного к полю счетчика. Нажимая Enter вместо клика мышью меняется значение в подчиненной таблице. Как избавиться от этого. Спасибо

http://www.sql.ru/forum/1292806/nevozmozhno-izmenenie-elementa-prisoedinennogo-k-polu-schetchika

Здравствуйте, форумчане
Сижу уже целый день над курсачом и голова совсем не варит
Есть такая задача: при нажатии на кнопку "Вернуть книгу" удалить запись из табл. бронирование (это я знаю как сделать, можно даже обычным макросом) и вместе с этим нужно инкрементировать у соответствующей книги количество
То есть в данной форме есть информация только о названии книги (можно в принципе добавить поле код книги и найти по нему), по этому названию нужно найти запись и там изменить количество (+1)
Если не код, то подскажите какие команды или макросы способны на это, может, код sql - всему буду рад, за всё благодарен

http://www.sql.ru/forum/1292760/izmenenie-dannyh-v-tablice-pri-nazhatii-knopki-na-forme

Всем доброго времени суток! Небольшая проблема с переходом между записями в ленточной форме: переход между записями, как мы знаем, возможен при нажатии Tab, Enter, стрелками вверх/вниз или мышью, но если обрабатывается событие LostFocus какого-нибудь контрола, то переход к другому контролу/записи осуществляется только при повторном нажатии Tab, Enter, стрелок вверх/вниз или кнопки мыши. Тоже самое, если обрабатывается AfterUpdate.
Можно как-то исправить этот косяк?

http://www.sql.ru/forum/1292727/tabulyaciya-i-lostfocus

Господа, приветствую.

Досталась мне базка (2003) на доработку.
Внутри оказалось, что она работает с устройством по COM порту.
Необходимая библиотека подключается.

На время разработки, я это обошел.
Клиенту вернул ее уже в 2010 (клиент менюшку захотел).

Сейчас взаимодействия нет. Человек утверждает, что раньше (с пол года назад) все работало.

+

Dim KeUSB As New MSComm Sub ComPortSearch() On Error GoTo Err_ComPortSearch PortNum = 1 'Ищем порт PortSearch: If PortNum > 50 Then MsgBox "Блок управления не найден. Проверьте подключение USB кабеля.", , "Test" DoCmd.Quit Exit Sub End If ' начиная с этой строки бьет ошибку на каждой строке ' KeUSB - вероятно в этот момент не существует KeUSB.CommPort = PortNum KeUSB.Settings = "9600,N,8,1" KeUSB.Handshaking = comNone KeUSB.InputLen = 0 KeUSB.InBufferSize = 40 KeUSB.OutBufferSize = 40 KeUSB.RThreshold = 0 'Открываем порт KeUSB.PortOpen = True 'Проверяем контроллер KeUSB.Output = "$KE" & Chr(13) & Chr(10) Sleep (5) strDa = KeUSB.Input strDa = Left(strDa, 3) If strDa = "#OK" Then Exit Sub 'Номер порта в переменной PortNum 'Закрываем порт KeUSB.PortOpen = False PortNum = PortNum + 1 GoTo PortSearch Exit_ComPortSearch: Exit Sub Err_ComPortSearch: Resume Next End Sub

на проверку Is nothing - бьет ошибку,
в обработчике ошибок номер ошибки и описание не отловить, ничего не отдает (наверное библиотека ничего не возвращает)

С COM сталкиваюсь впервые. (в диспетчере устройств он есть)
Подскажите, в каком направлении рыть?

http://www.sql.ru/forum/1292564/rabota-s-com-ustroystvo-ke-usb24a

Господа программисты, здравствуйте!

Только учусь. Как в форму вставить поля с таблицы "ТС", которая связана с главной таблицей "Внутренняя" полем "Гос номер".
И что-то поля в форме не редактируются. Что я сделал?)

http://www.sql.ru/forum/1292514/dobavit-v-formu-polya-so-vtoroy-tablicy

Добрый день!
Необходимо доработать БД. В данной БД на форме указан фильтр LookUp_Исполнитель.ФИО
При открытии формы ругается на LookUp_Исполнитель.ФИО.

Что значит параметр LookUP??

Еще например, на форме фильтр может стоять ([Lookup_КодДог].[НомДог] Like "17-810/*"). Подскажите пожалуйста.

http://www.sql.ru/forum/1292437/filtr-zapisey

Добрый вечер. Начала курсовую и сразу проблема. Поставлена такая задача:
Написать SQL запрос, который будет выводить таблицу Excel в Access, данные берутся из листа Excel. Путь к файлу Excel указан в поле с типом гиперссылки в одной из таблиц БД Access.

У меня получилось вывести эту таблицу, но путь к файлу Excel мне пришлось прописывать в вручную в запросе:
SELECT * FROM [очнаяформа$] AS x IN 'C:\Users\DNS\Desktop\Романов П.С. Инд. план 2015-16 (оконч.в).xls'[Excel 8.0;HDR=yes;];
очнаяформа$- один из многочисленных листов файла Excel.
Романов П.С. Инд. план 2015-16 (оконч.в).xls- сам файл

Пыталась вместо адреса писать подзапрос к таблице, в которой эта гиперссылка. Выдает синтаксическую ошибку.

Памагите!!

http://www.sql.ru/forum/1292379/zapros-s-polem-giperssylkoy

Добрый день!
Проблемка:
Импортирую в ACCESS из EXCEL данные следующим образом:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Таблица1", FName, True, ""

В данных EXCEL имеется значение: 06052018 (т.е. первый символ 0 - ноль)
При импорте в ACCESS оказывается значение 6052018 (т.е. 0 потерялся)
Поле в таблице имеет тип данных - текстовый.
Офис 2010.

Подскажите, как избежать этого "обрезания"?

Спасибо!

http://www.sql.ru/forum/1292356/importiruu-znachenie-06052018-poluchau-6052018

Здравствуйте!)
Подскажите как сделать, чтобы считалась зарплата и у тех, кто без премии?

SELECT DISTINCT Сотрудники.[Табельный номер сотрудника],Сотрудники.Фамилия, Сотрудники.Имя, 
Сотрудники.Отчество, Оклад.Оклад, Премия.Премия AS Премиальные, Оклад.[Районный коэффициент], 
(Оклад.Оклад+Премия.Премия)*Оклад.[Районный коэффициент] AS Зарплата
 
 
FROM 
(Сотрудники LEFT JOIN Премия ON Сотрудники.[Табельный номер сотрудника]=Премия.[Табельный номер сотрудника]) 
LEFT JOIN Оклад ON Сотрудники.[Табельный номер сотрудника]=Оклад.[Табельный номер сотрудника]

http://www.sql.ru/forum/1292353/pustye-polya-iz-za-left-dzhoina

Здравствуйте!)
Подскажите как сделать, чтобы считалась зарплата и у тех, кто с премией?

SELECT DISTINCT Сотрудники.[Табельный номер сотрудника],Сотрудники.Фамилия, Сотрудники.Имя, 
Сотрудники.Отчество, Оклад.Оклад, Премия.Премия AS Премиальные, Оклад.[Районный коэффициент], 
(Оклад.Оклад+Премия.Премия)*Оклад.[Районный коэффициент] AS Зарплата
 
 
FROM 
(Сотрудники LEFT JOIN Премия ON Сотрудники.[Табельный номер сотрудника]=Премия.[Табельный номер сотрудника]) 
LEFT JOIN Оклад ON Сотрудники.[Табельный номер сотрудника]=Оклад.[Табельный номер сотрудника]

http://www.sql.ru/forum/1292352/pustye-polya-iz-za-left-dzhoina

Как сделать возврат билетов и денег. Кинотеатр.

http://www.sql.ru/forum/1292338/kak-sdelat-vozvrat-biletov-i-deneg-kinoteatr

Добрый день!

Вывожу отчет. Одно из выводимых значений в области данных имеет значение 0.
Как скрыть (не выводить на печать) только строку с этим значением?

Спасибо!

http://www.sql.ru/forum/1292301/report-oblast-dannyh-odno-iz-vyvodimyh-znacheniy-0-kak-skryt-ne-vyvodit-na-pechat

При добавлении большого кол-ва записей (тысяч 20) заметил, что запросы в какой-то момент начинают виснуть.
При однократном выполнении все работает нормально.
Но если я обновляю одни и те же данные несколько раз подряд, то проблема проявляется.
Обновление может быть разное, т.е. либо обновление как обновление, либо полная замена, т.е. удаление по критериям (индексным полям) и вставка.
Ощущение, что индексы не успевают перестроиться.
Спасает сжатие и восстановление базы с данными.
Но это, как понимаете не выход.
Перейти на хранение данных в MS SQL в планах есть, но сейчас нет такой возможности.
Первая мысль - принудительно перестроить индексы после обновления.
для целостности базы достаточно 4-х индексных полей, еще с десяток исключительно для ускорения выполнения запросов.
А вообще хочется иметь разделенные индексы, как для dbf и подключать по мере необходимости.
Есть мысли, как выйти из ситуации.

http://www.sql.ru/forum/1292295/obnovlenie-indeksov-pri-dobavlenii-bolshocho-kol-va-zapisey

День добрый, всех с пятницей!
Ребят, подскажите пожалуйста. Хочу организовать фильтр в подчиненной табличной форме, по значению поля в главной.
Вариант с выборкой типа Me.подчиненная.Form.RecorSource = "SELECT * FROM ...WHERE ...тратата" отсекаю, так как хочется помягшэ, не трогая источник данных.
Должен выполнятся на изменение каждого вводимого символа в поле поиска. Поле в подчиненной, которое фильтруется имеет тип текст.
В идеале должна фильтровать все записи, которые содержат часть введенных символов в поле поиска.

Накидал вариант некий:

Private Sub fldfilter_Change()
Me.sf_portal.Form.Filter = "[номер заказа] Like   '" & Me![fldfilter] & "'"
Me.sf_portal.Form.FilterOn = True
Me.sf_portal.Requery
End Sub

Но он зараза некорректно отрабатывает, ищет и находит только полные совпадения.
Подскажите пожалуйста, как вкрутить в процедуру символ "*" или какой еще, и куда, чтобы фильтр работал на часть введенного значения. То есть я ввел к примеру 458, и вывелись те записи, которые содержат введенное значение 458.
Плиз , хелп.

http://www.sql.ru/forum/1292218/dinamicheskiy-filtr-po-podchinennoy-forme-na-sobytie-osnovnoy

Как создать отчет о посещаемости в месяц? БД Кинотеатр. Помогите

http://www.sql.ru/forum/1292180/kak-sozdat-otchet-o-poseshhaemosti-v-mesyac