[access] modifica proprietà form

[alexxxb]

Ciao,
c'è un modo per ottenere, con un solo comando, che la proprietà "etichetta" (in pratica cio che viene scritto sulla barra in alto) di TUTTE le mie form cambi in un certo valore?
Ad esempio: ho tutte le mie form con etichetta "Pippo", ora voglio che tutte abbiano l'etichetta "Pluto", ma voglio farlo tramite un'istruzione senza dover modificare la proprietà per ogni form.
Si può fare?

[borgodiavalon]

avresti dovuto impostare una variabile pubblica e mettere nell'evento su apertura delle maschere me.caption=alla variabile.

ora per modificare l'etichetta la maschera deve essere aperta.

[alexxxb]

Grazie!
E come faccio ad impostare questa variabile pubblica?

[borgodiavalon]

nell'editor di vba crei un nuovo modulo scrivi
option explicit
Public My_label_maschera As String

Public Sub label_maschera()
MyTitoloMessaggio = "prova"
End Sub

ora nell'evento apertura di ogni maschera scrivi MyTitoloMessaggio (intendo come routine)

sicuramente esiste un metodo migliore ma non lo conosco, io faccio in questo modo.

[borgodiavalon]

mi correggo.

nell'editor di vba crei un nuovo modulo scrivi
option explicit
Public Const Mia_Caption_Form= "aaaaaaaaaaaaaaaaaaaaa"

ora nell'evento apertura di ogni maschera scrivi Mia_Caption_Form (intendo come routine)

ora è più corretto.

[alexxxb]

Grazie, sei sempre gentilissimo

[alexxxb]

Scusa non riesco a capire come usarlo.
In che senso "come routine"?
Se come routine metto "Mia_Caption_Form" mi va in errore...

[alexxxb]

Non riesco a trovare il modo di usare questa funzione....
Mi spiegheresti meglio?
Grazie

[borgodiavalon]

nell'editor di vba crei un nuovo modulo scrivi
option explicit
Public Const Mia_Caption_Form= "aaaaaaaaaaaaaaaaaaaaa"

poi apri in visualizzazione struttura una a una le tue maschere.
apri le proprietà della maschera---> evento---> su apertura ---> premi il pulsantino che appare con 3 punti ---> genera codice e nell'editor vba che appare scrivi Mia_Caption_Form

ps. scusa il ritardo nella risposta

[alexxxb]

Ciao, grazie.
Questa è proprio l'operazione che avevo provato a fare io, ma nella form il debug mi va in errore qui:

Private Sub Form_Open(Cancel As Integer)
Mia_Caption_Form
End Sub

e mi dice: Prevista routine e non variabile