Spell Check fails on unbound control

[Jim M]

To prevent data corruption I have replaced a memo field on my form with
an unbound control on my form that I populate with a function that
fills it from a memo field from my table. When the form is closed,
another function in a query writes it to the memo field. No trouble.

When I run spell check on the form it makes the corrections in the memo
field, but does not save them when I write from the form:

I put this in the AFTERUPDATE property of the [LocalNote] control(the
unbound control):

Private Sub LocalNote_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSaveRecord 'saves the rest of the record
DoCmd.OpenQuery "q_UpdateNote" 'update query to copy memo
DoCmd.SetWarnings True
End Sub

The "q_UpdateNote" query fills the memo form with a function

Public Function CopyMemo()
' this allows a memo field to be used in an update query...
CopyMemo = Forms![Session_No_Client]!LocalNote
End Function

It takes any change in the LocalNote field that I type in, but NONE of
the changes in after spell checking it. This is true whether I spell
check with
{F7} or
docmd.runcommand accmdspell

Thanks in advance for any help you can give me.

-Jim

[Jim M]

I found a solution. {F7} won't work at all. I created a button and put
the following code in it:

Private Sub Spelling_Click()
DoCmd.SetWarnings (False)
DoCmd.RunCommand acCmdSaveRecord 'just to be safe
DoCmd.RunCommand acCmdSpelling
DoCmd.OpenQuery "q_UpdateNote" 'copies unbound memo to table's
memo
DoCmd.SetWarnings (True)
End Sub

This seems to work fine. I'm not sure why running the query in the
AfterUpdate property of the field won't work. It looks like it doesn't
accept the changes made by the spell checker as 'Updates'. Quirky!

Jim