利用追加查询来实现自增序号的示例

作者:竹笛

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

示例:

在http://www.accessoft.com/cgi-bin/dispbbs.asp?boardID=68&ID=1279