作者:竹笛
简介:1.自增序号的程序代码 2.对子窗体的允许新增、修改在代码中进行控制
代码:
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