Question

ACCESS窗体默认值问题

在窗体中输入身份证号后，想自动改变性别和出生日期默认值，我这样输入后，只改变性别，第三行若执行(去掉‘号），就两个都没反映，请高手指点
Private Sub 身份证号_AfterUpdate()
性别.Value = IIf(IIf(Len([身份证号]) = 15, Mid([身份证号], 15, 1), Mid([身份证号], 17, 1)) Mod 2 = 1, "男", "女")
'出生年月.Value = IIf(IsNull(出生年月.Value), ctod(Mid([身份证号], 7, 4) & "-" & Mid([身份证号], 11, 2) & "-" & Mid([身份证号], 13, 2)), 出生年月.Value)
End Sub
我原来用
'If 出生年月.Value Is Null Then
' 出生年月.Value = IIf(Len([身份证号]) = 15, DateSerial(Val("19" & Mid([身份证号], 7, 2)), Val(Mid([身份证号], 9, 2)), Val(Mid([身份证号], 11, 2))), DateSerial(Val(Mid([身份证号], 7, 4)), Val(Mid([身份证号], 11, 2)), Val(Mid([身份证号], 13, 2))))
'End If
出生年月出没反映（去掉’号）

Answer 1

我以前用过下述的方法，你可以试一下1.在该数据表中增加一个[序号]的字段，数据类型选为自动编号
2.输入数据的窗体上增加[序号]字段(可以选择不显示)，增加一个新增记录按钮，按钮的单击事件里输入以下代码：DoCmd.GoToRecord , , acNewRec
[字段1] = DLookup("[字段1]", "数据表", "[序号] =" & DMax("[序号]", "数据表"))
.
.
.将[字段1]和"数据表"改成你自己的，并用这个样式加入其他的字段 设置完毕后点击新增记录按钮就可以将最后一次录入值自动填入新增的记录中。