利用追加查询来实现自增序号的示例

代码:

Private Sub cmdAdd_Click()

'添加'

暗淡我一样长

i = Me.labNum.Tag

和frmChild一起。形式

。AllowAdditions = True

。AllowEdits = True

以…结尾

DoCmd。SetWarnings False

DoCmd。run SQL " INSERT INTO TBL words(WordID)SELECT ' " & I & " ' AS Num；"

DoCmd。SetWarnings True

Me.frmChild.Requery

Me.labNum.Tag = i + 1

末端接头

私有Sub cmdEdit_Click()

修改

和frmChild一起。形式

。AllowEdits = True

以…结尾

末端接头

私有Sub cmdClose_Click()

DoCmd。关闭

末端接头

私有子窗体_Load()

词汇表中的记录数

Me.labNum.Tag = DCount("* "，" tblWords") + 1

End Sub