MS Access - полезные решения

[Valery]

F11 - показывает/скрывает область навигации (таблицы, запросы, формы, макросы и т.д.)
Chr(13) + Chr(10) - возврат каретки
Chr(9) - символ табуляции
При попытке установить "Подчиненные поля": "Невозможно установить связь между свободными формами" - прописать вручную

---

Готовые решения MS Access:

• MS Access - вывести строку состояния
• Обращения к элементам в Access
• Открытие формы в режиме таблицы, добавления или перехода на новую запись
• Открыть форму с конкретной записью по нажатию кнопки
• Открыть папку в FastStone Image Viewer
• Открытие ссылки в стандартном браузере при двойном клике в поле
• Сменить формат поля дата
• Дату из календаря записать в поле формы
• Установить значение по умолчанию +1 для новой записи в форме
• Выполнение запроса на удаление записей из формы
• При закрытии FORM1 закрыть FORM2 если эта форма открыта
• Выбрать максимальное значение из уже выведенных значений в поле и сделать +1
• Извлечение последнего значения из таблицы
• Смена цвета ячейки в зависимости от значения
• Универсальная функция, которая изменяет цвет поля
• Получить значение после 16 символа
• Поиск записи в форме используя поле со списком
• Обновление элементов формы
• VBA код копирует в буфер обмена значения из 3х полей
• Передать фокус в поле id открываемой формы
• Подсчитать количество записей в таблице и вывести результат

[Valery]

Свойство формы режим по умолчанию - таблица
При открытии из окна базы данных открывается в режиме таблицы.
При открытии посредством кнопки в форме - открывается в режиме одиночной формы.
Решение:
MS Access - открытие формы в режиме таблицы
Найти:

Код: Выделить всё

DoCmd.OpenForm stDocName, , , stLinkCriteria

Заменить на:

Код: Выделить всё

DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria

---

' Открыть форму в режиме добавления новой записи:

Код: Выделить всё

DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd

---

' Перейти к новой записи после открытия формы

Код: Выделить всё

'Открытие
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Переход на новую запись
DoCmd.GoToRecord , , acNewRec

[Valery]

Дата в access отображается 01.12.2024, чтобы изменить на 2024.12.01

Свойства поля - Формат поля вместо списка указываем: yyyy.mm.dd

Если надо изменить дату в запросе:

Код: Выделить всё

SELECT Format([Дата]; "yyyy.mm.dd") AS ФорматДата
FROM Таблица;

Или на VBA:

Код: Выделить всё

Me.DateField = Format(Me.DateField; "yyyy.mm.dd")

txtDateField - имя поля, содержащего дату.
Код можно разместить в обработчике события формы или отчета (`Form_Load`, `Report_Open`), чтобы автоматически преобразовывать формат даты при открытии формы или отчета.

[Valery]

В форме access есть календарь. При клике по дате в нем записать эту дату в поле формы [date]:

Код: Выделить всё

Private Sub Calendar1_Click()
    ' Извлечения даты из элемента управления календарём и запись в поле date.
    Me.[date] = Me.Calendar1.Value
End Sub

---

Либо с появлением MsgBox Да/Нет:

Код: Выделить всё

Private Sub Calendar1_Click()
    Dim userResponse As VbMsgBoxResult
    ' Показываем сообщение с запросом на подтверждение записи даты
    userResponse = MsgBox("Записать выбранную дату?", vbYesNo + vbQuestion, "Подтверждение")

    ' Проверяем ответ пользователя
    If userResponse = vbYes Then
        Me.[date] = Me.Calendar1.Value  ' Записываем дату
    Else
        Exit Sub  ' Выходим из процедуры, не записывая дату
    End If
End Sub

[Valery]

Код: Выделить всё

Dim stDocName As String
Dim stLinkCriteria As String
Dim frm As Form

'Открываемая форма
stDocName = "photosession-info"
stLinkCriteria = "[id]=" & Me![id]

' Открываем форму и запоминаем ссылку на неё
DoCmd.OpenForm stDocName, , , stLinkCriteria
Set frm = Forms(stDocName)

' Устанавливаем фокус на поле id открытой формы
frm![id].SetFocus

[Valery]

Обновление подчиненной формы:

Код: Выделить всё

Forms("Имя_Главной_Формы").[Имя_Подчиненной_формы].Form.Requery

[Valery]

Открыть форму с конкретной записью

Код: Выделить всё

    Dim stDocName As String
    Dim stLinkCriteria As String

    'Открываемая форма
    stDocName = "photosession-info"
    
    'id открываемой формы = значению поля формы в которой кнопка
    stLinkCriteria = "[id]=" & Me![photosession]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

[Valery]

Выполнение запроса на удаление записей из формы нажатием кнопки:

Код: Выделить всё

    DoCmd.SetWarnings False ' Отключить предупреждения
    DoCmd.OpenQuery "photosession_info file rating 0"  ' Имя запроса в БД
    DoCmd.SetWarnings True ' Включить предупреждения снова
    Me.Requery ' Обновить форму после удаления записей

[Valery]

Установить значение по умолчанию +1 в поле формы в Access:
Функция находит максимальное значение `id` в таблице `[photosession-info tag]`.
- **Nz(..., 0)**: Гарантирует, что если `DMax` не найдет никаких значений (например, если таблица пуста), то будет возвращено `0`.
- **+1**: Увеличивает найденное максимальное значение на 1.

Таким образом, когда добавляется новая запись через форму, данное поле автоматически заполняется следующим числом после текущего максимального значения `id`.

Код: Выделить всё

=Nz(DMax("[id]";"[photosession-info tag]");0)+1

[Valery]

Код получает значение из поля link в таблице links_post, и отрезает при выводе часть после 16 символа:

Код: Выделить всё

=Mid(DLookUp("[link]";"[photosession-model-relise]";"[id] = [photosession]");16)

Если поля [ID] в форме нет, но это связанное поле, то его значение можно получить так:

Код: Выделить всё

="Md: @" & Mid(DLookUp("[link]"; "[photosession-model-relise]"; "[id] = " & DLookUp("[model]"; "[photosession-info]"; "[id] = [photosession]")); 16)