Método Application.RefreshTitleBar (Access)

O método RefreshTitleBar atualiza a barra de título do Microsoft Access após o AppTitle ou a propriedade AppIcon ter sido definida no Visual Basic.

Sintaxe

expressão. RefreshTitleBar

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

Valor de retorno

Nada

Comentários

Por exemplo, você pode alterar a legenda na barra de título do Microsoft Access para "Banco de dados de contatos" Configurando a propriedade AppTitle.

As propriedades AppTitle e AppIcon permitem personalizar seu aplicativo alterando o título e o ícone que aparecem na barra de título do Access. A barra de título não é atualizada automaticamente depois que você define essas propriedades. Para que a alteração na barra de título seja exibida, você deve usar o método RefreshTitleBar .

Observação

Em um banco de dados access, você pode redefinir as propriedades AppTitle e AppIcon para seus valores padrão excluindo-os da coleção Propriedades que representa o banco de dados atual. Depois de excluir essas propriedades, você deve usar o método RefreshTitleBar para restaurar os padrões de acesso na barra de título.

Se o caminho para o ícone especificado pela propriedade AppIcon for inválido, nenhuma alteração será refletida na barra de título quando você chamar esse método.

Exemplo

O exemplo a seguir define a propriedade AppTitle do banco de dados atual e aplica o método RefreshTitleBar para atualizar a barra de título.

Sub ChangeTitle() 
 Dim obj As Object 
 Const conPropNotFoundError = 3270 
 
 On Error GoTo ErrorHandler 
 ' Return Database object variable pointing to 
 ' the current database. 
 Set dbs = CurrentDb 
 ' Change title bar. 
 dbs.Properties!AppTitle = "Contacts Database" 
 ' Update title bar on screen. 
 Application.RefreshTitleBar 
 Exit Sub 
 
ErrorHandler: 
 If Err.Number = conPropNotFoundError Then 
 Set obj = dbs.CreateProperty("AppTitle", dbText, "Contacts Database") 
 dbs.Properties.Append obj 
 Else 
 MsgBox "Error: " & Err.Number & vbCrLf & Err.Description 
 End If 
 Resume Next 
End Sub

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.