Views

Histats

Vitrine

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.


✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias