再次请教 窗体问题

1、 .在“人员添加”中，如何录入

答：不明白是什么意思。

2、在“新增人员查询”中，只要在2009年以后录入过某人。。。。。。。。。。。。

答：在身份证更新后事件，或者身份证失去焦点事件后写入如下代码：

If (Not IsNull(DLookup("[员工编号]", "tbl员工", "[身份证号] ='" & Me![身份证号] & "'"))) Then
        If MsgBox("你输入的身份证号【 " & Me.身份证号 & " 】已存在！", vbExclamation + vbOKOnly, "警告") = vbOK Then
            身份证号.SetFocus
            身份证号 = Null
            性别 = Null
            出生日期 = Null
        End If
    End If

验证身份证号是否重复，如果有重复弹出提示，红色部分会在提示框中显示你刚才输入的“身份证号”

3、如果某人的“到期时间”快到了，在7天之前通知

答：在合同期限的更新或失去焦点事件后写入：

Me.[终止日期] = DateAdd("y", [合同期限], [入职日期]) '终止日期=入职日期+合同期限

Me.[提醒日期] = CDate([终止日期]) - 7'（这个7可以随便改，8、9、10、15）都行

该代码的内容含义是在输入“入职日期”、“合同期限”两个字段后，自动填写“提醒日期”和“终止日期”

以上只需将蓝色的字段名改成你的字段名，放在你的响应事件中即可执行。

以上代码我也是现学现卖，希望能对你有所帮助，祝好运。