Случай «OnClick»?
Вы определили что это должно случиться…:
«Когда потребитель щелкает близкой кнопкой» («близкая кнопка»,… кнопка стандарта окон *the* смысли близкая, немногая «x» в верхней правильной позиции окна)
… не…
«Когда потребитель щелкает кнопкой *my* близкой.
Так наши Кодие находятся на близком случае и случае разгружать восприимчиво.
Если вы хотите Кодего на «вашей» близкой кнопке, то используйте Кодего как это:
Приватное Sub btmClose_Click ()
Тусклое bytAnswer как шнур
Если Instock.Value <> 0 после этого
bytAnswer = MsgBox («выход теперь? », vbYesNo, «выход? ")
Если bytAnswer = vbYes после этого
'Не сделайте ничего
bytAnswer = vbNo ElseIf после этого
Me.Instock.SetFocus
Выходите подводная лодка
Закончитесь если
Еще
'Не сделайте ничего
Закончитесь если
DoCmd.Close
Закончите подводную лодку
Вспомните здесь что вы бедный человек сказали нам другое Кодий (если любой), то присутствует на вашей близкой кнопке уже, поэтому это Кодий может быть tweaked.
Окончательно, вспомните то когда вы кодируете вашу собственную близкую кнопку, котор вы имеете быть уверенн что вы покрываете все нештатные ситуации для различных положений что данные могут быть ы внутри.
Я уверен 2toria может вывесить подобное работая Кодего.
; -)
JeffCoachman