' Вот так добавляем свой заголовок
AddAppProperty "AppTitle", dbText, "Новый заголовок"
Application.RefreshTitleBar
Public Function AddAppProperty(prpName As String, prpType As Variant, prpValue As Variant) As Integer
Dim dbs As DAO.DATABASE, prp As DAO.Property
Const conPropNotFoundError = 3270
On Error GoTo Er_
Set dbs = CurrentDb
dbs.Properties(prpName) = prpValue
AddAppProperty = True
Ex_:
Set prp = Nothing
Set dbs = Nothing
Exit Function
Er_:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(prpName, prpType, prpValue)
dbs.Properties.Append prp
Resume
Else
AddAppProperty = False
Resume Ex_
End If
End Function
Дать наименование приложения
В параметрах запуска ACCESS можно дать наименование приложению, но как это сделать из кода, например чтобы из таблицы бралась отчётная дата и писалась в наименование приложения.
Цитата:
Originally posted by Bereza
В параметрах запуска ACCESS можно дать наименование приложению, но как это сделать из кода, например чтобы из таблицы бралась отчётная дата и писалась в наименование приложения.
В параметрах запуска ACCESS можно дать наименование приложению, но как это сделать из кода, например чтобы из таблицы бралась отчётная дата и писалась в наименование приложения.
Объясни пжл подробнее, что ты понимаешь под - дать наименование приложению.
Ты имеешь ввиду изменить заголовок окна на свой (заголовок - это синяя (обычно синяя) полоска вверху окна)?
Цитата:
Originally posted by SergeySV
Объясни пжл подробнее, что ты понимаешь под - дать наименование приложению.
Ты имеешь ввиду изменить заголовок окна на свой (заголовок - это синяя (обычно синяя) полоска вверху окна)?
Объясни пжл подробнее, что ты понимаешь под - дать наименование приложению.
Ты имеешь ввиду изменить заголовок окна на свой (заголовок - это синяя (обычно синяя) полоска вверху окна)?
ОК, заголовок
Цитата:
Originally posted by Bereza
ОК, заголовок
ОК, заголовок
В Access'е это несколько закамуфлировано :) :
Код:
Технология такая, дело в том что базе данных Access можно программно добавлять пользовательские свойства (иногда это очень удобно для передачи переменных между формами и т.д. взамен глоб. переменных), так вот, на некоторые свойства (с определ именами) Access реагирует выполнением соотв. действий. Через меню "Параметры запуска" ты по сути делаешь то же самое, добавляешь базе свойство, токо программно за тебя это Access делает
Цитата:
Originally posted by SergeySV
В Access'е это несколько закамуфлировано :) :
Технология такая, дело в том что базе данных Access можно программно добавлять пользовательские свойства (иногда это очень удобно для передачи переменных между формами и т.д. взамен глоб. переменных), так вот, на некоторые свойства (с определ именами) Access реагирует выполнением соотв. действий. Через меню "Параметры запуска" ты по сути делаешь то же самое, добавляешь базе свойство, токо программно за тебя это Access делает
В Access'е это несколько закамуфлировано :) :
Код:
' Вот так добавляем свой заголовок
AddAppProperty "AppTitle", dbText, "Новый заголовок"
Application.RefreshTitleBar
Public Function AddAppProperty(prpName As String, prpType As Variant, prpValue As Variant) As Integer
Dim dbs As DAO.DATABASE, prp As DAO.Property
Const conPropNotFoundError = 3270
On Error GoTo Er_
Set dbs = CurrentDb
dbs.Properties(prpName) = prpValue
AddAppProperty = True
Ex_:
Set prp = Nothing
Set dbs = Nothing
Exit Function
Er_:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(prpName, prpType, prpValue)
dbs.Properties.Append prp
Resume
Else
AddAppProperty = False
Resume Ex_
End If
End Function
AddAppProperty "AppTitle", dbText, "Новый заголовок"
Application.RefreshTitleBar
Public Function AddAppProperty(prpName As String, prpType As Variant, prpValue As Variant) As Integer
Dim dbs As DAO.DATABASE, prp As DAO.Property
Const conPropNotFoundError = 3270
On Error GoTo Er_
Set dbs = CurrentDb
dbs.Properties(prpName) = prpValue
AddAppProperty = True
Ex_:
Set prp = Nothing
Set dbs = Nothing
Exit Function
Er_:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(prpName, prpType, prpValue)
dbs.Properties.Append prp
Resume
Else
AddAppProperty = False
Resume Ex_
End If
End Function
Технология такая, дело в том что базе данных Access можно программно добавлять пользовательские свойства (иногда это очень удобно для передачи переменных между формами и т.д. взамен глоб. переменных), так вот, на некоторые свойства (с определ именами) Access реагирует выполнением соотв. действий. Через меню "Параметры запуска" ты по сути делаешь то же самое, добавляешь базе свойство, токо программно за тебя это Access делает
:) спасибо надо попробовать!
Цитата:
Originally posted by Bereza
:) спасибо надо попробовать!
:) спасибо надо попробовать!
Ок , всё получилось. Я читала про пользовательские свойства, но уже про них подзабыла. Спасибо за напоминание. :)