Microsoft
Software
Hardware
Network
Question : After update subform, then update the main form field
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.LastUpdat
eDateTime = Now(), TreatmentDetails.LastUpdat
edUserID = DLookup('[user_id]', 'qryUserSecurity', '[user_name] = LAS_GetUserName()') WHERE (TreatmentDetails.Treatmen
tDetailsID
= [Forms]![Switchboard]![sub
frmWindow]
.[Form]![T
reatmentDe
tails].[Fo
rm].[Treat
mentDetail
sID]);"
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.FindFirs
t "[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
Answer : After update subform, then update the main form field
Requery the list box first somewhere after you updated it at the end of your docmd.setwarnings true
lstTreatment.requery
Random Solutions
gpedit.msc not found in Windows 7 Home Premium
Want to Publish Exchange Server2007 through cisco 8141
weekday exclued weekend
Quicker way of adding computers/users to OU?
Removing Leading Zero's in an AlphaNumeric Field
Custom indexing on sub folders
wiaManager = new WiaClass(); // create COM instance of WIA manager
Exchange 2007 RSG Problem
Microsoft SQL Server Cluster - Currently only uses port 1815, can 1433 be enabled?
Blue Screen Windows 7 - Memory_Management 0x0000001a