526互联

ACCESS 快速构建修改数据的窗体

发布时间 2024-01-13 09:24:53作者: 一曲轻扬

有个客户表:

 现在需要创建一个可以修改客户数据的窗体,我们一般的做法是:

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