界面/窗体/控件
利用追加查询来实现自增序号的示例
2004-06-06 21:49:45
发布:2004-6-6

作者:竹笛

简介: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

 

首页