Pregunta

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?

¿Fue útil?

Solución

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

EditedAddressLine1 = Me.txtbxAddressLine1.Text
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow
scroll top