Re: Da pannello comandi a maschera inizializzare variabili

On 10 Ott, 07:14, "Carlo Costarella"
<carloantoniocostare...@gmail.com> wrote:
> <q...@operamail.com> ha scritto nel messaggionews:2b6a6f15-a87c-4b60-986b-2a133b1f403e@d31g2000hsg.googlegroups.com...
>
>
>
> > Ciao a tutti.
> > Ho un db Access costituito essenzialmente da un pannello ( pan1 )  e
> > da 2 maschere ( form1 e form2 )
> > Preciso che per pannello ( pan1 ) intendo una maschera basata su
> > nessuna tabella.
> > Mentre form1 e form2 sono due maschere ,basate sulla stessa tabella
> > tbNominativi.
>
> > Il mio problema e' :
> > vorrei che cliccando su un bottone ( bottone1 ) di pan1 mi si aprisse
> > form1 ma che al contempo inizializzasse 2 variabili var1 e var2
> > presenti nel codice della maschera form1 .
>
> > In pratica clicco su bottone1 di pan1  , mi si apre form1 e le due
> > variabili var1 e var2 diventano :
> > var1 = "testo1" , var2="testo2".
>
> > Non riesco a scrivere il codice , chiedo cortesemente il vostro aiuto.
> > Grazie.
>
> Le variabili sono valorizzabili da un modulo presente nella maschera1?
> Potresti metterle in un modulo pubblico? Cosė da renderle globali?
>
> Ciao, Carlo

Grazie per la risposta.
Ho creato un modulo dove con public ho dichiarato var1 e var2.
Poi sul pannello ho creato un pulsante avente il seguente codice :
Private Sub bottone1_Click()
On Error GoTo Err_bottone1_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "form1"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    var1= "testo1"

Exit_bottone1_Click:
    Exit Sub

Err_bottone1_Click:
    MsgBox Err.Description
    Resume Exit_bottone1_Click

End Sub
Ma non funziona .
Come posso fare per passare il valore di var1 alla form1 appena
viene aperta da pannello , in modo tale da poter essere utilizzata ?
Grazie di nuovo