Создать журнал/историю

@Варекай · Регистрация: 18.11.2017

Студворк — интернет-сервис помощи студентам

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

me.hist = me.FIO & " " & me.hist

Получилось, чего хотел, но поскольку это поле не привязано к таблице - при закрытии формы, оно очищалось.

Как сделать, чтобы оно сохранялось до тех пор, пока я не захочу его очистить сам (по окончанию раб.дня например)
Спасибо!

@Eugene-LS · 24.08.2019, 13:26

Сообщение от Варекай

Как сделать, чтобы оно сохранялось до тех пор, пока я не захочу его очистить сам (по окончанию раб.дня например)

Хранить в некой временной таблице например.

@Варекай · 24.08.2019, 13:28 **[ТС]**

Сообщение от Eugene-LS

Хранить в некой временной таблице например.

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

@Eugene-LS · 24.08.2019, 13:41

Сообщение от Варекай

Но не знаю, как связать поле в форме с полем из другой таблицы.

А зачем связывать?
Пишите через Recordset или запросом на обновление
Считывайте DlookUp -ом ...

@Варекай · 24.08.2019, 13:45 **[ТС]**

Сообщение от Eugene-LS

Пишите через Recordset

Я еще этого не понимаю.
А как в свойствах поля формы указать данные из другой таблицы? Почему то выдает ошибку, хотя делаю по построителю выражений.
типа
=[Tables2]![bufer]
выдает ошибку.

@Eugene-LS · 24.08.2019, 13:57

Сообщение от Варекай

выдает ошибку.

Попробуйте через DlookUp() функцию.
Интернет у вас есть?

@Варекай · 24.08.2019, 14:08 **[ТС]**

Сообщение от Eugene-LS

Попробуйте через DlookUp() функцию.

Спасибо! получить получилось. А как теперь туда добавлять ?

@VinniPuh · 24.08.2019, 14:10

Сообщение от Варекай

...А как теперь...

Варекай, Вы же не первый день ~~за мужем~~ на форуме.
Знаете, что бы вам показали на примере, НУЖЕН ПРИМЕР.

@Eugene-LS · 24.08.2019, 14:11

Сообщение от Варекай

А как теперь туда добавлять ?

Запросом на обновление ... например.

@Варекай · 24.08.2019, 14:16 **[ТС]**

Да блин ну не то! Он получает с другой таблицы значение при помощу DLookUP при определенном событии.
А как сделать, чтобы поле постоянно отображало значение из другой таблицы? Ну есть же какая то пропись!

Сообщение от VinniPuh

НУЖЕН ПРИМЕР.

Да я такие хрестоматийные вопросы задаю, что и пример не нужен.
Например, как в значении поля задать свойства, чтобы оно отображало ДАННЫЕ ИЗ ДРУГОЙ ТАБЛИЦЫ, а не той, к которой привязана форма. Уверен, там ошибка в какой то запятой, а я мучаюсь.

Сообщение от VinniPuh

Вы же не первый день за мужем

Не первый. Но я специалист совсем в другой отрасли. Нет времени на долгое изучение Access. Я еще в шоке от себя, когда вижу, какие классные вещи у меня получаются.

@Capi · 24.08.2019, 14:31

Сообщение от Варекай

Да я такие хрестоматийные вопросы задаю, что и пример не нужен.
Например,
как в значении поля задать свойства, чтобы оно отображало ДАННЫЕ ИЗ ДРУГОЙ ТАБЛИЦЫ,
а не той, к которой привязана форма

Нет. Вы спрашиваете не про отображение.
Тем более, что отображение в поле у Вас уже получается (см. #7).

Вы спрашиваете, "как запомнить", то есть, фактически Вы спрашиваете,
как связать поле формы с полем таблицы, не являющейся источником данных формы.

А это не получится.

Поэтому:
а) Либо делайте подчиненную форму, в которой это поле будет нормально связано с этой служебной таблицей,
б) либо пишите в эту таблицу запросом или через рекордсет и обновляйте поле.
А отображать полученный результат Вы уже умеете.

@Варекай · 24.08.2019, 14:43 **[ТС]**

Сообщение от Capi

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

НИКАК НЕ ПОЛУЧИТСЯ?!?!? Ужас какой то! не думал, что Access столь несовершенен.
А можно в контрол (по-моему так это называется) поля формы вписать как-то функцию DLookUP чтоб оно постоянно получало данные из другой таблицы?

@Capi · 24.08.2019, 14:58

Сообщение от Варекай

А можно в контрол (по-моему так это называется) поля формы вписать как-то функцию DLookUP
чтоб оно постоянно получало данные из другой таблицы?

Конечно.
Обычное дело.
Пишите в ControlSource контрола примерно так:

SQL
1
=DLookup("имя поля";"имя таблицы";"условие")

Ну, и про Requery при необходимости не забывайте.
Обратите внимание, что при этом используются точки с запятой (";"), а не запятые (",").

Добавлено через 34 секунды

Сообщение от Варекай

Ужас какой то! не думал, что Access столь несовершенен

Смешно.)))

@Варекай · 24.08.2019, 15:01 **[ТС]**

Сообщение от Capi

Конечно.
Обычное дело.

