Мне удалось разрешить пользователям изменять фон базы данных.Он отлично работает и работает независимо от того, с какого компьютера они входят в базу данных.У меня действительно была проблема с удаленными пользователями, поэтому я добавил макрос, который позволяет им отключать эту функцию.Работает отлично.Поначалу было немного сложно запуститься.Некоторые из приведенных ниже модулей могут содержать больше материала, чем то, что необходимо для цели этого вопроса.Но вот что я сделал, чтобы заставить его работать:
Добавьте следующие модули в вашу базу данных: modChangeMDI, SetBackgroundImage и clsCommonDialog
Ссылка на zip-файл, содержащий код для вышеуказанных модулей:http://www.filedropper.com/changebackgroundimage
Вы можете установить местоположение по умолчанию, которое будет видеть пользователь при появлении диалогового окна поиска файла.Он находится в функции ThisFileToOpen модуля SetBackgroundImage.
clsCommonDialog <- Используется для открытия диалогового окна поиска файла. ModChangeMDI <- Используется для изменения фонового изображения </p>
Создание таблицы с именем$ BackgroundLocation со следующими полями.В моей базе данных это содержится в серверной базе данных.
ID (AutoNumber, Primary Key)
UserID (Text, Required, 250 in length, don't allow zero lengths)
BackgroundLocation (Text, 255 in length, not required)
DisableBackground (boolean)
Создайте макрос AutoExec и добавьте действие, которое запускает код SetTheBackgroundPictureOnStartup (1)
Создайте макрос BackgroundDisableEnable и добавьте действиекоторый выполняет код DisableEnableBackground ()
Создайте макрос BackgroundSet и добавьте действие, которое запускает код SetTheBackgroundPictureOnStartup (2)
Затем назначьте BackgroundDisableEnable и макрос BackgroundSet их собственным пунктам меню.
Когда база данных открывается, по умолчанию запускается AutoExec.