代码:
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

示例:

在cgi-bin/dispbbs.asp?boardID=68&ID=1279