Question

如何在access数据库中的同一字段中，如何让下一行数据默认等于上一行的数据。当然也可以输入新的数据

access表格中同一字段中，下一行的数据和上一行的数据很多时候都是相同的，有时一行一行的输入太麻烦了，有没有快的方法，让access数据库中的同一字段中如何让下一行数据默认等于上一行的数据。当下一行和上一行数据不同时，也可以输入新的数据。可以在表格中设计，也可以在窗体中实现。具体见下图：

请看图中 班级字段 ，下一行的数据基本和上一行相同，我想实现是，当在同一行的 （ 姓名字段） 中输入数据后，如果该字段（班级字段内）还没有数据，请默认等于上一行数据。如果该字段内（班级字段内）里面有了数据，保持原有不变

Answer 1

需要使用窗体输入来设置动作代码，在姓名字段的更新后事件代码中：
if isnull(me.班级.value) then me.班级.value=dlookup("班级","表3","ID=" & me.ID.value - 1)

追问

非常感谢，该代码非常完美解决了我的问题。但现在有个新的问题：

    我想再增加两字段，和上面的要求相同，如图中的   数学老师  和  教导员    这两个字段  。 也就是在同一行的   姓名字段内   输入数据后，一共有三个字段【  班级、数学老师  和  教导员 】

如果这三个字段中原来还没有数据，请默认等于上一行数据。如果这些字段内里面有了数据，保持原有不变。非常感谢

追答

可以用同样的方法在姓名字段的更新后事件代码中设置：
private sub 姓名_afterupdate()
dim I as long
with me
I = .ID.value - 1
if isnull(.班级.value) then .班级.value=dlookup("班级","表3","ID=" & I )
if isnull(.数学老师.value) then .数学老师.value=dlookup("数学老师","表3","ID=" & I )
if isnull(.教导员.value) then .教导员.value=dlookup("教导员","表3","ID=" & I )
end with
end sub

追问

老师您好，因为问题的字数限制，我有两个问题好像请教。其中一个问题在图片上。望见谅！

 另外一个是【班级编码】，这个编码也是 随着【班级字段】内相邻班级名称的变化依次往上  加1  。 当然该编码也是在【姓名字段】内输入数据后自动生成。

追答

这个可以在代码里加上一句：
private sub 姓名_afterupdate()
dim I as long
with me
I = .ID.value - 1
if isnull(.班级.value) then .班级.value=dlookup("班级","表1","ID=" & I )
if isnull(.数学老师.value) then .数学老师.value=dlookup("数学老师","表1","ID=" & I )
if isnull(.教导员.value) then .教导员.value=dlookup("教导员","表1","ID=" & I )
if .班级.value=dlookup("班级","表1","ID=" & I ) then
.考试时间.value = dlookup("考试时间","表1","ID=" & I )
else
.考试时间.value = now()
end if
end with
end sub