に @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ If Source.FieldGetText("Frag") ="1" Then Exit Sub End If Msgbox("こんな方法で閉じようとするなんて玄人ですね。"&Chr(13)&"さては開発者ですね?"&Chr(13)&"ボタンで操作してくださいね。") Continue = False @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ を記入し、閉じるボタンなどに @SetField("Frag";"1"); を追加すれば、出来ます。 改良して使って見てください。