31/05/2024 - @Alex ha scritto:
La risposta che ti ho esposto, a mio avviso assolve a quanto tenti di fare… ma ora ti faccio una domanda, dal momento che per capirla e metterla in pratica serve uan sufficiente conoscenza del VBA…
Che basi di programmazione hai…? Se non sei pratico, sarà impossibile farla NON ESISTE una cosa NATIVA che fa tutto da sola…. serve scrivere codice e non così banale se non si hanno conscenze.
A te… la risposta.
Purtroppo sono alle prime armi..
Per adesso ho buttato giù due righe al volo che tutto sommato funzionano. Mi piacerebbe un parere
In una maschera ho una casella di testo “Testo1” con posizionata subito sotto una listbox “Elenco1” con larghezza uguale alla casella di testo e con opzione “visibile” su “no”
Questo il codice:
Private Sub Testo1_Change()
Me.Elenco1.RowSource = "SELECT nome_macchina FROM Macchine WHERE nome_macchina LIKE '" & Me.Testo1.Text & "*'"
If Me.Elenco1.ListCount <> 0 Then 'controllo che ci sia almeno un riferimento
Me.Elenco1.Enabled = True
Me.Elenco1.Visible = True
Me.Elenco1.Height = 285 * Me.Elenco1.ListCount
If Me.Elenco1.Height > 2850 Then 'imposto un’altezza massima della listbox che visualizzi 10 righe
Me.Elenco1.Height = 2850
End If
End If
End Sub
Private Sub Elenco1_AfterUpdate()
Me.Testo1 = Me.Elenco1
Me.Elenco1.Enabled = False
Me.Elenco1.Visible = False
End Sub