Determinare il campo attivo

Question

Ciao,

ho una maschera prodotti, una sottomascheracarico, la quale ha a sua volta una sottomascherascarico

La sttomaschera carico ha una casella combinata per la ricerca del record dicarico con il lotto da saricare.

Vorrei che dopo l'inserimento del valore nella casella combinata per la ricerca,  il campo attivo si spostasse sul controllo CAI della sottomascherascarico. Inoltre nel caso in cui il controllo CAI fosse già compilato (contiene codice copia il valore del record precedente) il campo attivo si spostasse sul controllo CDM sempre della masherascarico

Inserire questi automatismi rallenta le operazioni?

Grazie di cuore per tutto l'aiuto.

Answer 1

Ciao,

 mi mancava questo: [scarico].SetFocus, così funziona!!!!!

 Dim rs As Object

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[lotto] = '" & Me![CasellaCombinata63] & "'"

    Me.Bookmark = rs.Bookmark

    [scarico].SetFocus

   If Len(Me.[scarico].Form.CAI & "") > 0 Then

    Me.[scarico].Form.CDM.SetFocus

Else: Me.[scarico].Form.CAI.SetFocus

End If

Carissimi saluti

Answer 2

Forse dovevo dirti che CAI e CDM sono campi testo.

Il codice che ho inserito dopo aggiornamento della CasellaCombinata è questo:

Private Sub CasellaCombinata63_AfterUpdate()

       Dim rs As Object

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[lotto] = '" & Me![CasellaCombinata63] & "'"

    Me.Bookmark = rs.Bookmark

    If Len(Me.[scarico].Form.CAI & "") > 0 Then

Me.[scarico].Form.CDM.SetFocus

Else: Me.[scarico].Form.CAI.SetFocus

End If

End Sub

Dopo l'inserimento del valore nella CasellaCombinata trova il record , ma il campo attivo resta la casella stessa.

Ciao Cinzia ti ringrazio a presto

Answer 3

Sull'evento Dopo Aggiornamento della Casella Combinata della sottomaschera Carico metterai:

if Len(Me.[Scarico].Form.CAI & "") > 0 then

         Me.[Scarico].Form.CDM.SetFocus

else   Me.[Scarico].Form.CAI.SetFocus

---

Cinzia

---

Sito RIO

Il mio Blog