John,
Thanks for this good advice. I have applied this and will update other code that I have as well. However, I did discover this also. The tables in the BE were in mdb format and so I updated them to accdb and then relinked the tables and that seems to have fixed the problem as the old code was working on the tests that I tried. Does that sound reasonable as a cause of the problem?
Doyce
--- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@...> wrote:
>
> Doyce-
>
> Change this:
>
> Set rs = Me.Recordset
> rs.FindFirst "UnitID='" & strComboVar & "'"
> If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark
> Set rs = Nothing
>
> To:
>
> Me.Recordset.FindFirst "UnitID='" & strComboVar & "'"
>
> No need for an intermediary recordset. The Bookmark you're using may be
> pointing to the previously found record.
>
> John Viescas, Author
> Microsoft Access 2010 Inside Out
> Microsoft Access 2007 Inside Out
> Microsoft Access 2003 Inside Out
> Building Microsoft Access Applications
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
>
>
> -----Original Message-----
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of dnwinberry
> Sent: Wednesday, May 15, 2013 8:54 AM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: [MS_AccessPros] Bound form Updating wrong record
>
> Hello friends,
>
> I have a form bound to an updateable query. I filter the form to open
> without any records showing by using the following code in the form load
> event:
> Me.filter = "1=2"
> Me.filteron = true.
> I select records with a combo box that has the following code in its after
> update event:
> Private Sub Combo28_AfterUpdate()
> ' Find the record that matches the control.
> Dim rs As DAO.Recordset
>
> Dim strComboVar As String
>
> strComboVar = Me.Combo28
>
> If Len(Combo28 & vbNullString) <> 0 Then
> Me.Filter = ""
> Me.FilterOn = False
> Set rs = Me.Recordset
> rs.FindFirst "UnitID='" & strComboVar & "'"
> If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark
> Set rs = Nothing
> End If
>
> End Sub
>
> If I display a record and update one of the bound controls, then save the
> changes with a save button that has this code:
> If me.dirty then me.dirty = false
> there is no problem. The problem occurs when I display a second record by
> selecting it from the combo box. It always displays the record correctly
> however if I change something and click the save button, the changes are
> saved to the field of the previous record in the set, not the one showing on
> screen. For example: I open the form, display record 10. make a change click
> save. Everthing is fine. Then I select record 5 from the combo box. Make a
> change, click save, the data is changed in record 4, not record five. If I
> close the form and re-open it and it always works correctly on the first
> record displayed but not on subsequent records. This database is split and I
> have managed to duplicate this problem in a couple of other databases. I
> tried to create a sample to upload but with tables in the database instead
> of linked tables, everything updates correctly. I'll try to create a
> stripped down version with linked tables and see if I can duplicate the
> problem. I have also observed that this occurs everytime I select a 2nd or
> third record even if I haven't changed anything on the first one. I need
> help!
>
> Doyce
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (3) |
Tidak ada komentar:
Posting Komentar