Private Sub CasellaCombinata1_Click()

' Se la modifica della casella combinata è uno dei valori elencati
If Not IsNull(CasellaCombinata1) And Not CasellaCombinata1 = "" Then
  Me.RecordSource = "SELECT tuaTabella.Id As T_Id, tuaTabella.Descrizione As T_Desc FROM tuaTabella WHERE (((tuaTabella.Id)=[Forms]![tuaMaschera].[CasellaCombinata1]));"
  Testo1.ControlSource = "[T_Id]"
  Testo2.ControlSource = "[T_Desc]"
Else
' Altrimenti, se il valore è vuoto o nullo
  Me.RecordSource = ""
  Testo1.ControlSource = ""
  Testo2.ControlSource = ""
End If
' Poi eseguo un Requery per ricalcolare le dipendenze della maschera e dei suoi controlli
Me.Requery

End Sub