Spell Check Access 2010

Private Sub Command960_Click()

With Me!Add_Comments

If Len(.Value) > 0 Then

DoCmd.SetWarnings False

.SetFocus

.SelStart = 1

.SelLength = Len(.Value)

DoCmd.RunCommand acCmdSpelling

.SelLength = 0

DoCmd.SetWarnings True

End If

End With

Me.Comments.Value = vbCrLf & fOSUserName() & " - " & Date & ": " & [Add_Comments] & vbCrLf & Me.Comments.Value

With CodeContextObject

.Add_Comments = Null

End With

End Sub