利用追加查询来实现自增序号的示例
代码:
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
0条评论