Добрый день уважаемые форумчане!
В Accessе я новичок и ни как не могу разобраться с элементом "Список"
Суть проблемы:

Имеется таблица "сотрудники" которую мы собственно и заполняем. Столбец "организация" выбирается из соответствующей таблицы.
Задача:
1. в форме "сотрудники" необходимо чтобы в списке выводились ФИО людей со значением "Да" в столбце "обучение" (это у меня получилось вроде), а также, люди должны фильтроваться в зависимости от выбранной организации в раскрывающемся списке формы.
2. Можно ли вывести на кнопку элемент "вложение". Получается сделать только в виде скрепки или ярлыка файла...а нужно именно кнопкой. Заранее спасибо

https://www.sql.ru/forum/1308824/filtraciya-znacheniy-v-elemente-spisok

Народ, доброго всем времени суток! В состав домашней сети приобрел сетевое хранилище (ZyXEL NAS 326). Подключил, настроил, работает... Переложил все домашние файлы, включая проекты Access на него. И тут возникла проблема...:(:( Аксесс позволяет открывать файлы MDB, вносить данные в таблицы, изменять структуру таблиц, создавать запросы, формы, отчеты... Ну, в общем все, как обычно, за исключением одного НО: при попытке сжать и восстановить базу (штатными средствами) возникает ошибка, которая приведена на картинке... Не знаю, о каких таких полных правах интересуется Аксесс? Посмотрел права на файл... Вроде чтение - есть, запись - есть (ну, раз уж формы и отчеты можно создавать в файле и они успешно сохраняются)...
Стоит перенести файл на локальный компьютер - все работает: сжимается и восстанавливается... Стоит только вернуть его назад, опять - двадцать пять...:(:(

https://www.sql.ru/forum/1308769/problemy-s-szhatiem-i-vosstanovleniem-mdb-fayla-na-setevom-hranilishhe

Народ, доброго всем времени суток! Короче, есть табличная форма. Открываю ее в режиме конструктора, вношу какое-нибудь изменение, например, смещаю поле какое-нибудь (чтобы инициировать вопрос на сохранение изменений при последующем закрытии), затем переключаюсь из режима конструктора в режим таблицы, настраиваю желаемую ширину полей, закрываю форму, сохраняю изменения. Раньше (в А-2003, А-2010) у меня это прокатывало на ура... А тут (в А-2016) открываю эту форму снова, а там шиш! Все поля опять ширины, какой Аксессу угодно, но только не той, что нужно мне. Программно мне не хотелось бы их настраивать, да и надобности нет особо. Как эти долбаные столбцы один раз руками настроить по ширине, гарантированно сохранить и забыть к чертям?
Заранее спасибо.

https://www.sql.ru/forum/1308763/ne-sohranyaetsya-shirina-stolbcov-v-tablichnoy-forme

Доброго времени суток.
Нужно ненавязчиво собрать статистику по конфигурации компьютеров пользователей программы.
Главное - объем ОЗУ установленного на компьютере. При этом может быть вариант, когда установлено 8 ГБ, а ОС - 32-х разрядная.
Второе - разрядность ОС.
Третье (наименование ОС) я уже нашел как сделать.
ОС всегда Windows. Access 2010 и 2016.
Заранее благодарен.

https://www.sql.ru/forum/1308732/mozhno-li-opredelit-obem-ozu-ustanovlennyy-na-komputere

Всем добрый день. Решил на форму на before_update поставить обычное предупреждение для пользователя, о том нужно ли сохранять или нет данные если они изменились при переходе на другую запись

Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Error_Handler 'обработчик ошибок
'====================================

If MsgBox("В форму внесены изменения, сохранить?", vbYesNo + vbExclamation + vbDefaultButton1, "Предупреждение") = vbNo Then
     Cancel = True
     Me.Undo
End If

'======================
Exit_Sub: 'обработчик ошибок
     On Error Resume Next
     Exit Sub
Error_Handler:
     If Err.Number = 0 Then
          Resume Next
     Else
          Call prcОбработкаОшибок(Err.Number, Err.Description, Err.Source, Erl)
     End If
     Resume Exit_Sub
     Resume
End Sub

Чтобы не "лепить" то же самое для каждой формы решил что надо вынести в публичную процедуру в модуль, а из события просто вызывать процедуру

Public Sub prcКонтрольИзмененийФормы(frmName As String)
Dim frm As Form

Set frm = Forms(frmName)


If MsgBox("В форму внесеные измнения, сохранить?", vbYesNo + vbExclamation + vbDefaultButton1, "Предупреждение") = vbNo Then
   'Cancel = True КАК ВОТ ЭТУ СТРОКУ ПЕРЕДАТЬ ОБРАТНО В СОБЫТИЕ ФОРМЫ, чтобы отменить UPDATE
   frm.Undo
End If

End Sub

Не пойму как Cancel = True передать обратно в событие формы, чтобы отменить UPDATE. Заранее благодарю за подсказку

https://www.sql.ru/forum/1308724/peredat-cancel-true-obratno-v-sobytie-formy

Народ, доброго всем времени суток! Понимаю, вопрос может быть уже не по стажу, но чего-то я в тупике... Как вытащить состояние Combobox: выбрано в нем что-то или нет?.

Скажу сразу:

If IsNull(Me.Список1.value) = true then ....

не подходит...

https://www.sql.ru/forum/1308646/combobox-kak-vernut-0-esli-v-nem-ni-odna-zapis-ne-vybrana-i-1-esli-vybrana

Добрый день, форумчане!

Помогите советом: что делать с символом № в поле отчета, формат текста которого задан RTF (формат поля так задан для выравнивания по ширине).
Проблема в том, что к символу № не применяется шрифт (ни Times New Roman, ни какой-либо другой - как это выглядит наглядно видно в изображении, которое доступно по ссылке, а также прикреплено. Для наглядности применен шрифт Impact, что бы было явно видно)
При выгрузке отчета из Accessa и при просмотре в word - шрифт применяется, но мне надо рапечатывать именно из Access!

Очень надеюсь, что направите в каком направлении думать, что бы решить задачку!

https://www.sql.ru/forum/1308640/nekorrektnyy-vyvod-simvola-nomer-v-otchete-v-pole-rtf

Добрый день!
Не подскажите с одним вопросом? Есть таблица, в ней поля Мероприятия, Дата и Участники. Как сделать чтобы в окне формы был список (или поле со списком) со значениями из полей Мероприятия и внизу было поле со значениями Участики? Чтобы я мог выбрать необходимое мне мероприятие и отредактировать участников и поотм нажать кнопку сохранить.

https://www.sql.ru/forum/1308627/spisok-pole-so-spiskom-i-pole

Что то пошло не так..... и база перестала открываться.....
отсутствует разрешение на чтение mysysaccessstrorage говорит
Импортировать в новую базу данные не получается... - говорит поврежден VBA проект и надо его удалить....
После попытки открыть файл напрямую его размер с 30 мегов до 10 падает....
Слава Богу я пытался открывать только его копии...
Сохраненная рабочая копия есть - но 2 дня работы будут похерены....
Кто что может подсказать?

https://www.sql.ru/forum/1308616/mysysaccessstrorage

Приветствую всех! Помогите решить задачу. Надо подготовить документ Ворд на основе шаблона. Не могу сделать перенос данных из "подформаПлатежи" в заранее нарисованную в шаблоне таблицу. Надо переносить "Номер_недели" из подформы в "Неделя" шаблона и "Платеж" из подформы в "Платеж" шаблона. Количество Платежей(недель) может быть разное, но не более 30. Таблица в шаблоне должна быть именно такая - 15строк + 15строк, в один столбец вертикально нельзя.
Выкладываю файлы бд и шаблона.

https://www.sql.ru/forum/1308591/perenos-dannyh-iz-podchinennoy-formy-v-shablon-vord-v-zadannom-vide

Приветствую всех!
На компе установлено две версии программы - полная и Runtime, соответственно в реестре имеется две ветки, Professional и Runtame.
Вопрос, как определить, что имеется только Professional или Runtame тоже.

https://www.sql.ru/forum/1308586/reestr-windows

Доброго времени суток
Дано:
Есть таблица, допустим tblOut, в которой, помимо прочего, есть два поля, допустим "fldOut" (Исх.№) и "fldOutDate" (Дата исх.)
Задача:
Создать запрос, возвращающий несколько полей, название каждого из которых совпадает с номером года, в каждом из которых будут выведены все исх.№ за этот год.

В первом приближении получил что-то вроде:
SELECT IIf(Year([fldOutDate])=2008,Replace(fldOut,"200/","")) AS 2008, IIf(Year([fldOutDate])=2009,Replace(fldOut,"200/","")) AS 2009
FROM tblOut

(Replace убирает ненужную для дальнейшей работы постоянную часть из исх.№)

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

2008 2009
2
4
5
10
15
.........5
.........7
.........11
.........20
.........23

Вопрос - есть ли способ убрать из результата работы запроса пустые места?
Чтобы было так:

2008 2009
2.......5
4.......7
5.......11
10......20
15......23

Заранее спасибо за советы

https://www.sql.ru/forum/1308572/sozdanie-neskolkih-poley-iz-odnogo

Народ, доброго времени суток! Столкнулся с такой проблемой: есть рабочая форма с множеством контролов. Возникла необходимость расширить ее функционал. Растягивать ее не резон, так как мониторы и разрешение у всех юзеров разные, поэтому как-то габариты этой формы я оптимизировал под всех них, и менять это не хочется. Решил я воспользоваться "Вкладками". Переместил часть контролов на "Вкладку_1", часть на "Вкладку_2" и т.д. Но тут столкнулся с проблемой: перестал срабатывать код на их (контролов) события. Допустим, в ПолеСоСписком1 на AfterUpdate была инструкция. После перемещения его на вкладку, она перестала срабатывать... Причем, самое интересное, если удалить инструкцию ПолеСоСписком1_AfterUpdate и создать ее заново, то все начинает работать нормально... о_О Это чего ж мне теперь все инструкции вручную переписывать? Чего они отвалились то?

З.Ы. проект сделан в А2003, сейчас его правлю в А2016

https://www.sql.ru/forum/1308567/posle-peremeshheniya-elementov-na-vkladku-perestal-rabotat-ih-kod

Не могу понять, где ошибка в запросе.
1 найти плательщиков оплативших счета ( платежные поручения) за определенный период;
этот я попыталась написать, но он не корректно работает почему-то
SELECT Поручение. Назначение, Поручение. Сумма, Поручение. Дата, Поручение. Плательщик, Плательщик. Код, Плательщик. ФИО
FROM Поручение
INNER JOIN Плательщик ON Поручение. Плательщик=Плательщик. Код
WHERE (((Поручение. Дата) >=[Начало периода] And (Поручение. Дата) <=[Окончание периода]))
но он даёт выбрать одного платильщика и по нему за определенный период показывает. а мне нужно всех.

2 найти общую сумму платежей от каждого плательщика к каждому получателю (перекрестный запрос)
TRANSFORM Sum(Поручение. Сумма) AS [Sum-Сумма]
SELECT Получатель. Наименование
FROM Получатель INNER JOIN (Плательщик INNER JOIN Поручение ON Плательщик. Код = Поручение. Платильщик) ON Получатель. Код = Поручение. Получатель
GROUP BY Получатель. Наименование
PIVOT Плательщик. ФИО;

вообще не работает, пишет несоответсвие данных.

3. найти информацию по конкретному получателю (ввод наименования получателя).
тут не знаю как.
нужно вводить фио получателя и выводится вся информация о нем, все платежи.

Помогите, пожалуйста!!!

https://www.sql.ru/forum/1308558/oshibki-v-zaprosah-sql

Что нам говорит о ней справка? Вот что пишут здесь

Функция Round

Возвращает число, округленное до указанного количества десятичных разрядов.

Round(выражение[, количество_деятичных _знаков])

Синтаксис функции Round имеет следующие аргументы:

выражение - Обязательное. Числовое выражение, которое требуется округлить.

количество_деятичных _знаков - Необязательное. Число, указывающее количество цифр справа от десятичного разделителя включены округления. Если не указано, функция округляет число до ближайшего целого числа.

И больше ничего там не написано. Но поиск в интернете даёт следующее

Функция Microsoft Access Round возвращает число, округленное до указанного количества десятичных знаков. Однако функция Round ведет себя немного странно, поэтому, прежде чем использовать эту функцию, пожалуйста, прочитайте следующее:

Функция Round использует логику округления к четному. Если округляемое выражение заканчивается на 5, функция округления округляет выражение так, чтобы последняя цифра была четным числом.

Пример:

Round(12.55, 1)
Result: 12.6 (округление вверх)

Round(12.65, 1)
Result: 12.6 (округление вниз)

Round(12.75, 1)
Result: 12.8 (округление вверх)

Round(12.85, 1)
Result: 12.8 (округление вниз)

Как с этим бороться?
Предлагают прибавить к числу половинку последнего знака. Вот так

Round(12.55 + 0.005, 1)
Result: 12.6 (округление вверх)

Round(12.65 + 0.005, 1)
Result: 12.7 (округление вверх)

Round(12.75 + 0.005, 1)
Result: 12.8 (округление вверх)

Round(12.85 + 0.005, 1)
Result: 12.9 (округление вверх)

Другие предлагают прибавлять половинку предпоследнего знака при округлении

Round(12.55 + 0.05, 1)
Result: 12.6 (округление вверх)

Round(12.65 + 0.05, 1)
Result: 12.7 (округление вверх)

Round(12.75 + 0.05, 1)
Result: 12.8 (округление вверх)

Round(12.85 + 0.05, 1)
Result: 12.9 (округление вверх)

Третьи предлагают просто добавить к числу 0,0001

Round(12.55 + 0.0001, 1)
Result: 12.6 (округление вверх)

Round(12.65 + 0.0001, 1)
Result: 12.7 (округление вверх)

Round(12.75 + 0.0001, 1)
Result: 12.8 (округление вверх)

Round(12.85 + 0.0001, 1)
Result: 12.9 (округление вверх)

Во все случаях округление даёт верный результат.


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

https://www.sql.ru/forum/1308521/osobennosti-primeneniya-funkcii-round

Всем привет.
Вчерась столкнулся с тем, с чем ни когда прежде не сталкивался.
Решил облагородить форму и в одной надписи в Имени, вместо м2_Надпись, написал мІ_Надпись.
Типа двоечка в верхнем регистре из вставок.
Почему то именно в этой форме перестали работать абсолютно УСЕ Процедуры.
Стали вылазить ошибки.
Почти час мучался и маялся, пытаясь найти ошибку, пока не стал перебирать самые невероятные свои действия, которые совершил в творческом порыве во время ваяния.
Просветите люди добрые, с чем это связано, тем более это просто надпись, даже не надпись поля?

Вот и сейчас решил посмотреть, чего написал, и узрил, что вместо двоечки будет отображаться палочка.
Видимо и Акс так же это видит.

https://www.sql.ru/forum/1308514/chudesa-ili-pagubnoe-vliyanie-nadpisi-na-vse-procedury-v-forme

Добрый день!
Пример формы на скрине.
В инете не нашел ответа как выделить конкретную ячейку?
не пойму как обратиться к конкретной ячейке "перекрестной формы".

Что делал:
Вариант 1. При выделении через Me.D1.BorderColor = RGB(255, 255, 0)
выделяется весь столбец.

https://www.sql.ru/forum/1308507/kak-vydelit-yacheyku-formy-sdelannoy-na-osnove-perekrestno-zaprosa

Запрос DAO в Аксе

SELECT * FROM MAIN WHERE MAIN.marka like 'АБВК.8*';

- работает
Такой же из стороннего приложения (ADO,adOpenStatic, adLockReadOnly) - не работает
Запрос с полным именем без звездочки (ADO,adOpenStatic, adLockReadOnly) -

"SELECT * From MAIN WHERE MAIN.MARKA Like 'АБВК.8322.110.000.01';"

- работает...... Не могу понять почему со звездочкой не работает.....

https://www.sql.ru/forum/1308475/ado-dao

ms access таблица:

name value item1 a item2 a item3 b item4 b item1 a item3 a item2 c item1 c item1 a item1 d item2 a item2 a

нужен запрос чтобы сложил кол-во повторяющихся сочетаний

name a b c d item1 3 0 1 1 item2 3 0 1 0 item3 1 1 0 0 item4 0 1 0 0

https://www.sql.ru/forum/1308447/sformirovat-zapros

Здравствуйте! В надежде что кто-то сталкивался и сможет определить что за ерунда происходит с MSMAPI при поптыке отправки почты через TheBat. пожалуйста откликнитесь кто что думает. Есть подозрение, что дело в настройке Бата. Может вручную в реестре где что поковырять типа принудительной установки дефолтового аккаунта или что еще. Но я уже без сил. В форуме и в интернете ничего не нашел т.к. самое фиговое, что в одном месте работает, а в другом НЕТ!!!

База ACC2003, все компоненты зарегены, лицензии введены, объекты на форме, код отлажен.
В ОС: TheBat проинсталлирован, клиент по умолчанию, Simple MAPI работает (инициирование отправки письма срабатывает корректно даже если Бат не запущен запускает его и создает письмо) и всё прочее.

Кусок кода обращения к MAPI

'Почта использоваться может ТОЛЬКО установленная по умолчанию
Me.MAPISession1.LogonUI = False 'это чтобы не показывалось окно подтверждения email и пароля
Me.MAPISession1.UserName = "мойаккаунт"
Me.MAPISession1.Password = "мойпароль"
Me.MAPISession1.NewSession = True'Me.MAPISession1.Action = 1

Me.MAPISession1.SignOn'ЗАТЫК ВСЕГДА ЗДЕСЬ. ЧТО ЕЙ НЕ НРАВИТСЯ????

Me.MAPIMessages1.SessionID = Me.MAPISession1.SessionID
Me.MAPIMessages1.Compose 'очистить буфер перед отсылкой

Ситуация такая: Винда 10 32-б, Офис 2010 32-б, TheBat 7.4 - всё работает, отправляется. никаких ошибок!

Винда 10 64-б, Офис 2010 32-б, TheBat 7.4 - спотыкается всё время на Me.MAPISession1.SignOn с ошибкой "Login has failed"
Винда ХР, Офис 2003, TheBat 7.4 - Та же самая проблема!

https://www.sql.ru/forum/1308443/mapi-problema-s-signon-login-has-failed