作者:竹笛

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

(责任编辑：admin)

• ·Access窗体居中显示技巧
• ·Access中Tab键的使用说明【技巧】
• ·Access粘贴对象到Tab选卡上的技巧
• ·Access在窗体上显示当前记录和总记录数
• ·Access隐藏组合框的小箭头
• ·Access窗体属性表
• ·【技巧】Access选项组边框变为圆角边框
• ·Access函数me.sfmsub.form 提示子窗体
• ·Access中使用缩放对话框显示文本框文字
• ·access技巧-中文显示星期几的简单方法
• ·Access控件是否可见,可编辑,锁定的技巧
• ·根据查找窗体设定的条件筛选主窗体的数
• ·父子窗体的语法介绍
• ·access实现组合框联动详细教程
• ·Web Service在Access中的应用技巧
• ·Access窗体最大化，最小化等操作