在表格中处理。 载荷Mode参数和距离参数:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    If UnloadMode = vbFormControlMenu Then Cancel = True

End Sub

For more info on the Query Unload activity, see MS VDNB6 Language Reference oreck out article 。