Небольшая головоломка. Для развлечения. Вот пример

Sub Foo()

    Dim str As String

    str = "Hello"

    Bar (str)
    Debug.Print str 'prints "Hello" because str is evaluated and a copy is passed

    Bar str 'or Call Bar(str)
    Debug.Print str 'prints "Hello World"

End Sub

Sub Bar(ByRef param As String)

    param = param + " World"

End Sub

Кажется всё просто, но разные результаты. В первом случае печатается "Hello", во втором "Hello World". На этом можно погореть. Кто знает, почему? Ответ прост. Но кто докопается?

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

http://www.sql.ru/forum/1299466/vliyanie-skobok-pri-vyzove-funkcii-podprogrammy

Access Shortcut (right-click) Tools

В качестве разработчиков наша основная задача - облегчить взаимодействие нашего пользователя с данными. Одним из способов обеспечения легкого доступа к функциям (сортировка, фильтрация и т. Д.) является создание контекстных меню с вызовом по нажатию правой кнопки мыши. К сожалению, Microsoft в последние годы сделала разработку такого меню более сложным, чем это было ранних версиях (до 2007).

К счастью, Dale Fye создал действительно приятную надстройку - инструмент быстрого создания контекстного меню , чтобы полностью изменить задачу создания таких контекстных меню.

Средство Access Shortcut Tools позволяет разработчикам быстро и легко создавать контекстные меню для правой кнопкой мыши через графический интерфейс пользователя. Разработчики программного обеспечения Windows ™ признают, что пользователи ожидают контекстно-зависимые контекстные меню при щелчке правой кнопкой мыши в приложениях. Access Shortcut Tools предоставляют следующие возможности:

- Создание новых контекстное меню
- Изменение существующих меню
- Копирование встроенных контекстных меню для использования во временных приложениях
- Скопировать существующие контекстные меню и соответствующий код из других баз данных Access
- Сгенерировать код VBA для создания или изменения меню во время выполнения


ДЖОР АНДЕРСОН :
2017-03-21 в 14:42

::: ВНИМАНИЕ РАЗРАБОТЧИКАМ БАЗ ДАННЫХ ACCESS :::
Люди ... Подумайте об этом ...
ВСЕ профессиональные приложения (Access и все остальное) содержат пользовательские контекстные меню быстрого доступа. И есть веская причина. Они помогают пользователям быть более эффективными, упрощая выполнение различных операций и т. д. ... простым щелчком правой кнопки мыши. Если вы не используете (создаете) пользовательские меню правой кнопки мыши в приложениях Access, подумайте об этом. Пользователи будут любить вас за это ... Я обещаю, и я знаю это из непосредственного опыта за последние 24,5 года разработки в Microsoft Access.

Плохая новость:
Microsoft удалила оригинальный диалог настройки для меню правой кнопки мыши с появлением ленты в версии Access 2007.
Результат ... чтобы создать пользовательские контекстные меню в> = A2007, вы должны написать много сложного и сложного кода.

(Очень) ХОРОШИЕ новости:
Дейл потратил более года на разработку нового, современного инструмента Access Shortcut Tools ... который является оригинальным инструментом быстрого доступа к STEROIDS.
Результат ... НЕ требуется код. Инструмент Dales делает все это для вас, делая его легким для создания пользовательского контекстного меню ... на самом деле намного проще, чем с оригинальным инструментом Microsoft.

Я использую этот инструмент еженедельно, и без этого, ну ... в лучшем случае было бы больно продолжать разрабатывать пользовательские контекстные меню быстрого доступа. Я помог Dale бета-тестировать этот инструмент почти год, в котором было добавлено много интересных функций, которых нет в первоначальном инструменте Microsoft Customize.

Можно загрузить полностью функциональную пробную версию инструмента Access Shortcut Tools ( 32-разрядный Office , 64-битный Office ). К сожалению полная версия платная и просят за неё 50 вечнозелёных.

А кто как выкручивается при создании контекстных меню? Лично я их создаю В Access 2003, а затем импортирую в свою базу.
-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1299452/programma-dlya-sozdaniya-kontekstnogo-menu-v-access

Всем доброго времени суток.
Только наладил загрузку наименований товара с сайта barcode-list. ru, как он перестал работать.
Поиск альтернативы привел на сайт ru.disai. org. Огромная база данных, но только сайт имеет защиту от парсинга.

