宏条件是：DLookUp("[代码]","[表名]","[代码] = Form.[代码] ") Is Not Null
        宏操作选择“msgbox”，在下面的提示栏内填写提示文字，比如“你输入的代码已经存在，请重新输入！”
        这样设计已经可以了，但还有一个小问题，那就是当系统出现提示时，光标已经离开“代码”字段。又让“重新输入”，光标却离开，这不合事理，所以，还要在宏里加第二个操作“CancelEvent”。这样设计后，既有提示，光标又还在原位，方便重新输入。