有个客户表:
现在需要创建一个可以修改客户数据的窗体,我们一般的做法是:
1.选中数据表: 客户列表
2.在菜单中选择 "创建" --> "窗体".
3.调整一下格式,和添加一下按钮,就变成了这样,初始状态下,它会自动绑定字段值.此时如果用户对某个值做了修改,会直接修改数据表中的值,这不是我们想要的.我们需要在用户点击保存时,才会修改数据表中的记录.但是如果把控件来源设置为空,修改窗体在打开时,又需要你一个个的去赋值,比较麻烦
解决方案:我们不需要在界面上修改它的"控件来源" 属性,但是可以通过代码即能拿到值,又能断开与数据表的联系
Private Sub Form_Load() Dim val As Variant For Each temp In Me.Controls If TypeOf temp Is TextBox Or TypeOf temp Is CheckBox Then val = temp.Value temp.ControlSource = "" temp.Value = val End If Next End Sub Private Sub Form_Close() Me.Dirty = False End Sub
标签:End,Sub,temp,数据表,ACCESS,修改,构建,窗体 From: https://www.cnblogs.com/yoooos/p/17961963