Pergunta : Se, então, mensagem de advertência…?

Olá!, eu tenho um campo (chamado contagem) em um formulário que seja calculado automaticamente. Quando o usuário estala a tecla que próxima eu preciso se indicação de verific o valor no campo e se maior ou menos de 0, eu preciso uma caixa de mensagem que pergunto ao usuário se querem retirar. Se estalam sim, a seguir o formulário fecha-se. Se estalam o nenhum estarão retornados ao formulário para fazer mudanças. Naturalmente, se o valor do campo é 0 eu gostaria do formulário de fechá-lo sem nenhuma caixa de mensagem appearing.

Thank para seu help. class= do

Resposta : Se, então, mensagem de advertência…?

Que evento de “OnClick”?

Você especific que este deve acontecer…:
 “Quando o usuário estalar a tecla próxima” (“a tecla próxima”,… tecla próxima do padrão das janelas do *the* do significado, a pouco “X” no lado direito superior de uma janela)
… não…
 “Quando o usuário estalar a tecla próxima do *my*.

Assim nossos códigos estão no evento próximo e no evento do descarregamento receptiva.

Se você quer o código em “sua” tecla próxima, a seguir usar o código como isto:

btmClose_Click secundário confidencial ()
bytAnswer não ofuscante como a corda

    Se Instock.Value <> 0 então
        bytAnswer = MsgBox (“saída agora? ”, vbYesNo, “saída? ")
            Se bytAnswer = vbYes então
                'Não fazer nada
            bytAnswer = vbNo de ElseIf então
                Me.Instock.SetFocus
                Retirar o submarino
            Terminar se
    Mais
        'Não fazer nada
    Terminar se
   
    DoCmd.Close
Terminar o submarino

Recordar aqui que você nos tem não dito que o que o outro código (eventualmente) está atual em sua tecla próxima já, assim que este código pode precisar de tweaked.

Finalmente, recordar isso quando você codifica sua própria tecla que próxima você tem para ser certo que você está cobrindo todas as contingências para os vários estados que os dados podem ser deixados dentro.

Eu sou certo que 2toria pode afixar o código de trabalho similar.

; -)

JeffCoachman