Mais um pitaco mais uma bomba;
Num módulo novo cole e salve;Public Function MudaTituloTodosOsForms()
'By JPaulo
Maximo Access
On Error Resume Next
Dim CorrerTodos As Single
Dim frm As AccessObject
Dim openFrm As Access.Form
CorrerTodos = Timer()
For Each frm In CurrentProject.AllForms
DoCmd.OpenForm frm.name, acDesign
Set openFrm = Forms(frm.name)
openFrm.Caption = "Sistema versão 1.0"
DoCmd.Save acForm, frm.name
DoCmd.Close acForm, frm.name
Next frm
CorrerTodos = Timer - CorrerTodos
Exit Function
End Function
Crie uma Macro com o Nome de AutoExec e faça como está neste post para correr a função.http://maximoaccess.forumeiros.com/macros-f14/macro-correr-funcao-t123.htm