点击下载此附件

 

 

在绑定窗口中新增数据，有着许多不便，且容易出现误操作。可以考虑使用非绑定窗口来实现记录的追加。

如果使用DAO 新增记录，可以使用AddNew方法和Update方法，其具体语法格式：

[DAO记录集].AddNew

[DAO记录集]![字段名]=Me![对应的文本框]

……

[DAO记录集].Update

 

 效果图：

 

源码：

'使用DAO在非绑定窗体中为数据表新增记录
Private Sub cmd_新增_Click()
    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset
    '得到“生活健康用品”数据表中的数据集
    Set Db = CurrentDb()
    Set Rs = Db.OpenRecordset("生活健康用品", dbOpenDynaset)
    '新增记录
    Rs.AddNew
        Rs!ID = Me!txt_ID
        Rs!商品名称 = Me!txt_商品名称
        Rs!条形码 = Me!txt_条形码
        Rs!供应价 = Me!txt_供应价
        Rs!零售价 = Me!txt_零售价
        Rs!月销量 = Me!txt_月销量
    '判断是否输入主键，主键为空时弹出提示对话框
    If IsNull(txt_ID) Then
        MsgBox "没输入主键"
    Else
        '更新记录
        Rs.Update
        '更新记录后弹出已经新增记录提示
        MsgBox "已新增"
    End If
End Sub