With the following code, I keep getting a dialog box that pops up with Write Conflict once I do a Select All as I click on its check box. The highlight ends up on CurrentDB.Execute sSQL and then I get the dialog box.
This record has been changed by another user since you started editing it. If you save the record, you will overwrite the changes the other user made.
The only problem there is no other user just me running VBA Code after an event - I understand that I have both the check box after update and click events running the same code but it doesn't seem to refresh the records correctly?
How may I adjust the following to not have that dialog box and process the transactions smoothly? Is there a better method than what I'm doing instead of using both the click event and after update to get the check boxes refresh properly on the form?
Private Sub chkShow_AfterUpdate()
Private Sub chkShow_Click()
Private Sub Adj_Form()
Dim sSQL As String
If chkShow.Value = True Then chkShow.Value = False Else chkShow.Value = True
If [Dept_Name] = "( Select All ) -------------------------" Then
sSQL = "UPDATE [shwPROJ_DPT] SET [Show] = " & chkShow.Value