Conflicto de código con el selector activo del Cuadro de Lista - ACCES

[mortiprogramador]

Hola mikehove

Lo hiciste excelente según las primeras indicaciones
que te comenté.

Sin embargo, cuando te lo volví a explicar se me paso
decirte que mejor dejaras lo que ya tenías, porque
por ejemplo podría pasar que borras el cliente predeterminado
por algún motivo, y cómo estan las modificaciones recientes
te daría error al no encontrarlo, por eso sería mejor
tener el ciclo que vos inicialmente usas

Adicional, manejar la variable que venías manejando
y hacer uso de la nueva solo para asignarla

Es decir, algo así:

Código vb:

Option Compare Database
Option Explicit
 
Dim idClient As Integer
 
Private Sub Form_Current()
 
    Dim registroSeleccionado As Integer
    Dim verIdCliente As Integer
    
    verIdCliente = 2
    
    If idCliente > 0 Then
        verIdCliente = idClient
    End If
    
    cmd_ListaClientes.SetFocus
    
    For registroSeleccionado = 0 To cmd_ListaClientes.ListCount
        If cmd_ListaClientes.Column(0, registroSeleccionado) = verIdCliente Then
            cmd_ListaClientes.Selected(registroSeleccionado) = True
            Exit For
        End If
    Next registroSeleccionado
 
End Sub
 
Private Sub cmd_ListaClientes_Click()
 
    Dim stDocName As String
    Dim stLinkCriteria As String
    
     stDocName = "CLIENTES"
     idClient = Me.cmd_ListaClientes.Column(0)
     stLinkCriteria = "[Id_Cliente]=" & idClient
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
End Sub