OK, then, just set off Name Autocorrect for the users:
Sub CheckACSettings()
Const conText = 0
On Error GoTo CheckACSettingsErr
' Constant represents Text setting of Default
' Field Type option.
Dim strMsg As String
' Determine current settings
varTrackSetting = Application.GetOption(strTrackAC)
'Debug.Print varTrackSetting
strMsg = "Turn off Name Autocorrect?"
If varTrackSetting <> conText Then
' Prompt user to change setting if it's not False.
If MsgBox(strMsg, vbYesNo) = vbYes Then
' Change setting to Text.
Application.SetOption strTrackAC, False
End If
End If
Exit Sub
CheckACSettingsErr:
MsgBox Err.Description
End Sub
' Call this when the user exits the db
Sub RestoreACSettings()
On Error GoTo RestoreACSettingsErr
' Debug.Print varTrackSetting
Application.SetOption strTrackAC, varTrackSetting
Exit Sub
RestoreACSettingsErr:
MsgBox Err.Description
End Sub