代码:

　　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

　　相关链接：

　　2008年下半年全国计算机等级考试报名信息汇总

　　更多信息请访问：计算机等级考试站　计算机等级考试在线题库　计算机等级考试论坛