Всем здравствуйте! И вновь, я как дурак, столкнулся с проблемой...за год тестирования базы - выявились некоторые ошибки в работе, многое поправил сам (хоть чему-то научился). Форумчане мне очень помогли, за что им огромное спасибо! Но новая напасть, никак не могу побороть....

Есть форма "РабДень", на её основе созданы 2 формы "ЭкипТяга" и "ЭкипДвижение" с соответствующими таблицами, с одним различием: новые формы должны брать номер удостоверения не из таблицы запись, а напрямую из таблицы ЮЖД и должности для таблицы "ЭкипТяга" должны браться только относящиеся к тяге (код службы 3) и для "ЭкипДвижение" только относящиеся к движению (коды служб 1, 10, 11, 12) и соответственно заполнять свои таблицы! Но никак у меня это не выходит, от слова совсем ((( Вроде делал все также как в "РабДень",но ничего не выходит.

Очередной раз прошу Вас помочь....

https://www.sql.ru/forum/1317357/problema-s-formoy

Здравствуйте
У меня создано несколько числовых полей в таблице. Одно и них имеет тип счётчик. И оно не обязательно ключевое. Как мне программно узнать, что оно является счётиком? Я искал в свойствах поля фразу "Autonumber", но не нашёл.

https://www.sql.ru/forum/1317342/kak-opredelit-chto-tip-polya-schyotchik-autonumber

Здравствуйте профессионалы и просто неравнодушные люди! Помогите пожалуйста решить задачку
Начальные условия

Имеется форма ленточного типа с текстбоксами, один из которых нужно закрыть условием на значение, проще говоря, чтобы пользователь не ленился и не пропускал данный текстбокс (запись в таблице).
Вариант назначить данному полю атрибут обязательного напрямую в таблице пока не рассматривается, работаем из формы.
Назначаем условие на значение, все вроде хорошо, но!
Нюанс - условие на значение не срабатывает, пока пользователь не вобьет любое значение! То есть, получение фокуса данным текстбоксом даже имеющим значение Null не запускает проверку на значение и пустое поле можно просто "протабить". Более того, хотел применить хитрость, на событие получения фокуса повесил проверку и, в случае Null, вписываю некое невероятное значение, ставлю проверку на него, но оказывается, что вброс значения в поле также не запускает проверку на значение.
Выходит, что проверка не значение работает только тогда, когда пользователь меняет значение с клавиатуры!

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

Коллеги, если знаете, подскажите, как или спровоцировать проверку или зациклить фокус на поле что ли.

https://www.sql.ru/forum/1317323/uslovie-na-znachenie

Дан csv файл с историей покупок (client_id - ID пользователя, purchase_date - дата покупки). Надо SQL запросы, чтобы посчитать для каждого месяца:
1. Новых пользователей
2. Пользователей, которые совершили покупку в прошлом месяце *и* в этом
3. Пользователей, которые когда-то что-то заказали (только не в прошлом месяце) и вернувшиеся.
4. Пользователей, отвалившихся в этом месяце.

https://www.sql.ru/forum/1317322/kak-vybrat-novyh-klientov-za-kazhdyy-mesyac

привет!
есть табличка, допустим такая:

id prevID 1 0 2 0 4 0 5 0 8 0 10 0 14 0 50 0

Хочу запросом заполнить prevID.

что-то типа:

update table as t1 set prevID = (select max(t2.id) from table as t2  where t2.id.id  )

Есть идеи?

https://www.sql.ru/forum/1317319/predydushhee-id

Переход по таб отменил.
Контекстное меню отменил.
Всё сделал для того, что бы ни чего не мешало работе в форме
и что бы фокус всегда был отдан одному из скрытых полей на форме.
Но вот беда...
Если кликнуть по кнопке на форме правой кнопкой мыши, контрол получает фокус.
И если потом нажать Enter, то произойдёт клик по кнопке...
Что делать, что бы не допустить случайности такой?
------------------------------------------------------------------------
Спасибо за ответ.

https://www.sql.ru/forum/1317306/klik-po-kontrolam-formy-pravoy-knopkoy-myshi

Всем Доброго дня!

Интересует следующий вопрос: Как в не редактируемое поле (Таблица_1) осуществить вставку выбранного значения (таблица_2), а именно:
К примеру:

Таблица_1:
Поле_1: Название контрагента;
Поле_2: Название изделия;
Поле_3: Количество.

Таблица_2:
Поле_1: Логическое значение-Флажек (для выбора конкретного контрагента) (0-Не выбран, 1-Выбран)
Поле_2: Название контрагента;
Поле_3: Адрес
Поле_4: Телефон.

Предполагается следующее: Пользователь открывает форму. Далее возле не редактируемого поля (Таблица_1.Поле_1) нажимает кнопку, после чего открывается вторая форма в которой представлена обновляемая таблица. Напротив необходимого контрагента ставит галочку и нажимает кнопку "Выбрать".
После чего вторая форма закрывается автоматически и значение из поля Таблица_2.Поле_2 появляется как надпись в первой форме (присваивается полю Таблица_1.Поле_2).

Цель данных телодвижений простая: Менеджер один раз на весь период регистрирует контрагента (заводит в базу) и при создании очередной операции просто его выбирает...

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

https://www.sql.ru/forum/1317277/vybor-znacheniya-iz-tablicy-bd-i-vstavka-v-pole-microsoft-access

Имеется набор вкладок Вкладка1/Вкладка2/Вкладка3 Нужно чтобы при переключении на Вкладка3(если я на других вкладках) Кнопка3(которая расположена на Вкладка3) была неактивной,как реализовать это с помощью vba?

https://www.sql.ru/forum/1317257/kak-programmno-opredelit-sobytie-pereklucheniya-vkladki

В примечании отчёта пишу в поле:
=Count([USLUGA_NAME]<>"Штраф") & " чел."
Надеясь получить количество человек, без учёта количества штрафов.
Выводится количество строк, вместе со штрафом...
как надо правильно написать условие?
------------------------------------------------------------------------
пишу так:
=-Sum([USLUGA_NAME]<>"Штраф") & " чел."
тогда прокатывает.
В чём подвох
или я - лох?
------------------------------------------------------------------------
Спасибо за ответ.

https://www.sql.ru/forum/1317241/podschitat-kolichestvo-ludey

Привет всем.

Строю запрос, пишу в бланке: ИмяПоля: DateDiff("yyyy";#07.10.2017#;#19.09.2019#). Возвращает 2 года, хотя надо - 1 год.
Пробую вместо # написать ". То же самое.
Пробую через VBA, функцией age = DateDiff("yyyy", d_s, d_f). Замечу, что d_s и d_f - тип Variant. Возвращает 2 года.
Подумала, может, тип Variant ему не нравится. Пробую использовать функцию CDate. Возвращает 2 года.

Я что-то делаю неверно?

https://www.sql.ru/forum/1317238/date-diff-schitaet-nepravilno

У себя на компе в свойствах базы в параметрах макросов выставил опцию ВКЛЮЧИТЬ ВСЕ МАКРОСЫ...при открытии базы-открывается без предупреждения.
Выкладываю файл базы на сетевой ресурс,открываю с чужого компа-появляется сообщение предупреждения системы безопасности ВКЛЮЧИТЬ СОДЕРЖИМОЕ.
Как сделать так,чтобы во втором случае (сетевой ресурс+чужой комп) это сообщение не выскакивало?

https://www.sql.ru/forum/1317236/kak-otkluchit-preduprezhdenie-sistemy-bezopasnosti

Access10, W7 или W10. Ни когда не возникало необходимости в связи 1-1. Надо проверить, как работает.(Ну например разделить широкую таблицу на поля нужные и не очень). 2 таблицы- таб1(поля ID и f1-текст)(и создана первой) и таб2(поля ID-ключ и f2 -текст). Связываем по ключу. Начинаем заполнять. Заполняем строку f1 в Таб1. Ok-Запись создана. Заполняем строку f2 в Таб2 -ОК -появилось 2 первых записи. Теперь наоборот, делаем вставку записи в Таб2. Ругается -"Требуется связанная запись в Таб1". Без 'Esc' переходим в Таб1 и делаем вторую запись. ОК - в обеих таблицах 2 записи. Т.е. Таб1 ведёт себя как главная.
Далее. Из Таб2 можно удалять запись. После этого можно и Тав1 соответствующую запись, наоборот -НЕТ.
Ставим в связи каскадное удаление. При удалении из Таб1 происходит каскадное удаление, из Таб2 -запись удаляется, а каскадно из Таб1 -НЕТ. Тоже получается какая-то неравнозначность таблиц.
Где-нибудь описано поведение 1-1? В форуме от 10года нашёл обсуждение "один в один", но там конкретное обсуждение чьей-то ситуации.

https://www.sql.ru/forum/1317172/test-svyazi-odin-k-odnomu

Имеется запрос с участием 2-х таблиц (метод Right Join).
Нужно обновить записи где в левой таблице значения полей NULL(а в правой таблице значения 'этих же' полей не равны NULL).Через DAO.Recordset это можно реализовать?

https://www.sql.ru/forum/1317170/right-join-mozhno-li-obrabotat-posredstvom-dao

Здравствуйте, имеется пример БД с формой для выгрузки данных(по всем столбцам) с фильтрацией в Exel. На этой форме также есть возможность скрыть столбцы для отображения. Подскажите пожалуйста, как сделать чтобы при скрытии столбцов это учитывалось и при выгрузке, т.е. как отображены в форме данные так и происходила выгрузка в Exel. Можно ли как-то как прописать ссылку/связь между формами для фильтрации?

Private Sub cmdApply_Click()
On Error Resume Next
    With Me.sfrmPreView.Form
        Forms.frmColHidden.chkIsSelect
        .Filter = IIf(Len(.Filter) > 0, .Filter & " And ", vbNullString) & Nz(BuildWhere(Me.cboCondition1.Value, Me.cboFields1, Me.txtValue1.Value, .Recordset.Fields(Me.cboFields1).Type), "")
        .FilterOn = Len(.Filter) > 0
        .Filter = Me.chkIsSelect
    End With
End Sub

https://www.sql.ru/forum/1317138/svyaz-mezhdu-dvumya-formami-sredstvom-vba

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

А можно как нибудь словить тип исполняемого события с формы?

К примеру как то так : Если тип события Form_Dirty (ну то есть внесены изменения) то вывести msgbox " Событие -внесены изменения- отловлено"

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

https://www.sql.ru/forum/1317113/slovit-ispolnyaemoe-sobytie-na-forme-s-zapisyami

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

https://www.sql.ru/forum/1317104/o-rabote-s-razdelami-otcheta

Здравствуйте! Почему этот код не работает? Я хочу обновить таблицу . К сумме добавить новую сумму. Данные хочу взять из полей ленточной формы. Пишет введите значение параметра (и мои переменные). Ставлю точку останова, значения переменных правильные, то есть код поля читает. Но почему то не работает.

Private Sub Form_AfterUpdate()
Dim SQL As String
Dim deb_acc_id As Integer
Dim sum As Currency
deb_acc_id = Me.DtAccID.Value
sum = Me.Summa.Value
SQL = "UPDATE tblAccounts Set Debet = Debet + sum WHERE (tblAccounts.ID) = deb_acc_id"
DoCmd.RunSQL SQL
End Sub

https://www.sql.ru/forum/1317058/zapros-na-obnovlenie

Добрый день.
Пытаюсь обработать форму авторизации на Яндекс Почте:

Sub testIE()    ' поля в форме
Dim texto As String, str_URL As String
Dim strЛогин As String, strПароль As String
Dim ie As Object
Dim html As Object
Set ie = CreateObject("InternetExplorer.Application")
strЛогин = "***"
strПароль = "***"
str_URL = "https://passport.yandex.ru/auth?from=mail&origin=hostroot_homer_auth_ru&retpath=https%3A%2F%2Fmail.yandex.ru%2F%3Fuid%3D50723641%2523message%2F1702923609......."
    With ie
        .Navigate str_URL
            Do Until Not ie.Busy And ie.ReadyState = 4
                DoEvents
            Loop
        .Visible = True
    End With
Set html = ie.Document
html.getElementById("passp-field-login").Value = strЛогин      'поле "введите логин"
html.getElementById("hiddenPassword").Value = strПароль        'поле "введите пароль"
html.getElementById("control button2 button2_view_classic button2_size_l button2_theme_action button2_width_max button2_type_submit passp-form-button").Click

И здесь обнаружил, что у кнопки "Войти" нет Id.
Есть какой-нибудь еще способ обращения к контролу формы, кроме getElementById, который "проглатывает" VBA?

https://www.sql.ru/forum/1317042/getelementbyid

Вопрос конечно идиотский....
И я сам знаю как его решить при помощи костылей всяких...
НО -
есть 2 таблицы с кодом ключом-счетчиком каждая
Можно ли сделать какими нибудь штатными методами так, что бы код-ключ был уникален для обеих таблиц? то есть запись с кодом например 121 была только в одной таблице, а в другой ее не было
Для чего это надо - долго рассказывать, костыли и обходные пути представляю.... интересуют именно штатные методы...

https://www.sql.ru/forum/1316998/unikalnyy-kluch-v-2-h-tablicah

Уважаемый форум,

Есть Office 365, Access. Есть блок инструкций, которые необходимо выполнить в комплексе, т.е. при сбое одной из них, нужно откатить все предыдущие. Как-то не складывается использовать begin, commit, rolback. Пример:

On Error Goto err

db.BeginTrans
db.Execute("DELETE FROM Table"), dbSeeChanges, dbFailOnError
db.Execute("INSERT INTO Table SELECT * FROM Table2"), dbSeeChanges, dbFailOnError
db.CommitTrans

err:
db.RollbackTrans

Т.е. в примере происходит выполнение инструкции DELETE, затем ошибка при выполнении INSERT, но DELETE не открывается - записи удаляются.

Что не так или чего я недопонимаю? Спасибо!

https://www.sql.ru/forum/1316983/kak-proverit-vypolnenie-sql-instrukcii-pered-zapisu-rezultatov