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

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!

Digite num novo módulo:

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

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

Tags: Access, title, UDF

André Luiz Bernardes

A&A® - In Any Place.