Есть перекрестный запрос, который считает количество записей. Задача: если две записи принадлежат к одинаковой цифре, то считать их как одну. Возможно ли такое?

TRANSFORM Count(statPost.Kateg) AS [Count-Kateg]
SELECT statUnit.Подразделение
FROM (statUnit INNER JOIN (statPost INNER JOIN tbl_Stat ON statPost.ДолжнИН = tbl_Stat.ДолжнИН) ON statUnit.ПодрИН = tbl_Stat.ПодрИН) INNER JOIN tbl_Post ON tbl_Stat.ШтатИН = tbl_Post.StatLine
WHERE (((tbl_Post.PostArhiv)=False) AND ((tbl_Post.SovmID)=2 Or (tbl_Post.SovmID)=6))
GROUP BY tbl_Post.PostArhiv, statUnit.Подразделение, statUnit.ПодрИН
ORDER BY statUnit.ПодрИН
PIVOT statPost.Kateg;

http://www.sql.ru/forum/1173415/perekrestnyy-zapros-obedinit-zapisi

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

Помогите, пожалуйста, решить следующую задачу.
Есть форма, в которой 2 чек бокса - chk1 и сhk2. В зависимости от того, отмечен боксы или нет, создается критерий.
Написал следуещее:

Function Field_criteria() As String
    If [Forms]![Main Form]![NavigationSubform].[Form]![chk1].[Value] = -1 Then c1 = "СR1"
    If [Forms]![Main Form]![NavigationSubform].[Form]![chk2].[Value] = -1 Then c2 = "CR2"
    Field_criteria = c1 & " OR " & c2
End Function

