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

[mikehove]

Buenas mortiprogramador.
Gracias otra vez por explicármelo.

Pude hacer esto:

Código:

Option Compare Database
Option Explicit

Public IdClientePredeterminado As Integer 'Declaración de la variable global

'PARA MOSTRAR AL CARGAR EL FORMULARIO
Private Sub Form_Current() 'Al cargar el formulario por registro
  Dim registroSeleccionado As Integer 'Declaración de la variable
  
  IdClientePredeterminado = 2 'Ejemplo: ver id_Cliente "2"
  
  cmd_listaClientes.SetFocus
  
  If IdClientePredeterminado > 0 Then
     If cmd_listaClientes.Column(0, registroSeleccionado) = IdClientePredeterminado Then
        cmd_listaClientes.Selected(registroSeleccionado) = True
     End If
  End If
  
'Next registroSeleccionado
End Sub

'PARA MOSTRAR LISTA DE CLIENTES EN EL CUADRO DE LISTA
Private Sub cmd_listaClientes_Click() 'Cuando se haga click en cada cliente (registro)
  Dim registroSeleccionado As Integer 'Declaración de la variable
  
  IdClientePredeterminado = Me.cmd_listaClientes.Column(0)

  Dim stDocName As String             'Declaración de variable "stDocName" propia por defecto.
  Dim stLinkCriteria As String        'Declararión de variable "stLinkCriteria" propia por defecto.
  stDocName = "CLIENTES"              'Iniciación del la variable "stName" guardando allí el nombre del formulario
  stLinkCriteria = "[Id_Cliente]=" & IdClientePredeterminado 'Inicialización de [la variable "stLinkCriteria" guardando allí "Id_Cliente" del formulario

  DoCmd.OpenForm stDocName, , , stLinkCriteria  'Abrir registros del formulario

End Sub

Resulta que todo sigue funcionando como antes, lo normal, pero no elije predeterminadamente el idCliente, en este caso, el 2 (a esta variable le puse de nombre "IdClientePredeterminado" en vez de "idCliente").

Intenté poner según mi entendimiento tus pasos.
Es probable que haya hecho algo mal.

Disculpá, que te pida ayuda para ver en qué me pude haber equivocado.