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

I have a text box conveniently named txtbxAddressLine1. Using the On Change event in Access, the event calls this function and should go through the procedure of updating the record in the table with the 'edited' data. However the value in EditedAddressLine1 never seems to change! It always has the value of which was originally in the table.

Any suggestions as to why this is happening?

有帮助吗?

解决方案

In a Change event handler for a control, read its Text not Value property to get the new data:

EditedAddressLine1 = Me.txtbxAddressLine1.Text
许可以下: CC-BY-SA归因
不隶属于 StackOverflow
scroll top