Selezione testo valori casella combinata.

di eddy1973 il
20 risposte

20 Risposte - Pagina 2

  • Super Famoso
    Iscritto da
    apr, 2012
    Messaggi
    7589
    Non ho seguito i dettagli della discussione, ma continui a scrivere SelLenght invece di SelLength.
  • Utente Attivo
    Iscritto da
    ago, 2019
    Messaggi
    282
    Soltanto un pò di dislessia. Tanto l'editor VBA di access se ne sarebbe comunque accorto.
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951

    eddy1973 ha scritto:

    Soltanto un pò di dislessia. Tanto l'editor VBA di access se ne sarebbe comunque accorto.
    Posta il codice dell'evento KeyPress.
  • Utente Attivo
    Iscritto da
    ago, 2019
    Messaggi
    282
    Scusate per l'assenza.
    Soltanto un'istruzione nell'evento keypress: 
    Private Sub cbo_tipo_com_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
    Suppongo che sia necessario sfruttare l'evento AfterUpdate per fare quello che mi occorre.
    Inizialmente avevo pensato a: 
    
Private Sub cbo_tipo_com_AfterUpdate()
Me.cbo_tipo_com.SetFocus
Me.cbo_tipo_com.SelStart = 0
Me.cbo_tipo_com.SelLength = Me.cbo_tipo_com.SelStart
End Sub
    Ma non funziona.
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Da quello che comprendo NON vuoi che venga digitato NULLA nella Combo..., se così fosse io la gestirei in altro modo... ovvero imposterei la proprietà "solo valori in elenco"=SI e poi gestirei l'ERRORE su Evento Error di Form, vai a leggere il Numero di Errore restituito e condizioni il Result a seconda di quello che vuoi.

    Quì trovi l'esempio:
    https://docs.microsoft.com/en-us/office/vba/api/access.form.error

    Nel caso non ti soddisfi:
    Private Sub cbo_tipo_com_AfterUpdate()
    Me.cbo_tipo_com.SelStart =Me.cbo_tipo_com.SelLength 
End Sub
    Alternativa che sfrutta il suggerimento dello spostamento del Focus, ma dandogli una funzionalità più coerente
    
Private Sub cbo_tipo_com_AfterUpdate()
    Me.AltroControllo.SetFocus
    Me.cbo_tipo_com.SetFocus
End Sub
  • Utente Attivo
    Iscritto da
    ago, 2019
    Messaggi
    282
    OK. Grazie.
    Ottimi suggerimenti.
Devi accedere o registrarti per scrivere nel forum
20 risposte