Modificare titolo barra access

Question

Buonasera,

con gli adp, per modificare il titolo della barra di access, sull'evento Form_Open, usavo

CurrentProject.Properties.Add "AppTitle", "Registro Configurazione - Utente " & str_UtenteCollegato

Application.RefreshTitleBar

Con un file accdb ho provato con

Application.CurrentDb.Properties("AppTitle") = "Prova modifica titolo applicazione."

Application.RefreshTitleBar

ma mi restituisce l'errore "Errore di runtime 3270 - Proprietà non trovata".

Dove sbaglio?

Grazie, Max.

Answer 1

ciao Max,

gestisci l'errore nel momento in cui la property non esiste nel tuo DB.

richiama la seguente sub che copierai in un modulo pubblico o dalla macro autoexec o dalla prima form che apri con il tuo DB:

Public Sub changeTitleBar()

On Error GoTo errorHandler

    Dim prp As DAO.Property

    CurrentDb.Properties("AppTitle") = "Prova modifica titolo applicazione"

ExiterrorHandler:

    Application.RefreshTitleBar

    Exit Sub

errorHandler:

 With Err

      Select Case .Number

         Case 3270

         Set prp = CurrentDb.CreateProperty("AppTitle", dbText, "Prova modifica titolo applicazione")

         CurrentDb.Properties.Append prp

      Case Else

       MsgBox "ERR#" & .Number _

            & vbNewLine & .Description _

            , vbOKOnly Or vbCritical

      End Select

     End With

     Resume ExiterrorHandler

End Sub

ciao, Sandro.

Answer 2

Grazie Sandro, gentilissimo.

Saluti, Max.