ingrandire maschera

Question

Ciao a tutti,

in un controllo al doppio clic riesco ad aprire una altra maschera per visualizzare meglio il contenuto

DoCmd.RunCommand acCmdZoomBox

e' possibile dimensionare un po' piu grande?

Grazie

Answer 1

Ciao Francy,

potresti passare nella OpenForm come openargs (ultimo parametro) il nome ed il valore del controllo separati da un carattere speciale (ad es. | ).

Nella nuova form su apertura imposti il controllo di zoom al valore passato nella openargs e, su chiusura (o meglio su pulsante salva) modifichi il valore al controllo della main form ricavando il nome dalla openargs.

Per estrarre i due parametri puoi utilizzare una split:

Dim A as Variant

A=split(openargs,"|")

nomeControllo=A(0)

ValoreControllo=A(1)

Ciao Mimmo

P.s. Nella form di zoom,

su click del pulsante Annulla farai solo una DoCmd.Close

su click del pulsante Aggiorna:

A(1)=tuoControllo

Docmd.Close

Me(A(0))=A(1)

Answer 2

Grazie Sandro,

ho provato ma penso non cambi molto in quanto la dimensione della finestra resta sempre uguale.

In alternativa non c'è nessun altra soluzione? Ad esempio creare una nuova maschera e al doppio click inserire il contenuto in un controllo più grande.

Ho provato cosi:

ho creato una nuova maschera frm_newcontrollo ed ho inserito un controllo non associato newcontrollo

sul doppio click di un controllo nella prima maschera riesco a popolare la nuova maschera e visualizzare meglio il contenuto con il seguente codice

Private Sub check_oggetto_DblClick(Cancel As Integer)

DoCmd.OpenForm "frm_newcontrollo", acViewNormal, acEdit

Forms!frm_newcontrollo!newcontrollo = Me.descrizione

End Sub

se modifico il valore newcontrollo è possibile poi modificare anche il controllo descrizione presente nella prima maschera?

Però essendo presenti diversi controlli nella prima maschera da leggere meglio, con finestra piu grande, in pratica la nuova maschera dovrebbe essere collegata ai controlli, solo doppio click, della prima maschera.

Fargli fare un pò quello che si verifica con il codice DoCmd.RunCommand acCmdZoomBox però in una maschera personalizzata con un solo controllo.

Grazie ancora

Answer 3

ciao Francesca,

non ho mai utilizzato quel tipo di caratteristica, prova a vedere se la soluzione proposta da questo MVP potrebbe aiutarti :

http://accessmvp.com/TomVanStiphout/ZoomBox.htm

ciao, Sandro.