RecordSet Update

[billybaub]

Hi,

Im having a few problems with updating and deleting an item out of a recordset.
I have a list box in a main form that lists all the items in the table. When you click on one it comes up with a new form that displays all the details in text boxes for that record. You are able to edit the text and there is a edit and also a delete record button. When you click them though, the record doesnt update or delete the record that was being viewed but deletes the record previous.

Used the following code.

Private Sub cmdUpdate_Click()
    rs.Edit
      rs.Fields("FirstName") = TextBox(txtFirstName)
      rs.Fields("LastName") = TextBox(txtLastName)
      rs.Fields("Street") = TextBox(txtStreet)
      rs.Fields("Suburb") = TextBox(txtSuburb)
      rs.Fields("State") = TextBox(txtState)
      rs.Fields("Postcode") = TextBox(5)
      rs.Fields("PhoneNumber") = TextBox(txtPhoneNumber)
      rs.Fields("MobileNumber") = TextBox(txtMobileNumber)
      rs.Fields("Email") = TextBox(txtEmail)
      rs.Fields("Birthday") = TextBox(txtBirthday)
    rs.Update
 
    MsgBox ("Record Successfully Updated")
 
End Sub
 

Thanks
Billybaub

[debasisdas]

What is this TextBox in your code ?

[VBWheaties]

Hi,

Im having a few problems with updating and deleting an item out of a recordset.
I have a list box in a main form that lists all the items in the table. When you click on one it comes up with a new form that displays all the details in text boxes for that record. You are able to edit the text and there is a edit and also a delete record button. When you click them though, the record doesnt update or delete the record that was being viewed but deletes the record previous.

Used the following code.

Private Sub cmdUpdate_Click()
    rs.Edit
      rs.Fields("FirstName") = TextBox(txtFirstName)
      rs.Fields("LastName") = TextBox(txtLastName)
      rs.Fields("Street") = TextBox(txtStreet)
      rs.Fields("Suburb") = TextBox(txtSuburb)
      rs.Fields("State") = TextBox(txtState)
      rs.Fields("Postcode") = TextBox(5)
      rs.Fields("PhoneNumber") = TextBox(txtPhoneNumber)
      rs.Fields("MobileNumber") = TextBox(txtMobileNumber)
      rs.Fields("Email") = TextBox(txtEmail)
      rs.Fields("Birthday") = TextBox(txtBirthday)
    rs.Update
 
    MsgBox ("Record Successfully Updated")
 
End Sub
 

Thanks
Billybaub

Make sure the recordset is updateable. By Default, recordsets open as readonly. Programatically, it can be checked this way though you can easily see by viewing cursortype and locktype properties of your recordset object when you opened it:

If rs.supports(adUpdate) Then
   msgbox "recordset is updateable."
Else
   msgbox "recordset is NOT updateable."
End If
 

[werks]

Hi,

Private Sub cmdUpdate_Click()
    rs.Edit
      rs.Fields("FirstName") = TextBox(txtFirstName)
      rs.Fields("LastName") = TextBox(txtLastName)
      rs.Fields("Street") = TextBox(txtStreet)
      rs.Fields("Suburb") = TextBox(txtSuburb)
      rs.Fields("State") = TextBox(txtState)
      rs.Fields("Postcode") = TextBox(5)
      rs.Fields("PhoneNumber") = TextBox(txtPhoneNumber)
      rs.Fields("MobileNumber") = TextBox(txtMobileNumber)
      rs.Fields("Email") = TextBox(txtEmail)
      rs.Fields("Birthday") = TextBox(txtBirthday)
    rs.Update
 
    MsgBox ("Record Successfully Updated")
 
End Sub
 

try this

Private Sub cmdUpdate_Click()
    rs.Update 'try this code here
      rs.Fields("FirstName") = TextBox(txtFirstName)
      rs.Fields("LastName") = TextBox(txtLastName)
      ....
      ....
      .....
    rs.Update
 
    MsgBox ("Record Successfully Updated")
 
End Sub