Далее в критерии запроса указываю Field_criteria(). Запрос выходит пустым :( при том, что оба чек бокса отмечены.
Однако, если указать отдельно Field_criteria = c1 или Field_criteria = c2, то запрос работает корректно.

Подскажите, пожалуйста, где ошибка?

Заранее благодарю!

http://www.sql.ru/forum/1173398/tekstovyy-parametr-iz-vba-dlya-zaprosa

Здравствуйте, подскажите пожалуйста

Как в ПолеСоСписком автоматически при загрузке Формы подставить первое значение (оно же единственное)

Подстановка в Поле.ЗначениеПоУмолчанию не решает поставленной задачи (т.к. в поле со списком сложный SQL запрос -> Результат: всегда одно значение в списке)

http://www.sql.ru/forum/1173361/kak-v-polesospiskom-avtomaticheski-pri-zagruzke-formy-podstavit-pervoe-znachenie

Здравствуйте. Необходима помощь. Есть баз данных "Справочник НД" в ней реализован поиск по точному совпадению (с помощью оператора LIKE). Необходимо улучшить базу изменив поиск на неточное совпадение. То есть, даже если нет точного значения запрашиваемому то выдвало ближайшие значение. Нашел базу в которой реализован подобный принцып (la_find), но как их объединить не хватает мозгов. Подскажите как это лучше сделать? Сама баз данных "Справочник НД" (таблица полный список документов) будет содержать порядка 20000 записей, желательно что бы поиск работал как можно быстрее. Рассматриваю вариант оплатить помощь.

http://www.sql.ru/forum/1173221/intellektualnyy-poisk-access

Доброго дня.
Возникла проблема с заданием узких полей печати документа.
Моё приложение ругается "Object required:'Application'
Делаю через
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
End With
Может кто подскажет, что нужно сделать?

http://www.sql.ru/forum/1173201/zadanie-uzkih-poley-pechati

Здравствуйте, подскажите пожалуйста

Как организовать фильтр в Форме за счет Кнопок.Формы

http://www.sql.ru/forum/1173181/kak-organizovat-filtr-v-forme-za-schet-knopok

Для чтения записей есть удобные функции
Например:

    Dim a As String
    a = DFirst("MyField", "MyTable", MyCriteria)

======================================
А есть ли в Access такие же удобные функции записи в таблицы?
Например типа :

Сall Records("MyField", "MyTable", MyCriteria)

==========================================
А то использую самописные, созданные в адо, дао....

http://www.sql.ru/forum/1173101/zapis-dannyh-v-tablicu

Есть одно поле состоящее из объединения трех полей [a] & [b] & [c]
ааа ббб ввв
ааа ббб ггг
ааа ббб ддд
ккк ллл ммм
ккк ллл ннн
ккк ллл ооо

как можно к первой записи определенной группы вписать дополнительный текст:
ааа ббб "текст к первой записи ббб" ввв
ааа ббб ггг
ааа ббб ддд
ккк ллл "текст к первой записи ллл" ммм
ккк ллл ннн
ккк ллл ооо

http://www.sql.ru/forum/1173080/kak-mozhno-k-pervoy-zapisi-opredelennoy-gruppy-vpisat-dopolnitelnyy-tekst

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

Имеется log файл, который постоянно обновляется и имеет большой размер. Дабы не считывать весь файл (счёт идет на секунды), хочу из этого файла "вытащить" только последнее действие.
Для примера фрагмент log файла:

2015-08-28 11:23:27,949 DEBUG es.programador.http.AbstractServlet - Сохраняем данные для последующей отправки: Ticket{inn=1234567............
2015-08-28 11:23:27,949 DEBUG es.programador.http.AbstractServlet - Проверяем возраст буфера.............
2015-08-28 11:23:27,949 DEBUG es.programador.transport.TicketDAO - Получения даты самого старого неотправленного тикета...........
2015-08-28 11:23:27,963 DEBUG es.programador.http.AbstractServlet - Результат сохранения данных: TicketEnvelope{id=24..............
2015-08-28 11:23:27,964 DEBUG es.programador.http.AbstractServlet - Сформирован адрес для получения информации...................
2015-08-28 11:23:27,968 DEBUG es.programador.http.AbstractServlet - Сформирован ответ внешнему источнику: 

<A>
<url>https://check1.ru?id=b13db228-8f67-458f-92de-9210c149f98a&dt=1508270110&cn=020000011712</url>
<sign>B5070CEC2584E6AE95AC8FCDA52714F7447F53C62D5F8210C7DCC38C595432A2AA58EB23F393F6D8BAD0E42CEF4A3C5E87A65894B8B95DA88FD73EE3F3BEA8C7</sign>
<ver>2</ver>
</A>

Нужны данные, начинающиеся с "

http://www.sql.ru/forum/1172863/chtenie-chasti-txt-fayla

Здравствуйте уважаемые!
Об этом достаточно много спрашивалось, но ответы видно не для моего ума. Поэтому, рискну спросить еще разок.

Как можно сделать перекрестный отчет с переменными количеством и заглавиями столбцов? Мне бы какой-нибудь наглядный примерчик и я бы разбирался потихоньку. А то с литературой я на вы. Кому не трудно, скиньте пожалуйста. Заранее спасибо.

http://www.sql.ru/forum/1172775/oh-uzh-eti-perekrestnye-otchety

Здравствуйте, подскажите пожалуйста

Как в экспорт отчета через процедуры VBA -> вставить [КодОтчета], что бы имя экспортируемого файла имело вид: "Т.Чек № [КодОтчета] от 2015_08_27.pdf"
Сейчас имя файла имеет вид: "Т.Чек № от 2015_08_27.pdf"

Function CheckVBA()
    On Error Resume Next
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.OutputTo acOutputReport, "о_ТоварныйЧекОбщий", "PDFFormat(*.pdf)", _
    "d:\Товарные чеки\Т.Чек № от" & Format(Date, "yyyy_mm_dd") & ".pdf", _
    True, "", , acExportQualityPrint
    DoCmd.RunCommand acCmdPrint
End Function

http://www.sql.ru/forum/1172741/kak-v-eksport-otcheta-cherez-vba-v-nazvanie-fayla-vstavit-kodotcheta

Добрый день, очень хочу разобраться для себя в чем проблема на форме?
есть функция (funSumStr), которая преобразует столбец в строку, например:
А
1
2
3
4
5
преобразуется в 1;2;3;4;5. Я пытаюсь использовать это функцию в условии отбора, то есть делаю

select столбецB
from таблица
where таблица.столбецА in (funSumStr)

по-моиму должно получится

select столбецB
from таблица
where таблица.столбецА in (1;2;3;4;5)

но не получается... Подскажите как передать результат функции в запрос или как подправить саму функцию, чтобы запрос ее понимал? Базу прилогаю.

http://www.sql.ru/forum/1172737/peredat-rezultat-vba-v-postroitel-access

Sub haba()
On Error GoTo ErrExit
    Dim rs As Object 'DAO.Recordset
    Dim xmlDoc As Object 'MSXML2.DOMDocument
    Dim xmlNode As Object 'MSXML2.IXMLDOMNode
    Dim xmlNode1 As Object 'MSXML2.IXMLDOMNode
    Dim xmlAttribut As Object 'MSXML2.IXMLDOMAttribute
    Dim xmlNodeList As Object 'MSXML2.IXMLDOMNodeList
    Dim xml_path As String
    Dim FileName As String
    Dim NameOrg, INN, KPP
    '
    Set rs = CurrentDb.OpenRecordset("select * from Tab where 1=0")
    '
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    xmlDoc.async = False
    FileName = CurrentProject.path & "\Oborot.xml"
    If Not xmlDoc.Load(FileName) Then Exit Sub

'

Подскажите пожалуйста имея такой код как реализовать загрузку всех файлов из папки имея расширение xml, а не грузить их по одному. например файлы на с:\5555\ *.xml , как это кодом реализовать спасибо.

http://www.sql.ru/forum/1172735/import-xml-v-tablicy-access

Привет.
Помогите плиз.
У меня сделана бд в акцесе. В ней есть одна таблица(т1) с 5ю полями и форма с кнопкой для работы с данными. На форме находиться подчиненная форма. Подчиненная форма отображается в виде таблицы(с данными из таблицы т1) . Не могу сделать так, что бы при нажатии на кнопку в форме(не подчиненной), в подчиненной форме выделилась бы текущая строчка каким-нибудь цветом и это выделение бы сохранялось после закрытия бд. Самостоятельно никак не получается. Может кто-то подобное делал?

Модератор: Тема перенесена из форума "Visual Basic".

http://www.sql.ru/forum/1172604/izmenit-cvet-polya-v-podchinennoy-forme

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

http://www.sql.ru/forum/1172602/podschitat-vozrast

Здравствуйте!
Есть присоединенная таблица через ODBC, выгружаем ее кнопкой в заготовленный шаблон формата dbf. Не могу найти способ, чтобы создавался другой файл с датой в имени на основе этого шаблона.
Выгружаю таким способом:

DoCmd.TransferDatabase acExport, "dBase III", "J:\путь до шаблона, acTable, "Tablichka", "FileShablona.dbf", False

Как получить на выходе "Name dd.mm.yyyy.dbf."

Через DoCmd.TransferSpreadsheet acExport делаются только Excel файлы.
Пробовала через преобразованный макрос ЭкспортСФорматированием, получается, но больше 65тыс. строчек не грузит.

 DoCmd.OutputTo acOutputTable, "Tablichka", "Excel97-Excel2003Workbook(*.xls), "J:\Путь \Tablichka " & Format(Date) & " .dbf", False, "J:\Путь к шаблону\FileShablona.dbf", , acExportQualityPrint

Когда вместо Excel97-Excel2003Workbook(*.xls) пытаюсь вставить что-нибудь другое, тот же dBase III, соответственно ругается, не работает с такими форматами. Версия Access (2007-2010)

http://www.sql.ru/forum/1172557/dobavit-datu-v-imya-vygruzki-v-shablon

Всем доброго дня!
Тема похоже избитая, но тем не менее понятного мне ответа не нашел, похоже не хватает знаний.
Есть Таблица1 в которой два поля: Фамилия и Номер. Есть форма Form1. Как сделать так чтобы после выбора фамилии в соответствующем поле формы, в поле со списком Номер выпадали только номера соответствующие выбранной фамилии?

http://www.sql.ru/forum/1172522/zavisimye-polya-v-forme

Всем доброго времени суток и мирного неба над головой!
Уважаемые форумчане снова нужна Ваша помощь.
Имеется удаленный сервер, куда необходимо отправлять XML файлы, а затем получить от него ответ (тоже в XML).
Из инструкции:
Отправить запрос в УТМ (универсальный транспортный модуль) с использованием команды вида:
curl -F ''xml_file=@client.xml'' http: //localhost:8080/opt/in/QueryPartner

В данном руководстве для демонстрации взаимодействия с УТМ используется утилита командной строки curl. Для отправки в УТМ документов и получения документов из УТМ можно использовать вместо curl любое другое программное средство, в том числе разработанное для личных нужд, предназначенное для отправки http-запросов и получения ответов на http-запросы.

Список запросов, отправленных на сервер, можно получить командой вида:
curl -X GET http: //localhost:8080/opt/in
В ответ на эту команду УТМ возвращает список запросов.

Подскажите пожалуйста, как запустить эти команды из VBA:
curl -F ''xml_file=@client.xml'' http: //localhost:8080/opt/in/QueryPartner
curl -X GET http: //localhost:8080/opt/in

http://www.sql.ru/forum/1172442/obmen-dannymi-s-http-serverom

Здравствуйте!
Прошу помочь:

Есть таблица
в таблице несколько полей и есть поле с подстановкой
как на VBA найти поле с подстановкой?

Заранее благодарен.

http://www.sql.ru/forum/1172306/kak-opoznat-v-tablice-pole-s-podstanovkoy

Здравствуйте, подскажите пожалуйста
Как скрыть поле в отчете Access при условии что оно равно нулю, а если не равно нулю то показать. А высота отчета должна уменьшаться на размер высоты скрытого поля.

http://www.sql.ru/forum/1172230/kak-skryt-pole-esli-ono-ravno-nulu-v-otchete