在一个窗体上加一个按钮，单击它打开另一个窗体。如果你拟打开的窗体基于某表，而这个表可能不存在，亦可能换名，你想在打开之时让系统作个判断，则需要在那个按钮的“单击”事件里写入以下代码－－
If DLookup("[ID]", "[MSysObjects]", "[Type]=1 and [Name]='目录'") Then
   DoCmd.OpenForm "窗体名", acNormal, "", "", , acNormal
Else
   msgbox "要打开这个窗体，系统内必须有《目录》表，而现在没有或格式不正确，请检查！"
End If
        这样设计后，系统会更加人性化，避免出现让你莫名其妙的“错误”。
        但需要说明的是：这个检测只对本库表，不对链接表。如果是链接表，请将上述代码中的“[Type]=1”改为“[Type]=6”即可。