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

　　代码:

　　Private Sub cmdAdd_Click()

　　'新增

　　Dim i As Long

　　i = Me.labNum.Tag

　　With frmChild.Form

　　.AllowAdditions = True

　　.AllowEdits = True

　　End With

　　DoCmd.SetWarnings False

　　DoCmd.RunSQL "INSERT INTO tblWords ( WordID ) SELECT '" & i & "' AS Num;"

　　DoCmd.SetWarnings True

　　Me.frmChild.Requery

　　Me.labNum.Tag = i + 1

　　End Sub

　　Private Sub cmdEdit_Click()

　　'修改

　　With frmChild.Form

　　.AllowEdits = True

　　End With

　　End Sub

　　Private Sub cmdClose_Click()

　　DoCmd.Close

　　End Sub

　　Private Sub Form_Load()

　　'词汇库的记录数量

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

　　End Sub

视频学习

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。