The closest I've ot is by moving the me.updatedby into the beforeupdate and having a boolean that doesn't do the update if set to false so I have for 2 subs
Private Sub cboStartTaxCategory_Click()
Dim rs As DAO.Recordset
updateme = True
If Not IsNull(Me.cboStartTaxCategory) Then
'Save before move. Took out if me.dirty etc
If ValidateForm Then 'think this saves it
'Search in the clone set.
updateme = False
Set rs = Me.RecordsetClone
rs.FindFirst "[ID] = " & Me.cboStartTaxCategory.Column(0) & ""
If rs.NoMatch Then
MsgBox "Not found: filtered?"
Else
'Display the found record in the form.
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
Else
MsgBox "Cannot jump to record until form passes validation.", vbInformation, "Required!"
End If
End If
updateme = True
End Sub
and
If updateme Then
If ValidateForm = True Then
Me.txtUpdatedBy = "me"
Me.txtUpdatedOn = Now()
Else
Cancel = True
End If
End If
This gives me the right error messages and doesn't fall over, however it doesn't update me.updatedby or me.updatedon!