Fatal编程技术网
  • string/
  • String 在其On Change事件处理程序中检索控件的新内容

String 在其On Change事件处理程序中检索控件的新内容

string vba ms-access

String 在其On Change事件处理程序中检索控件的新内容,string,vba,ms-access,recordset,String,Vba,Ms Access,Recordset,我有一个名为txtbxAddressLine1的文本框。使用Access中的On Change事件，事件调用此函数，并应使用“编辑”数据更新表中的记录。但是，EditedAddressLine1中的值似乎从未更改！它始终具有表中最初显示的值 关于发生这种情况的原因，有什么建议吗？在控件的更改事件处理程序中，读取其文本非值属性以获取新数据： Public Function EditUpdate() Dim rstEditAddress As DAO.Recordset Dim Svalue, Ed

我有一个名为
txtbxAddressLine1
的文本框。使用Access中的
On Change
事件，事件调用此函数，并应使用“编辑”数据更新表中的记录。但是，
EditedAddressLine1
中的值似乎从未更改！它始终具有表中最初显示的值

关于发生这种情况的原因，有什么建议吗？

在控件的
更改
事件处理程序中，读取其
文本
非
值
属性以获取新数据：

Public Function EditUpdate()
Dim rstEditAddress As DAO.Recordset
Dim Svalue, EditedAddressLine1 As Variant

Svalue = Me.lstBoxCompanyName.Value

EditAddressValue = "SELECT * FROM Companies WHERE CompanyID =  " & Svalue
Set rstEditAddress = CurrentDb.OpenRecordset(EditAddressValue)

EditedAddressLine1 = Me.txtbxAddressLine1.Value

With rstEditAddress
 .Edit
    .Fields("AddressLine1") = EditedAddressLine1
    .Fields("AddressLine2") = NewAddressLine2
    .Fields("AddressLine3") = NewAddressLine3
    .Fields("Town") = NewTown
 .Update
End With

End Function
使用…块在
之前执行
Debug.Print EditedAddressLine1
。查看
EditedAddressLine1
中存储的值是否是您希望覆盖的实际值谢谢！工作很愉快

EditedAddressLine1 = Me.txtbxAddressLine1.Text