Solved

After update subform, then update the main form field

Posted on 2009-05-11
1
834 Views
Last Modified: 2013-12-20
Hi Guys

I need to update the main form any time that i do a change on the main form or in the subform, so what i did is in the main form after update event i put this code

Private Sub Form_AfterUpdate()
Dim strSQL As String
DoCmd.SetWarnings False
strSQL = "UPDATE TreatmentDetails SET TreatmentDetails.LastUpdateDateTime = Now(), TreatmentDetails.LastUpdatedUserID = DLookup('[user_id]', 'qryUserSecurity', '[user_name] = LAS_GetUserName()') WHERE (TreatmentDetails.TreatmentDetailsID = [Forms]![Switchboard]![subfrmWindow].[Form]![TreatmentDetails].[Form].[TreatmentDetailsID]);"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

Now in the subform i did the same, i add the same code, because it is running an update query, it is working ; when i change the subform and then i click anywhere in the form it does not give me any message, but if i click in a list box, that is listing all the records it gives me this message
"The data has been change. Another user edited the record and saved the changes before you attempted to save your changes.
Re-edit the record"

in the list box i have this On click event
Private Sub lstTreatment_Click()
'Move to the record selected in the control
DoCmd.SetWarnings False
Me.RecordsetClone.FindFirst "[TreatmentDetailsID] = " & Me![lstTreatment]
Me.Bookmark = Me.RecordsetClone.Bookmark
'******* Code End *********
DoCmd.SetWarnings True
End Sub

what can i do to avoid this message


best regards
0
Comment
Question by:titorober23
1 Comment
 
LVL 13

Accepted Solution

by:
lucas911 earned 250 total points
Comment Utility
Requery the list box first somewhere after you updated it at the end of your docmd.setwarnings true

lstTreatment.requery
0

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
Familiarize people with the process of retrieving data from SQL Server using an Access pass-thru query. Microsoft Access is a very powerful client/server development tool. One of the ways that you can retrieve data from a SQL Server is by using a pa…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now