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:
Ver originalOption 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