Как изменить заголовок при открытии БД?

@Alex_Barcelona · Регистрация: 03.04.2018

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

Уважаемый форумчане, подскажите, пожалуйста!все облазил!как изменить название при открытие бд в верхней части!Принскрин прилагаю!

@Capi · 10.07.2018, 12:42

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

Принскрин прилагаю!

???

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

как изменить название

Параметры запуска -> Заголовок приложения

@Alex_Barcelona · 10.07.2018, 13:05 **[ТС]**

Вот принскрин, прощу прощения)

@Capi · 10.07.2018, 13:38

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

Вот принскрин

Но ответ ведь уже дан.
Повторю:
Параметры -> Текущая БД -> Заголовок приложения

@Alex_Barcelona · 10.07.2018, 13:49 **[ТС]**

Спасибо большое за помощь!)

@Alex_Barcelona · 11.07.2018, 07:38 **[ТС]**

Я переименовываю,как вы посоветовали, но после закрытия и открытия БД, снова вверху высвечивается название "Библиотека", в чем проблема?! Принскрин прикреплен

@Панург · 11.07.2018, 08:00

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

Я переименовываю,как вы посоветовали, но после закрытия и открытия БД, снова вверху высвечивается название "Библиотека", в чем проблема?! Принскрин прикреплен

Чудес не бывает, значит свойство задаётся в коде. Ищи в коде текст "AppTitle" или "Библиотека"

@Alex_Barcelona · 11.07.2018, 11:25 **[ТС]**

Извините, а где это искать?!Не понял!Недавно просто начал работу с Аксессом!

@Панург · 11.07.2018, 11:31

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

Извините, а где это искать?!Не понял!Недавно просто начал работу с Аксессом!

Alt+F11
затем Ctrl+F

@Alex_Barcelona · 11.07.2018, 12:11 **[ТС]**

Посмотрите, если не затруднить, не могу самостоятельно найти в коде такие словосочетания

@~~Eugene-LS~~ · 11.07.2018, 15:35

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

Посмотрите, если не затруднить, не могу самостоятельно найти в коде такие словосочетания

В модуле формы frmAutorization

Visual Basic

Private Sub Form_Load()
On Error Resume Next
 Dim intX As Integer
 Const DB_Text As Long = 10
 intX = AddAppProperty("AppTitle", DB_Text, "Библиотека")
 intX = AddAppProperty("AppIcon", DB_Text, CurrentProject.Path & "\Icon\Database.ico")
 
 Application.RefreshTitleBar
 
DoCmd.OpenForm ("frmInvisible"), , , , , acHidden 'Загрузка скрытой формы
End Sub

Поменяйте строку :

Visual Basic

1	intX = AddAppProperty("AppTitle", DB_Text, "Библиотека")

на

Visual Basic

1	intX = AddAppProperty("AppTitle", DB_Text, "Рабочая База Данных")

Ещё вариант: Полностью удалить эту строку - будет как в настройках.

@Alex_Barcelona · 12.07.2018, 05:05 **[ТС]**

Eugene-LS, спасибо за помощь!

Как изменить заголовок при открытии БД?

Решение

Решение

@Alex_Barcelona 0 / 0 / 0 Регистрация: 03.04.2018 Сообщений: 90
		1
	Как изменить заголовок при открытии БД? 10.07.2018, 12:15. Показов 3793. Ответов 11 Метки нет (Все метки) Уважаемый форумчане, подскажите, пожалуйста!все облазил!как изменить название при открытие бд в верхней части!Принскрин прилагаю! 0

@Capi Модератор 6221 / 2900 / 703 Регистрация: 12.06.2016 Сообщений: 7,805
	10.07.2018, 12:42	2
	Сообщение от Alex_Barcelona Принскрин прилагаю! ??? Сообщение от Alex_Barcelona как изменить название Параметры запуска -> Заголовок приложения 0

@Alex_Barcelona 0 / 0 / 0 Регистрация: 03.04.2018 Сообщений: 90
	10.07.2018, 13:05 [ТС]	3
	Вот принскрин, прощу прощения) Миниатюры 0

@Capi Модератор 6221 / 2900 / 703 Регистрация: 12.06.2016 Сообщений: 7,805
	10.07.2018, 13:38	4
	Сообщение было отмечено tezaurismosis как решение Решение Сообщение от Alex_Barcelona Вот принскрин Но ответ ведь уже дан. Повторю: Параметры -> Текущая БД -> Заголовок приложения 1

@Alex_Barcelona 0 / 0 / 0 Регистрация: 03.04.2018 Сообщений: 90
	10.07.2018, 13:49 [ТС]	5
	Спасибо большое за помощь!) 0

@Alex_Barcelona 0 / 0 / 0 Регистрация: 03.04.2018 Сообщений: 90
	11.07.2018, 07:38 [ТС]	6
	Я переименовываю,как вы посоветовали, но после закрытия и открытия БД, снова вверху высвечивается название "Библиотека", в чем проблема?! Принскрин прикреплен Миниатюры 0

@Панург Мы один, давай на "ты" 3449 / 1322 / 321 Регистрация: 16.06.2016 Сообщений: 3,120
	11.07.2018, 08:00	7
	Сообщение от Alex_Barcelona Я переименовываю,как вы посоветовали, но после закрытия и открытия БД, снова вверху высвечивается название "Библиотека", в чем проблема?! Принскрин прикреплен Чудес не бывает, значит свойство задаётся в коде. Ищи в коде текст "AppTitle" или "Библиотека" 0

@Alex_Barcelona 0 / 0 / 0 Регистрация: 03.04.2018 Сообщений: 90
	11.07.2018, 11:25 [ТС]	8
	Извините, а где это искать?!Не понял!Недавно просто начал работу с Аксессом! 0

@Панург Мы один, давай на "ты" 3449 / 1322 / 321 Регистрация: 16.06.2016 Сообщений: 3,120
	11.07.2018, 11:31	9
	Сообщение от Alex_Barcelona Извините, а где это искать?!Не понял!Недавно просто начал работу с Аксессом! Alt+F11 затем Ctrl+F 0

@Alex_Barcelona 0 / 0 / 0 Регистрация: 03.04.2018 Сообщений: 90
	12.07.2018, 05:05 [ТС]	12
	Eugene-LS, спасибо за помощь! 0