在非绑定窗体追加记录
时 间:2017-07-04 08:19:47
作 者:杨雪 ID:42182 城市:南京
摘 要:追加数据技巧:AddNew方法、Update方法
正 文:
在绑定窗口中新增数据,有着许多不便,且容易出现误操作。可以考虑使用非绑定窗口来实现记录的追加。
如果使用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
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)