Ho creato una routine che mi controlla se un determinato valore è all'interno di un treeview. Per farlo ho usato la funzione Finditem che da come risultato un oggetto Listitem relativo al nodo giusto dell'albero. Uso questo codice per verificare se il valore inserito per la ricerca esiste e se si visualizzare una scheda dei particolari dell'oggetto. Va tutto bene se l'oggetto esiste, ma se non esiste non riesco ad intercettare l'evento...per lo meno il codice che ho scritto non lo intercetta...perchè?
Questo è il codice incriminato:
Dim ite As ListItem
Set ite = LIS_cab.FindItem(TXT_cab, 0, 1, 0)
LIS_cab.SetFocus
If IsNull(ite) Then
MsgBox "FILIALE NON PRESENTE", vbExclamation + vbOKOnly, "Attenzione!!"
Else
ite.EnsureVisible
ite.Selected = True
OPZ = "MODIFICA"
Me.Enabled = False
INS_E_VIS_CAB.Show
End If
Rispondi quotando
