Re: salvare valore di una casella di testo non associata o un'etichett

[Roberto da casa]

"francescodiassisi" <francesc...@discussions.microsoft.com> ha scritto
nel messaggio news:0FE5831F-E05B-46AA...@microsoft.com...
> E' possibile salvare il valore di una casella di testo non associata o di
> un'etichetta anche dopo la chiusura della maschera ?

Se il valore va conservato SOLO sino alla chiusura del database, memorizzalo
in una variabile globale definita in un modulo del database.
Se invece ti serve memorizzare quel valore anche dopo la chiusura del
database, uno dei sistemi più usati è quello di crearti una tabella di
comodo dove memorizzerai, alla chiusura della maschera, quei dati che poi
reimposterai all'apertura della maschera. In alternativa puoi aprire da VBA
la STRUTTURA della maschera, memorizzare quel valore nel valore predefinito
della casella di testo o nel caption dell'etichtta, quindi chiudere la
struttura chiedendone il salvataggio.

> Francesco

--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

[Karl Donaubauer]

francescodiassisi wrote:
> E' possibile salvare il valore di una casella di testo non associata
> o di un'etichetta anche dopo la chiusura della maschera ?

Puoi usare un Private Property della maschera. Copia queste due
procedure in un modulo (standard o della maschera):

'*************
Sub procSetCreatePrp(strObjType As String, strObjName As String, _
strPrpName As String, strValue As String)

On Error GoTo ErrPrp

Dim db As DAO.Database
Dim doc As DAO.Document

Set db = CurrentDb
Set doc = db.Containers(strObjType).Documents(strObjName)

doc.Properties(strPrpName) = strValue

ExitPrp:
Exit Sub

ErrPrp:
Select Case Err.Number
Case 3270 ' Property non č ancora presente
doc.Properties.Append doc.CreateProperty _
(strPrpName, dbText, strValue)
Case Else
MsgBox "Eccezione divertente No. " & Err.Number & _
" vuol dire: " & Err.Description
End Select

Resume ExitPrp

End Sub
'********************
Function fctGetPrp(strObjType As String, strObjName As String, _
strPrpName As String)

On Error GoTo ErrPrp

fctGetPrp = _
CurrentDb.Containers(strObjType).Documents(strObjName).Properties(strPrpName)

ExitPrp:
Exit Function

ErrPrp:
MsgBox "Eccezione divertente No. " & Err.Number & " vuol dire: " &
Err.Description

End Function
'********************

Nel codice dell'evento Close della maschera:

procSetCreatePrp "Forms", Me.Name, Me!TuaCasella.Name, Me!TuaCasella

Nel codice delll'evento Open della maschera:

Me!TuaCasella= fctGetPrp("Forms", Me.Name, Me!TuaCasella.Name)

--
HTH
Karl
*********
Access FAQ: www.donkarl.com/it

[MA]

Karl Donaubauer wrote:
> francescodiassisi wrote:
>> E' possibile salvare il valore di una casella di testo non associata
>> o di un'etichetta anche dopo la chiusura della maschera ?
>
> Puoi usare un Private Property della maschera. Copia queste due
> procedure in un modulo (standard o della maschera):

Ciao Karl, molto interessante questa soluzione.
Per evitare che si perda nei post, la posso pubblicare su accessgroup?

--
_ _
Ciao
MAssimiliano Amendola www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info: www.donkarl.com/it

[Alessandro Baraldi]

Se deve essere letto anche da altre Form l'alternativa alla soluzione
di Roberto(che reputo la più veloce) potrebbe essere usare SaveSetting
e GetSetting per recuperarlo.

In ogni caso credo possa essere vista come una variabile Ambiente(anche
se
non lo è) quindi ci possono essere molte varianti.

@Alex

[Karl Donaubauer]

MA wrote:
> Karl Donaubauer wrote:
>> francescodiassisi wrote:
>>> E' possibile salvare il valore di una casella di testo non associata
>>> o di un'etichetta anche dopo la chiusura della maschera ?
>>
>> Puoi usare un Private Property della maschera. Copia queste due
>> procedure in un modulo (standard o della maschera):
>
> Ciao Karl, molto interessante questa soluzione.
> Per evitare che si perda nei post, la posso pubblicare su accessgroup?

Sě.

--
Ciao

[MA]

Karl Donaubauer wrote:
> MA wrote:
>> Karl Donaubauer wrote:
>>> francescodiassisi wrote:
>>>> E' possibile salvare il valore di una casella di testo non
>>>> associata o di un'etichetta anche dopo la chiusura della maschera ?
>>>
>>> Puoi usare un Private Property della maschera. Copia queste due
>>> procedure in un modulo (standard o della maschera):
>>
>> Ciao Karl, molto interessante questa soluzione.
>> Per evitare che si perda nei post, la posso pubblicare su
>> accessgroup?
>
> Sě.

Fatto