Issue with data change confirmation using Me.Dirty function

[Joe Y]

I applied below code to remind user and confirm any data change of record in all forms before they leave the record or close the form.

Private Sub Form_BeforeUpdate(Cancel As Integer)
 
    Dim CnfrmSave As Integer
 
          If (Me.Dirty = True) Then
 
      CnfrmSave = MsgBox("Record Changed." & vbCr & vbCr & "Proceed with Changes?", vbYesNo + vbExclamation, "Caution!")
              If CnfrmSave = vbNo Then
              Me.Undo
 
              Else
              MsgBox "Record changes will be saved", vbOKOnly + vbInformation, "Changes will be Saved"
 
              End If
           End If
 
End Sub
 
 

It works fine except in the datasheet form. When I opened a datasheet form to edit data, when moving to different row, the following error message appeared.

“The expression BeforeUpdate you entered as the event property setting produced the following error: A problem while Your System was communicating with the OLE server or ActiveX Control.”

What does this error message mean and how to correct the problem?

Another thing I need help with this is that some forms contain SubForm. When I change data in SubForm and leave the MainForm record, the codes did not apply (nothing happened). How to make this design to cover the data changes in SubForm?

Thanks.

[jimatqsi]

Making the subform dirty does not make the main form dirty. You have to place the same code on the subform.

You should ask only one question in each post.

I'm sorry, I cannot offer any help about the datasheet mode except the obvious, have you put any Active/X controls in your form? Maybe they don't work well with datasheet mode. I never use that mode.

Jim

[Joe Y]

I just created the same datasheet from scratch again and the problem seems resolved. Something may have happened during my first time creation of this datasheet form.

I will submit a new post regarding the SubForm question.

Thanks.