Перепробовав массу вариантов остановился на следующем способе (пример прикреплен).
Страничка открывается в IE с заданным штрих-кодом и программно нажимается кнопка поиска.
После этого сайт "подтягивает" наименования и Access копирует страничку с нужными данными в текстовый документ.

Проблема возникла с выполнением команды нажатия кнопки поиска (id="search-form"). Автоматически команда Clik не срабатывает, но если в процессе выполнения процедуры нажать эту кнопку вручную, то все прекрасно сохраняется.
Суть вопроса: как можно из под Access найти и запустить выполнение скритпа для этой кнопки. И можно ли вообще это сделать?

id="search-form" action="/" method="POST" accept-charset="windows-1251" class="navbar-form pull-right">
type="text" name="search_query" value="5019370007019" onblur="if(this.value=='') 
this.value='Поиск текста или штрих-кода'" onfocus="if(this.value =='Поиск текста или штрих-кода' ) this.value=''">
href="#" onclick="document.getElementById('search-form').submit()"></a></form>

http://www.sql.ru/forum/1299361/parsing-zashhishhennogo-sayta-poisk-tovara-po-shtrih-kodu

Добрый день. Подскажите пожалуйста как правильно программно экспортировать данные нескольких запросов в xml файл поскольку то что получилось у меня нужной структуре.Я не могу добиться чтобы тэг был узлом а внутри него данные .
Получается так. А хотельсь бы как вложеном файле в архиве с базой



11111111
Фирма "Склад"
154
07.2018
Иванов Иван Иванович
Петров Петр Петрович


11111111 - эта строка вообще не нужна
- эта строка должна быть предпоследней

11111111
1
1782508678
29.89


11111111
2
1843406374
29.89

http://www.sql.ru/forum/1299176/eksport-neskolkih-zaprosov-v-fayl-xml

Добрый день. Очень нужна ваша помощь. Необходимо достать предпоследнюю запись. Аналог примера я нашла, но так как я экономист, то с sql все плохо. Заранее спасибо.
^{SELECT С2.Табномер, С1.ФИО, С2.Датаназначения, С2.Должность, С2.Отдел, С2.Категория, С2.Должнпрофш, С2.Номерприказа
FROM С1 INNER JOIN С2 ON С1.Табномер = С2.Табномер
WHERE (((С2.Датаназначения) Is Not Null) AND ((С2.[Датаназначения])<[Forms]![Данные ОК]![НачальнаяДата]));}


вот пример
^{where Дата_добавления = (select max(Дата_добавления) from tab where Дата_добавления < (select max(Дата_добавления) from tab))}


Моя датаназначения. Делала по аналогии, но ругается, а понять в чем вопрос, но не могу.

http://www.sql.ru/forum/1299114/predposlednyaya-zapis

Коллеги, всем привет! Пожалуйста, помогите! У меня есть запрос, это данные по курьерским чекпоинтам.
Есть несколько записей, которые относятся к одному и тому же чек поинту. Как оставить только более ранние даты. Скрин прилагаю.

Заранее спасибо!!!

http://www.sql.ru/forum/1299057/kak-v-access-ostavit-datu-bolee-rannego-sobytiya

Добрый день,

Мне необходимо сформировать несколько отчетов (сейчас в excel это привязано к достаточно громоздким функциям). Подскажите, пожалуйста, сможет ли Access сделать мне необходимые отчеты (см. ниже). Просто если это невозможно, не буду заморачиваться с изучением работы в этой программе.

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

Отчет 1: сколько рабочих дней было потрачено на каждом этапе (+ есть ли возможность учесть время, когда сотрудник был в отпуске и, соответственно, не мог работать над заявкой).

Отчет 2: сводная таблица, которая выдает информацию, сколько пришло заявок за определенный период (неделя, месяц, произвольный период, год) по каждому типу запроса; сколько заявок было одобрено (+ сколько из них отгружено); сколько заявок было одобрено с условием (+ сколько из них отгружено);сколько заявок было отказано; сколько заявок находится в статусе "В процессе" (то есть пока никакого решения по ним нет).

Пока достаточно просто сказать, возможно ли это реализовать. Если да, начну разбираться :) Если нет, то может быть какая-то другая БД предоставляет эту возможность (какая?).

Заранее спасибо!

http://www.sql.ru/forum/1299030/sozdanie-otchetov-v-ms-access

Здравствуйте, прошу помощи.
На ПК есть программа, которая работает с базой MySQL.
Скажите пожалуйста, можно ли из файла Access 2000 увидеть таблицы базы, чтобы с ними работать?
Если да, то как это можно сделать?
Спасибо

http://www.sql.ru/forum/1299024/kak-podkluchitsya-k-bd-mysql

Да простят меня те, кто в Access 2013 разбирается лучше, чем я!
Если простили, помогите.
Нужно создать отчет по принципу ШКОЛЬНОГО ЖУРНАЛА КЛАССА, в котором должны отражаться сведения о посещаемости (приложенный файл).
1 столбец - НОМЕР по п/п
2 столбец- Фамилия и инициалы участника
3 и последующие столбцы (число месяца, в который проводилось мероприятие) в зависимости от количества дней месяца, в которые проводились мероприятия. Желательно, чтобы количество столбцов с датами было не по количеству дней в месяце, а по количеству дней, в которые проводились мероприятия.
В ячейках дней заносится буква "Д", означающая участие человека, ну или другой знак.

Имеются таблицы с данными:
1. УчастникиКоллектива с полями:ФИО, и т.д.
2. ПроводимыеМероприятия с полями: ДатаПроведения, ВидМероприятия (репетиция, выступление, конкурс и т.п.), ТемаМероприятия

Вопросы вот какие:
1. Какие ещё таблицы (или запросы) нужно создать для внесения данных?
2. Как таблицы связать, чтобы получить результат указанной формы? Оформление не столь важно, главное наличие данных и их расположение.

Заранее благодарю за оказываемую помощь и разъяснение.

http://www.sql.ru/forum/1299021/sozdat-otchyot-poseshhaemost

Коллеги, нужна помощь. Есть файл с несколькими тестовыми задачами по основам access. Задачи простые, но у меня сейчас пока совсем нет времени полностью разобраться, из предложенных задач создал только таблицу с полями, а это нужно срочно. Готов материально отблагодарить того, кто поможет справиться, могу выслать файл с задачей и тестовой таблицей на электронку.

http://www.sql.ru/forum/1298992/testovoe-zadanie-po-osnovam-access

Доброго дня!
В таблице надо завести поле, в котором будет высчитываться остаток дней до выполнения заказа.
Высчитывается по формуле: Дата установки - Сегодня.
Оказывается это не простая задача, т.к. при создании поля вычисляемого мы можем выбрать нужное поле в формулу, но нельзя поставить функцию Date(). А если это числовое поле, то можно применить функцию Date(), но нельзя указать нужное поле.
Как создать поле вычисляющее остаток дней?

http://www.sql.ru/forum/1298957/pole-tablicy-schitaet-ostatok-dney

Помогите плиз. Из MS ACCESS 2003 мастером создал нову базу данных в MS SQL SERVER 2008 перенес таблицы, короче база данных была создана нормально и тест был пройден. Прилинковал через ODBC, было все нормально. После отвязал, так как допустил ошибку в одной из исходных таблиц. После исправления создал новую базу данных по аналогии с первой и при линковке не нашел наименования таблиц. т.е при проведении связи с таблицами в окне связи все системные файлы видны но вот таблицы нет чтоб прилинковать. Посмотрел менеджером таблицы есть а вот при линковке нету. Помогите разобраться как сделать или что сделать чтоб таблицы базы данных в MS SQL SERVER были видны при создании связи в MS ACCESS.

http://www.sql.ru/forum/1298903/svyaz-msaccess-mssqlserver

Есть форма(Form1) в которой подчиненная форма вызывает разные таблицы
Возможно ли сделать так,что бы при нажатии клавиши Enter вызывалась другая форма (Table5)

http://www.sql.ru/forum/1298827/vyzov-formy-iz-podchinennoy-formy

Здравствуйте. Помогите разобраться с базой небольшого садового товарищества. Как правильно создать схему данных в таблицах?
Есть таблица с карточками, есть таблица с приходом средств и есть таблица - долг_смета.

http://www.sql.ru/forum/1298804/access-shema-dannyh

Есть 2 хранимых запроса
1. Q1:

SELECT f1, f2, fDateTime, fCode FROM t1 WHERE fCode<>"" ORDER BY fCode, fDateTime

fDateTime– дата и время.
Возвращает все как положено и данные и сортировку

2. Q2:

SELECT fCode, First(f1) AS f01, Last(f2) AS f02, Count(fCode) AS [CountFR] FROM Q1 GROUP BY fCode ORDER BY fCode

First и Last возвращают не то, что должны (т.е. не то что видно по результатам запроса Q1).

