¿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

[mortiprogramador]

Saludo

Pues parece que el asunto es por la recarga del formulario
al hacer el OpenForm, hay otro modo de efectuar esa operación?

[mikehove]

Probé de esta forma y tampoco tengo buen resultado:

Código:

DoCmd.Close acForm, "CLIENTES"

[mikehove]

Iniciado por mortiprogramador

Saludo

Pues parece que el asunto es por la recarga del formulario
al hacer el OpenForm, hay otro modo de efectuar esa operación?

Buenas mortiprogramador. La verdad que no entiendo el por qué no me deja cerrar el formulario con un solo clic como antes.
Gracias a vos puede funcionar esta implementación:

http://www.forosdelweb.com/f21/confl...2/#post4827023

Pero si no se puede cerrar con un solo clic: lo seguiré usando con 2 jeje

[mortiprogramador]

Hola mikehove,
pues probando aquí el archivo original sin las modificaciones
de la variable global ni nada me toca dar clic dos veces
en el botón cerrar formulario, más raro aún porque a vos
si te funciona y aquí no siendo que originalmente debería
cerrar a la primera, pero veo algo, ese código que pusiste
del cerrar formulario antes no estaba, o sí??

Aquí en el código original no lo veo, tal vez antes estaba como una macro?

[mikehove]

Gracias por escribirme mortiprogramador. Tenés razón: el archivo que subí original es con doble clic.

Este es el enlace con un clic:
http://ge.tt/2QmAWLp2

Adapté el código innovado pero en la parte de FOR lo bloquié con los signos de comentarios, para que no se produzca el efecto doble clic...
La idea que se innovó está incluida en en el grupo bloqueado de código: es para marcar, en este caso, el foco en el idCliente=2 en el cuadro de lista y en la parte derecha que aparezca los cuadros de texto con los datos relacionados a ese IdCliente.

Si te animas por favor... si se puede hacer algo para solucionar el clic extra...

Aclaración:

Sí, antes tenía para el botón cerrar un Macro pero se lo saqué y lo dejé en VBA.

[mikehove]

Buenas. Todavía no encuentro la forma de solucionar como dice el título: ¿Cómo forzar cierre de formulario con un solo clic?

[mikehove]

Encontré el problema! Era el evento al cargar el formulario y no al activar registro.