¿Cómo forzar cierre de formulario con un solo clic?

[mikehove]

Hola Foreros. Les comento que al implementar una forma más dinámica en una aplicación de Acces, me encontré la sorpresa que necesito hacer 2 veces clic en el botón cerrar formulario (cuando antes lo hacía con uno).

Me parece que podría ser el bucle FOR, porque cuando elimino esas líneas donde este está (en el evento al cargar el formulario) todo funciona bárbaro.

Hay una variable global (no creo que sea el problema):

Código:

Dim idCliente As Integer

Evento cuando cargue el formulario:

Código:

    Dim registroSeleccionado As Integer
    Dim verIdCliente As Integer
    
    verIdCliente = 2
    
    If idCliente > 0 Then
        verIdCliente = idCliente
    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

El botón que cierra el formulario:

Código:

Private Sub Comando25_Click()
DoCmd.Close
End Sub