Buonasera. Sono alle prese con la necessità di dover popolare una combobox " al volo" utilizzando un evento keyup da casella di testo.
il codice che ho creato è il seguente:
Private Sub txtente_rich_Keyup(KeyCode As Integer, Shift As Integer)
Dim str1 As String
Dim str As String
Dim lg As Integer
lg = Len(str1)
If KeyCode = 8 Then
If lg = 0 Then GoTo 100
If lg = 1 Then str1 = "": GoTo 100
str1 = Left$(str1, lg - 1): GoTo 100
End If
100
str1 = str1 & Chr$(KeyCode)
str = "SELECT Denominazione_Ente FROM Ente_Richiedente WHERE Denominazione_Ente = " & str1
Form_SM_ente.cboente_rich.RowSource = str
Form_SM_ente.Requery
End Sub
Appena digito la prima lettere mi compare la finestra in cui si chiede di immettere il valore parametro.
Dopo che immetto uno dei valori contenuto nella tabella esegue il popolamento come dovrebbe.
Dove potrebbe essere l'inghippo?
Grazie.