Cuestión : ¿Si, entonces, mensaje de alerta…?

Hola, hago un campo (llamar cuenta) en una forma que se calcule automáticamente. Cuando el usuario chasca el botón cercano que necesito si declaración comprobar el valor en el campo y si es mayor o menos de 0, necesito una caja de mensaje que pregunta al usuario si quieren salir. Si chascan sí, después la forma se cierra. Si chascan ningún serán vueltos a la forma para realizar cambios. Por supuesto, si el valor del campo es 0 quisiera que la forma le cerrara sin ninguna caja de mensaje appearing.

Thank para su help. class= del

Respuesta : ¿Si, entonces, mensaje de alerta…?

¿Qué acontecimiento de “OnClick”?

Usted especificó que esto debe suceder…:
 “Cuando el usuario chasca el botón cercano” (“el botón cercano”,… botón cercano del estándar de las ventanas del *the* del significado, el poco “X” en el derecho superior de una ventana)
… no…
 “Cuando el usuario chasca el botón cercano del *my*.

Nuestros códigos están tan en el acontecimiento cercano y el acontecimiento de la descarga receptivo.

Si usted quiere el código en “su” botón cercano, después utilizar el código como esto:

btmClose_Click secundario privado ()
bytAnswer dévil como secuencia

    Si Instock.Value <> 0 entonces
        ¿bytAnswer = MsgBox (“salida ahora? ¿”, vbYesNo, “salida? ")
            Si bytAnswer = vbYes después
                'No hacer nada
            bytAnswer = vbNo de ElseIf después
                Me.Instock.SetFocus
                Salir el submarino
            Terminar si
   
        'No hacer nada
    Terminar si
   
    DoCmd.Close
Terminar el submarino

Recordar aquí que usted nos tiene no dicho que cuál está presente el otro código (eventualmente) en su botón cercano ya, así que este código puede necesitar ser pellizcado.

Finalmente, recordar eso cuando usted cifra su propio botón cercano que usted tiene estar seguro que usted está cubriendo todas las contingencias para los varios estados que los datos se pueden dejar adentro.

Estoy seguro que 2toria puede fijar código de trabajo similar.

; -)

JeffCoachman