И очень похоже, что убирая сортировку в Q1, в Q2 я получаю тот же резутьтат.
Как такое может быть?

http://www.sql.ru/forum/1298730/first-i-last-v-zaprose-po-zaprosu

Всем привет!

не могу ничего понять...
Есть такой код:

Private qSQL As New Dictionary

Public Sub GeneratesSQL()
    
    Dim qd As QueryDef

    qSQL.RemoveAll

    For Each qd In CurrentDb.QueryDefs
    
        qSQL.Add qd.name, Replace(qd.SQL, "TempVars]![", "tv_")
        
    Next qd
    
End Sub

Public Sub rq(ParamArray args() As Variant)
    
    With CurrentDb.CreateQueryDef("", qSQL(args(LBound(args))))
    
        For i = LBound(args) + 1 To UBound(args) Step 2
            .Parameters("[" & args(i) & "]").Value = args(i + 1)
        Next i
        
        .Execute dbFailOnError
        
        .Close
    
    End With
    
End Sub

Мне так удобно - я редактирую запросы в графическом интерфейсе, а GenerateSQL грабит их в словарь и потом с помощью rq их можно вызывать, например вот так:

Public Sub test()
    
    qp.GeneratesSQL

    rq "Копия Финальный отчет", _
        "Дата записи", Now(), _
        "Автор", 198, _
        "Контакты", "Ольга Николаевна - главный бухгалтер", _
        "Комментарий", "Согласны без увеличения чека - на данный момент качество устраивает", _
        "tИНН", 123456789123#, _
        "tРФ", GetMyRF()

End Sub

В качестве первого параметра передаем название запроса, в качестве остальных - пары Название параметра - Значение параметра.

Есть такой запрос "Копия Финальный отчет":

PARAMETERS Контакты Text ( 255 ), Комментарий LongText, [Дата записи] DateTime, Автор Long, tИНН IEEEDouble, tРФ Long;
UPDATE ИНН SET ИНН.[Автор отчета] = [Автор], ИНН.[Дата отчета] = [Дата записи], ИНН.[Контактное лицо] = [Контакты], ИНН.[Комментарии клиента] = [Комментарий]
WHERE (((ИНН.ИНН)=[tИНН]) AND ((ИНН.РФ)=[tРФ]));

из qSQL он выводится точно таким же.

Так вот этот запрос при ручном запуске выполняется отлично и строка получает свои обновления, а при запуске из VBA - ошибок нет, но и изменений нет.

ИНН - это таблица так называется (ну так вышло)...
т.е. запрос примитивный.

Помогите разобраться, почему из VBA запрос не изменяет данные?

http://www.sql.ru/forum/1298586/rukami-update-no-iz-vba-ne-update

Добрый день.
Как программно узнать список объектов на форме?
И как узнать что это за объект (поле, поле со списком, список и т.д)?
Спасибо.

http://www.sql.ru/forum/1298542/kak-programmno-uznat-spisok-obektov-na-forme

Есть 2 функции, обрабатывающие текст, вложенные. Типа strrez=F1(F2(mystr))
F2 отрабатывает нормально, но этапе передачи значения в F1 происходит обрезка текста до 250 ( +- точно не помню) символов.
то есть когда F2 закончила работу - стринг нормальный, а как только запускается F1 - у нее на входе уже покоцанный....
Баг или фича? Ну бороться с этим наверное через промежуточную переменную....

http://www.sql.ru/forum/1298453/obrabotka-teksta

Есть 2 функции, обрабатывающие текст, вложенные. Типа strrez=F1(F2(mystr))
F2 отрабатывает нормально, но этапе передачи значения в F1 происходит обрезка текста до 250 ( +- точно не помню) символов.
то есть когда F2 закончила работу - стринг нормальный, а как только запускается F1 - у нее на входе уже покоцанный....
Баг или фича? Ну бороться с этим наверное через промежуточную переменную....

http://www.sql.ru/forum/1298453/obpabotka-teksta

Добрый день. Нужна помощь.
Есть форма "БМ" подчиненная табличная "БМ2", при нажатие одного из полей открывается форма "БМ3". При закрытии формы "БМ3" идет команда на обновление и курсор убегает на первую строчку. Строк в форме "БМ2" более 1000. Поэтому требуется , чтоб курсор оставался на том же месте. Помогите, готов заплатить.

http://www.sql.ru/forum/1298413/posle-obnovleniya-formy-kursor-pereprygivaet-na-verh-formy