Newsgroup: it.comp.appl.access
Titolo: applicare un filtro alla maschera dal ritorno di una maschera a popup

nulla da fare ci ho provato come consigliato da alcuni con una variabile 
globale ma nulla
ho una maschera dalla quale apro a popup una maschera calendario dove clicco 
una data e la passo alla maschera chiamante
quando chiudo il calendario mi posiziono con setfocus sul campo data che ha 
ricevuto la data cliccata
 
e su gotfocus di quel controllo applico il filtro in base a data
 
"MA!" non lo esegue al ritorno dal calendario gotfocus non viene eseguito
ho anche provato con una variabile globale ma nulla se non esegue gotfocus 
non valuta nemmeno la variabile globale come faccio ad applicare il filtro 
data tornando da calendario?
 
grazie a tutti.
 

La stranezza maggiore � che se ritorno su un campo data chiudendo il 
calendario in una maschera il gotfocus funziona e quindi il filtro data 
viene applicato se invece ritorno sul campo data di una sottomaschera 
all'interno di una maschera il ritorno sul campo data non "scatena" l'evento 
gotfocus e quindi il filtro data non viene applicato
 
qualcuno sa spiegarmi questo comportamento apparentemente senza senso?
 
 

 La stranezza maggiore ï¿½ che se ritorno su un campo data chiudendo il 

Usa questo codice
 
Nella form (non chiudi la form CALENDARIO)
 
    NomeTmp = Me.Name
    NomeCtr = "CaricoDataDa"
 
    DoCmd.OpenForm "CALENDARIO",,,,,acDialog
 
    Forms!Calendario.Calendario.Value = Format(Now(), "dd/mm/yyyy")
 
    DoCmd.Close acForm, "CALENDARIO"
 
Oppure,
 
Nella Form (e chiudi la form CALENDARIO)
 
    NomeTmp = Me.Name
    NomeCtr = "CaricoDataDa"
 
    DoCmd.OpenForm "CALENDARIO",,,,,acDialog
 
Nella form CALENDARIO
 
Private Sub Calendario_DblClick()
On Error GoTo Err_desc
 
    Dim Valore As Date
 
    Valore = Me.Calendario.Value
 
    DoCmd.Close acForm, "CALENDARIO"
    DoCmd.OpenForm NomeTmp
 
    Forms(NomeTmp).Controls(NomeCtr) = Valore
 
Uscita:
    Exit Sub
 
Err_desc:
    MsgBox ErrDesc & Chr(13) & Err.Description & Chr(13) & Chr(13) & "(" & 
Screen.ActiveForm.Name
 & ")", vbCritical, ErrTitolo
    Resume Uscita
 
End Sub

End Sub
 
 
Ti ringrazio per l'aiuto ma mi sembra che il codice che mi indichi serva a 
passare il valore della data al controllo data della form chiamante, il mio 
problema non � quello il problema � che passo senza  nessun problema il 
valore del calendario a qualsiasi form e su attivato del campo data della 
form chiamante scateno un evento gotfocus che funziona perfettamente
 
l'unico caso in cui non funziona  e non capisco il motivo � se il campo su 
cui deve tornare dopo aver chiuso il calendario � una sottoform di una form 
in quel caso il gotfocus non funziona.
 

 in quel caso il gotfocus non funziona.
 
Probabilmente la catena della sintassi è il problema. Prima dai il fuoco alla subform, poi al controllo nella sub

alla subform, poi al controllo nella sub
 
questo � il codice su click del calendario aperto a popup come ripeto 
tornando su form senza sottomaschera il gotfocus funziona e il filtro data 
viene applicato mentre su ritorno in una sottoform di una form il gotfocus 
non vuole saperne di funzionare, ma!!!???
 
 
 
        Forms(Me.chiamante).Form(Me.nomesottoform).Controls(Me.oggetto) = 
Calendar6.Value
        Forms(Me.chiamante).Form.SetFocus
        Forms(Me.chiamante).Form(Me.nomesottoform).SetFocus
        Forms(Me.chiamante).Form(Me.nomesottoform).Controls(Me.ritorno).SetFocus
 
 

         Forms(Me.chiamante).Form(Me.nomesottoform).Controls(Me.ritorno).SetFocus
 
Ma il problema è scatenare l'evento GotFocus ? Perchè non lo richiami tu?

 Forms(Me.chiamante).Form(Me.nomesottoform).Controls(Me.ritorno).SetFocus
 
Ma il problema � scatenare l'evento GotFocus ? Perch� non lo richiami tu?
 
cio�? in che modo lo richiamo dalla maschera calendario prima di chiuderla?
al momento ho optato con l'aggiunta di un piccolo pulsante nella form 
chiamante con scritto applica filtro che appunto applica il filtro data 
quando chiudo calendario ma era simpatico che funzionasse in automatico 
visto che funziona quando il calendario � chiamato da form normali e non 
sottoform
 
misteri di access!!! o miei?