Selezione combobox con eveto Keypress

eddy1973

il 04 apr 2020, 13:04

2 risposte

eddy1973

Utente Attivo

Iscritto da: ago, 2019

Messaggi:: 282

Selezione combobox con eveto Keypress

04 apr 2020, 13:21

Buongiorno,
ho predisposto una combobox precedentemente popolata che vorrei utilizzare per popolare una ulteriore combobox utilizzando un evento keypress sfruttando la pressione del tasto enter.
Questo è il codice:

Private Sub cbo_tcamp_KeyPress(KeyAscii As Integer)
Dim i As Integer
If KeyAscii = vbKeyReturn Then
    For i = 0 To Me.cbo_tcamp.ListCount - 1
    	If Me.cbo_tcamp.Selected(i) = True Then
           Form_Main.cbotipo_camp = Me.cbo_tcamp.ItemData(i)
	End If
    Next
DoCmd.Close acForm, Me.Name
end if
End Sub

Quello che vorrei fare a questo punto è utilizzare i tasti up e down ( Chr(38) e Chr(40) ) per scorrere nell'ultima comobox popolata. Questo però non avviene. Forse manca il setfocus, non so.
Come posso fare per risolvere questo problema?
Grazie.

2 Risposte

O
OsvaldoLaviosa
Super Famoso
Iscritto da
apr, 2012
Messaggi:
7503
Re: Selezione combobox con eveto Keypress
04 apr 2020, 13:23
Credo che la soluzione più agevole/rapida per fare automatizzazioni con l'uso dei tasti da tastiera sia con le macro. Leggi qui
https://support.office.com/it-it/article/eseguire-una-macro-di-access-mediante-tasti-di-scelta-rapida-0d267570-d3da-46eb-9bfb-a3c81af676be

eddy1973

Utente Attivo

Iscritto da: ago, 2019

Messaggi:: 282

Re: Selezione combobox con eveto Keypress

04 apr 2020, 13:58

Ho risolto con il setfocus sulla form e sulla combobox:

Private Sub cbo_tcamp_KeyPress(KeyAscii As Integer)
Dim i As Integer
If KeyAscii = vbKeyReturn Then
    For i = 0 To Me.cbo_tcamp.ListCount - 1
    	If Me.cbo_tcamp.Selected(i) = True Then
           Form_Main.cbotipo_camp = Me.cbo_tcamp.ItemData(i)
           Form_Main.SetFocus
           Form_Main.cbotipo_camp.SetFocus	
        End If
   Next
DoCmd.Close acForm, Me.Name
end if
End Sub

In precedenza avevo applicato il setFocus soltanto sulla combo e non funzionava. Avevo omesso quello sulla Form.

Devi accedere o registrarti per scrivere nel forum

2 risposte