posizionamento set focus

Question

ciao.

ho una maschera non associata chiamata "pannello".All'interno di essa ho una "maschera1" e una sottomaschera1 con all'interno

una sottomaschera2 ,nella quale inserisco i records (all'interno della sottomaschera2 ho un IDprodotto).

sulla maschera pannello ho un tasto con il seguente codice:

me.requery

me![sottomaschera1]![sottomaschera2].setfocus

me![sottomaschera1]![sottomaschera2].Form![IDprodotto].SetFocus

DoCmd.GoToRecord , , acNext

ho provato seguendo diverse Faq su vari forum ma non riesco in nessun modo a riportare il focus

nella sottomaschera2.

dopo l'inserimento dei records nella sottomaschera2 quando aggiorno tutto il focus mi rimane nella maschera1 e devo

riposizionarmi con il cursore nuovamente.

ho provato anche con go to....ma niente....

esiste un altro sistema per riuscire a ritornare nella sottomaschera2?...grazie anticipatamente.

Answer 1

ciao CristianP2,

non capisco il senso del codice che mostri nell'evento current….in che senso aggiornata la sottomaschera1?

La proprietà parent così utilizzata ha senso per valutare se una sottomaschera ha effettivamente una maschera main ed in tal modo verifichi che effetivamente sia una sottomaschera, ed è una cosa intelligente, e  poi esegui il requery della sottomaschera1.

non mi è chiaro il perché….se commenti questo evento dopo il requery della main form non è che si aggiorna tutto contestualmente ugualmente?

Ciao, Sandro.

Answer 2

ciao Sandro.

si..... questo di seguito è il codice che ho in "maschera1" che mi permette di tenere aggiornata la "sottomaschera1"

Private Sub Form_Current()

    Dim ParentDocName As String

    On Error Resume Next

    ParentDocName = Me.Parent.Name

    If Err <> 0 Then

        GoTo Form_Current_Exit

    Else

        On Error GoTo Form_Current_Err

        Me.Parent![sottomaschera1].Requery

    End If

Form_Current_Exit:

    Exit Sub

Form_Current_Err:

    MsgBox Error$

    Resume Form_Current_Exit

end sub

Answer 3

ciao CristianP2,

come mai da me non succede? hai altri eventi che magari si interpongono…?

Prova a tirare su una mini demo che vediamo...

Ciao, Sandro.

Answer 4

ciao Sandro

grazie....funziona perfettamente fino a quando non inserisco quel me.requery il quale dovrebbe aggiornarmi in tempo

reale la "maschera1" e spostarmi poi il focus nella "sottomaschera2"

il focus funziona perfettamente mentre quando aggiungo me.refresh o requery la maschera si aggiorna ma mi lascia inesorabilmente nella "maschera1"....e da li mi devo riposizionare con il cursore sulla "sottomaschera2"...

Answer 5

ciao CristianP2,

vediamo se stavolta capisco meglio …. ;-)

With Me.sottomaschera1

    .SetFocus

    .Form!sottomaschera2.SetFocus

    .Form!sottomaschera2!IDprodotto.SetFocus

End With

ovviamente….se i nomi sottomaschera1 e 2 non sono quelli corretti del tuo scenario sostituiscili con quelli propri...so che non serve dirlo, ma non si sa mai...

Facci sapere.

Ciao, Sandro.