Ce qui événement de « OnClick » ?
Vous avez spécifié que ceci devrait se produire… :
« Quand l'utilisateur clique le bouton étroit » (« le bouton étroit »,… bouton étroit de norme de fenêtres de *the* de signification, le peu « X » dans le côté droit supérieur d'une fenêtre)
… pas…
« Quand l'utilisateur clique le bouton étroit de *my*.
Ainsi nos codes sont sur l'événement étroit et l'événement de déchargement réceptivement.
Si vous voulez le code sur « votre » bouton étroit, alors employer le code comme ceci :
btmClose_Click secondaire privé ()
Faible bytAnswer comme corde
S'Instock.Value <> 0 puis
bytAnswer = MsgBox (« sortie maintenant ? », vbYesNo, « sortie ? ")
Si bytAnswer = puis vbYes
'Ne faire rien
bytAnswer = puis vbNo d'ElseIf
Me.Instock.SetFocus
Sortir le sous-marin
Finir si
Autrement
'Ne faire rien
Finir si
DoCmd.Close
Finir le sous-marin
Se rappeler ici que vous nous avez non dit que ce que l'autre code (le cas échéant) est présent sur votre bouton étroit déjà, ainsi ce code peut devoir être tordu.
En conclusion, se rappeler cela quand vous codez votre propre bouton étroit que vous avez pour être sûr que vous couvrez toutes les éventualités pour les divers déclarer que les données peuvent être laissées dedans.
Je suis sûr que 2toria peut signaler le code fonctionnant semblable.
; -)
JeffCoachman
