VBA Access - Colocando título na sua aplicação.

Termo de Responsabilidade 

Mostre que suas aplicações MS Access são organizadas por inserir no título delas um texto que demonstre:

- O nome da aplicação

- A ação efetuada no momento por sua aplicação

- O nome da sua empresa

- Código do processamento sendo efetuado no momento.

Pode usar a funcionalidade para inúmeras coisas, aproveite!

Option Explicit

Option Compare Database

Private Declare Function

 SetWindowText _

Lib "user32" _

Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Public Sub SetFormTitle(frm As Form, TitleText As String)

Dim fhWnd As Long

Let fhWnd = frm.hwnd

SetWindowText fhWnd, TitleText

End Sub

'Copie a SUB abaixo dentro do formulário, no evento OnOpen.

Private Sub Form_Open(Cancel As Integer)

SetFormTitle Me, ".: A&A - In Any Place - Título da minha aplicação!"

End Sub

Referências: 

Tags: VBA, Access, application, title, título, aplicação,