Aggiornamento casella di testo durante la digitazione

Question

In Access, ho un modulo in cui ci sono tre caselle di testo. Sto cercando di aggiornare una casella di testo chiamato tbxCombinedName con una combinazione di entrambi:

• testo tbxLastName (della persona Cognome)
• testo tbxFirstName (della persona Nome)

La mia domanda è: quale proprietà textbox devo usare, così come sto scrivendo il testo in tbxLastName, la casella di testo CombinedName è aggiornato immediatamente e successivamente salvato nella tabella Contatti.

Su Microsoft's website, ho trovato che i processi di passo quando si digitano in una casella di testo sono le seguenti:

KeyDown → → KeyPress PrimaDiInserire → Modifica → TastoSu

Ho provato con l'OnChange e Proprietà OnKeyDown, ma senza risultati. Quale proprietà, combinata con quale codice, consentirà all'azione di aggiornamento-come-tu-type di funzionare?

Questo è quello che ho scritto in precedenza, che non ha funzionato:

Private Sub tbxLName_change() 

Dim lastName As String 
Dim nameCode As String 

lastName = tbxLName.Value 
Debug.Print lastName 
nameCode = tbxNameCode.Value 
nameCode = lastName 
Debug.Print nameCode 

End Sub 

Grazie per tutto il vostro aiuto in anticipo.

Answer 1

Questo è uno dei pochi casi in cui è necessario fare riferimento alla proprietà .text.

In evento Change:

lastName = tbxLName.Text 

La struttura .text è disponibile solo quando un controllo è attivo e si riferisce al contenuto visibile del controllo.

Tuttavia, questo è un database e la regola generale è che non si memorizzano campi calcolati. Il nome completo può essere facilmente ottenuto da una query.

Answer 2

Solo un paio di note:

Si consiglia di andare con KeyPress perché fornisce la possibilità di modificare o negare la chiave l'utente spinto.

Nell'esempio che segue, solo lettere permessi e minuscole sono superiore incamiciato:

Private Sub tbxLName_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
     Const ASCII_LOWER_RANGE = 65 
     Const ASCII_UPPER_RANGE = 122 
     Const ASCII_LOWER_A = 97 
     Const ASCII_LOWER_Z = 122 
     Const UPPER_MODIFIER = -32 
     Const ASCII_CANCEL_CODE = 0 

     Select Case KeyAscii 
      Case ASCII_LOWER_RANGE To ASCII_UPPER_RANGE 
       If KeyAscii >= ASCII_LOWER_A And KeyAscii <= ASCII_LOWER_Z Then 
        KeyAscii = KeyAscii + UPPER_MODIFIER 
       End If 
      Case Else 
       KeyAscii = ASCII_CANCEL_CODE 'Cancel Key Press 
     End Select 
End Sub