Sacar datos diferentes de un listbox a textbox diferentes y hacer una búsqueda en otro listbox

En principio el error que llama la atención es que se esta utilizando la opción 'TEXT' en la creación de las SQLs y dado que esta propiedad solo esta disponible para el objeto que tiene el foco (el objeto activo), en 'Comando12_click' darán error.

Se tendría que modificar  (en 'Comando12_click') Me.CC_Tramo.Text ===>>> Me.CC_Tramo e igualmente para Me.CC_Tramo2.

Personalmente verificaría con antelación que AMBOS objetos (CC_Tramo y CC_Tramo2) tienen seleccionado uno de sus items para evitar que el valor devuelto no sea un NULL.

Para solucionar los problemas mencionados y lograr la actualización automática de ambos listbox y los textbox asociados, necesita realizar algunos ajustes en tu código. A continuación, te detallo los cambios y explico cómo integrarlos:

Problemas identificados:

1. Actualización automática del segundo listbox (Lista1): No se actualiza automáticamente al seleccionar un elemento en el primer listbox (Lista0).
2. Llenado de VTroncal2 con otro registro: Requiere seleccionar y procesar datos de otro registro relacionado con la búsqueda.

Option Compare Database
' Evento para actualizar Lista0 según búsqueda en CC_Tramo
Private Sub CC_Tramo_AfterUpdate()
    On Error Resume Next
    Dim SQL As String
    SQL = "SELECT * FROM Tabla_PTRuta5Sur WHERE Tramo Like '*" & Me.CC_Tramo.Text & "*'"
    Me.Lista0.RowSource = SQL
    Me.CC_Tramo.SetFocus
    Me.CC_Tramo.SelStart = Len(Me.CC_Tramo.Text)
End Sub
' Evento para actualizar Lista1 según búsqueda en CC_Tramo2
Private Sub CC_Tramo2_AfterUpdate()
    On Error Resume Next
    Dim SQL As String
    SQL = "SELECT * FROM Tabla_PLRuta5Sur WHERE Troncal Like '*" & Me.CC_Tramo2.Text & "*'"
    Me.Lista1.RowSource = SQL
    Me.CC_Tramo2.SetFocus
    Me.CC_Tramo2.SelStart = Len(Me.CC_Tramo2.Text)
End Sub
' Evento para limpiar controles y resetear los listboxes
Private Sub Comando12_Click()
    Me.CC_Tramo = ""
    Me.CC_Tramo2 = ""
    Me.VTroncal = ""
    Me.VTroncal2 = ""
    On Error Resume Next
    Dim SQL As String
    SQL = "SELECT * FROM Tabla_PTRuta5Sur"
    Me.Lista0.RowSource = SQL
    Dim miOrigen As String
    miOrigen = "SELECT Troncal FROM Tabla_PLRuta5Sur ORDER BY Troncal"
    Me.Lista1.RowSource = miOrigen
End Sub
' Evento de carga del formulario para inicializar controles
Private Sub Form_Load()
    Me.CC_Tramo = ""
    Me.CC_Tramo2 = ""
    Me.VTroncal = ""
    Me.VTroncal2 = ""
    On Error Resume Next
    Dim SQL As String
    SQL = "SELECT * FROM Tabla_PTRuta5Sur"
    Me.Lista0.RowSource = SQL
    Dim miOrigen As String
    miOrigen = "SELECT Troncal FROM Tabla_PLRuta5Sur ORDER BY Troncal"
    Me.Lista1.RowSource = miOrigen
End Sub
' Evento al seleccionar un elemento en Lista0
Private Sub Lista0_Click()
    On Error Resume Next
    ' Llenar CC_Tramo2 con la columna 3 del registro seleccionado
    Me.CC_Tramo2 = Me.Lista0.Column(3)
    ' Llenar VTroncal con la columna 4 del registro seleccionado
    Me.VTroncal = Me.Lista0.Column(4)
    ' Actualizar automáticamente Lista1 y VTroncal2
    Dim SQL As String
    SQL = "SELECT * FROM Tabla_PLRuta5Sur WHERE Troncal Like '*" & Me.CC_Tramo2 & "*'"
    Me.Lista1.RowSource = SQL
    ' Llenar VTroncal2 con la columna 4 del primer registro en Lista1
    If Me.Lista1.ListCount > 0 Then
        Me.VTroncal2 = Me.Lista1.Column(4, 0) ' Primera fila, columna 4
    Else
        Me.VTroncal2 = "" ' Vaciar si no hay registros
    End If
End Sub

Explicación de los cambios:

1. Eventos CC_Tramo_AfterUpdate y CC_Tramo2_AfterUpdate:

   • Actualizan los listboxes Lista0 y Lista1 al realizar una búsqueda en sus respectivos campos.

2. Evento Lista0_Click:

   • Llenan los campos CC_Tramo2 y VTroncal automáticamente al seleccionar un registro en Lista0.
   • Ejecutan una consulta SQL para actualizar Lista1 con los datos relacionados.
   • Llenan el textbox VTroncal2 con el valor de la primera fila de Lista1.

3. Evento Form_Load:

   • Inicializa todos los controles y configura las consultas predeterminadas.

4. Botón Comando12:

   • Restablece todos los valores y listboxes.