Partilhar via

Propriedade Application.AppTitle (Access)

  • Artigo

Use a propriedade AppTitle para especificar o texto que aparece na barra de título do banco de dados do aplicativo. For example, you can use the AppTitle property to specify that the string "Inventory Control" appear in the title bar of your Inventory Control database application.

Sintaxe

expressão. AppTitle

expressão Uma variável que representa um Aplicativo objeto.

Configuração

A propriedade AppTitle é uma expressão de cadeia de caracteres com o texto que aparece na barra de título.

A maneira mais fácil de definir essa propriedade é usando a opção Título do Aplicativo na caixa de diálogo Opções de Acesso . Você também pode definir essa propriedade usando uma macro ou Visual Basic.

To set the AppTitle property by using a macro or Visual Basic, you must first either set the property in the Access Options dialog box once or create the property in the following ways:

  • In a Microsoft Access database, you can add it by using the CreateProperty method and append it to the Properties collection of the Database object.

  • Em um projeto do Microsoft Access (.adp), você pode adicioná-lo à coleção AccessObjectProperties do objeto CurrentProject usando o método Add .

Você também deve usar o método RefreshTitleBar para tornar as alterações visíveis imediatamente.

Comentários

Se esta propriedade não for definida, a sequência de caracteres "Microsoft Access" aparecerá na barra de título.

Essa configuração de propriedade entra em vigor imediatamente após ser definida em código (desde que o código inclua o método RefreshTitleBar ) ou a caixa de diálogo Opções de Acesso seja fechada.

Exemplo

O exemplo a seguir mostra como alterar as propriedades AppIcon e AppTitle em um banco de dados do Microsoft Access. Se as propriedades ainda não foram definidas ou criadas, você terá que criá-las e acrescentá-las à coleção Properties utilizando o método CreateProperty.

Sub cmdAddProp_Click() 
 Dim intX As Integer 
 Const DB_Text As Long = 10 
 intX = AddAppProperty("AppTitle", DB_Text, "My Custom Application") 
 intX = AddAppProperty("AppIcon", DB_Text, "C:\Windows\Cars.bmp") 
 CurrentDb.Properties("UseAppIconForFrmRpt") = 1 
 Application.RefreshTitleBar 
End Sub 
 
Function AddAppProperty(strName As String, _ 
 varType As Variant, varValue As Variant) As Integer 
 Dim dbs As Object, prp As Variant 
 Const conPropNotFoundError = 3270 
 
 Set dbs = CurrentDb 
 On Error GoTo AddProp_Err 
 dbs.Properties(strName) = varValue 
 AddAppProperty = True 
 
AddProp_Bye: 
 Exit Function 
 
AddProp_Err: 
 If Err = conPropNotFoundError Then 
 Set prp = dbs.CreateProperty(strName, varType, varValue) 
 dbs.Properties.Append prp 
 Resume 
 Else 
 AddAppProperty = False 
 Resume AddProp_Bye 
 End If 
End Function

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.