Estrarre il nome di un controllo conoscendone il TabIndex

Question

Buongiorno a tutti,

ho la necessità tramite codice di estrarre il nome del controllo di una maschera solamente conoscendone il suo TabIndex. Sarebbe possibile farlo e, se si, in che modo.

Grazie,

Maurix

Answer 1

Se hai fatto il semplice copia/incolla della funzione è normale che tu non veda nulla.

La funzione era solo a titolo di esempio e di conseguenza stampa il nome e il tabindex del controllo nella finestra immediata VBA.

Per usarla all'interno del codice che hai mostrato prova a utilizzare questa versione modificata

---

Private Function fControlFromTabIndex(ByVal iTabIndex As Integer) As String

    Dim ctrl As Control

    For Each ctrl In Me.Controls

        On Error Resume Next

        If ctrl.TabIndex = iTabIndex Then

            If Err.Number = 0 Then

                'Debug.Print ctrl.TabIndex; ctrl.Name;

                fControlFromTabIndex = ctrl.Name

                Exit For

            Else

                Err.Clear

            End If

        End If

    Next

End Function

---

David

Answer 2

Ciao David,

dopo aver inserito la funzione privata all'interno della form ho richiamato la funzione in questo modo:

Private Sub Ricambio_01_Click()

Dim CurrentTab As Integer

Dim CurrentControl As String

CurrentTab = Me.ActiveControl.TabIndex

CurrentTab = CurrentTab + 1

CurrentControl = fControlFromTabIndex(CurrentTab)

End Sub

All'avvio del codice (click sul controllo Ricambio_01) non viene visualizzato nessun testo, né del TabIndex né del Nome del controllo desiderato. Ho verificato e il valore numerico del CurrentTab è associato ad un controllo. Sbaglio in qualcosa? Magari nella modalità con cui richiamo la funzione?

Grazie,

Maurizio

Answer 3

L'errore nasce dal fatto che l'indice del controllo non è uguale all'indice di tabulazione: come puoi leggere in questo articolo Controls.Item Property (Access) index è "An expression that specifies the position of a member of the collection referred to by the expression argument........."

Una possibile soluzione: puoi creare una funzione (privata se la metti all'interno della stessa form) a cui passare il tabindex cercato. La funzione effettua un loop sui controlli della maschera per testarne la proprietà tabindex (per chi la possiede). Trovato il valore corrispondente a quello cercato ti restituisce il nome del controllo associato:

---

Private Function fControlFromTabIndex(ByVal iTabIndex As Integer) As String

    Dim ctrl As Control

    For Each ctrl In Me.Controls

        On Error Resume Next

        If ctrl.TabIndex = iTabIndex Then

            Debug.Print ctrl.TabIndex; ctrl.Name;

        End If

    Next

End Function

---

David

Answer 4

Ciao Mimmo,

ha una maschera continua ma in visualizzazione singola.

Il codice produce un output ma il nome del controllo che mi restituisce non corrisponde con l'Index inserito.

Inoltre, inserendo alcuni valori dell'Index, il codice mi restituisce il nome di etichette che però nella mia maschera non hanno un indice di tabulazione.

Quale pensi possa essere l'errore?

Grazie,

Maurix

Answer 5

Ciao,

hai provato con:  me.corpo.Controls.Item (tuoIndex).name

(ovviamente su maschera continua)

Ciao Mimmo