access数据库通过窗体输入下一条记录，我希望默认值等于上一条记录该字段的数值加上一，应该怎么做呢？

Question

如题所述

Answer 1

用DLast域聚合函数跟控件的DefaultValue属性可以轻松做到

例：
Me.Text1.DefaultValue=CInt(DLast("字段1","表名")) + 1

Access2007以上非数字必需要加上引号

Me.Text1.DefaultValue="'" & CInt(DLast("字段1","表名")) + 1 & "'"

用DefaultValue属性时，你不想录入直接点关闭时，系统不会写入到数据表中，其它方法可能会。

完整过程：

Private Sub Add_Click()

Me.Text1.DefaultValue=CInt(DLast("字段1","表名")) + 1

Me.Text2.DefaultValue = "'" & IIf(IsNull(rs!Linkman), "", rs!Linkman) & "'"

//......

DoCmd.GoToRecord , , acNewRec

End Sub

Answer 2

假设字段控件为文本框Txet1
Private Sub 添加新记录()
On Error GoTo Err_添加新记录
a = Txet1
DoCmd.GoToRecord , , acNewRec
Txet1 = a + 1
Exit Sub
Err_添加新记录:
MsgBox Err.Description
End Sub本回答被网友采纳