ОГРОМНОЕ СПАСИБО!
Именно такая помощь бесценна! Коротко и понятно.
И именно в точках с запятой у меня была ошибка над которой я парюсь уже час! (ну откуда мне знать).
И так, отображение получилось!
Скажите, как теперь можно из формы добавить значение в поле другой таблицы? (не связанной с данной формой)
_{Capi, еще раз тысяча благодарностей вам!}

mobile · 24.08.2019, 15:05

Сообщение от Варекай

Мне нужно, чтобы в определенном поле отображались фамилии всех лиц, которых я оформил сегодня.
Я легко сделал это простейшим методом.
Создал в форме поле HIST
И к одному из событий привязал операцию
me.hist = me.FIO & " " & me.hist
Получилось, чего хотел, но поскольку это поле не привязано к таблице - при закрытии формы, оно очищалось.
Как сделать, чтобы оно сохранялось до тех пор, пока я не захочу его очистить сам (по окончанию раб.дня например)

Если не нужна история посещений, то необходимость служебной несвязанной таблицы не очень понятна. Я бы скорее подумал о создании некоторого свойства, хранящего дневную историю и очищающегося по кнопке.
Создание свойства например по имени Dayhist
В общем модуле

Visual Basic
1
2
3
4
5
6
Sub createDayhist() 'Создание свойства
    Dim prp As Property, db As DAO.Database
    Set db = CurrentDb
    Set prp = db.CreateProperty("Dayhist", dbText, "")
    db.Properties.Append prp
End Sub

Использование на том же событии где рассчитывается me.hist

Visual Basic
1
2
me.hist = me.FIO & " " & me.hist
Currentdb.Properties("Dayhist") = me.hist

На событии открытия формы

Visual Basic
1
me.hist = Currentdb.Properties("Dayhist")

На кнопке очищения

Visual Basic
1
Currentdb.Properties("Dayhist") = ""

Возможно следует также подумать об очистке свойства при открытии БД, например на стартовой форме или макросе Autoexec

@Capi · 24.08.2019, 15:28

Сообщение от Варекай

Скажите, как теперь можно....

А давайте я лучше скажу, как вообще обойтись без этой дополнительной таблицы.

Сделайте этот Ваш справочный контрол не текстбоксом, а списком.
Задайте этому списку Источник строк так (принцип показываю):

SQL
1
SELECT Фамилия FROM Таблица WHERE ДатаОформления=DATE();

И при обновлении Фамилии задать:

Visual Basic
1
2
3
Private Sub Фамилия_AfterUpdate()
 Список4.Requery
End Sub

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

@Варекай · 24.08.2019, 15:31 **[ТС]**

Сообщение от mobile

Создание свойства например по имени Dayhist

Классная задумка! И мне абсолютно понятная по смыслу.
Вроде бы сделал все как велели, но
а) появляется ошибка "свойство не найдено" CurrentDb.Properties("Dayhist") = Me.hist
б) после закрытия и открытия формы - всё пропадает.

Добавлено через 1 минуту

Сообщение от Capi

А давайте я лучше скажу, как вообще обойтись без этой дополнительной таблицы.

Очень интересно! Обязательно сейчас попробую. Но мне увы не подходит, так как моя смена длится сутки. И мне хотелось бы очищать ее уходя с дежурства (утром).
Но ради опыта обязательно испаробую и запомню.

mobile · 24.08.2019, 15:36

Сообщение от Варекай

Вроде бы сделал все как велели, но
а) появляется ошибка "свойство не найдено" CurrentDb.Properties("Dayhist") = Me.hist
б) после закрытия и открытия формы - всё пропадает.

Процедуру createDayhist надо выполнить!! Ровно 1 раз. Свойство появится. Потом можно закомментировать текст процедуры или совсем ее удалить.

@Capi · 24.08.2019, 15:39

Сообщение от Варекай

фамилии всех лиц, которых я оформил сегодня

Сообщение от Варекай

моя смена длится сутки

...

@alvk · 24.08.2019, 15:48

Сообщение от Варекай

чтобы оно отображало ДАННЫЕ ИЗ ДРУГОЙ ТАБЛИЦЫ, а не той, к которой привязана форма.

А почему форма привязана к таблице, а не к запросу, в котором обе эти таблицы?

Добавлено через 50 секунд

Сообщение от Варекай

Access столь несовершенен

Тупой, мысли читать не может, на голосовые команды не реагирует

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

Создать журнал/историю

Решение

Решение

Решение

@Варекай 2 / 4 / 0 Регистрация: 18.11.2017 Сообщений: 316

	Создать журнал/историю 24.08.2019, 13:15. Показов 6477. Ответов 43 Метки нет (Все метки) Меня опять посетила идея. Мне нужно, чтобы в определенном поле отображались фамилии всех лиц, которых я оформил сегодня. Я легко сделал это простейшим методом. Создал в форме поле HIST И к одному из событий привязал операцию me.hist = me.FIO & " " & me.hist Получилось, чего хотел, но поскольку это поле не привязано к таблице - при закрытии формы, оно очищалось. Как сделать, чтобы оно сохранялось до тех пор, пока я не захочу его очистить сам (по окончанию раб.дня например) Спасибо! 0