Turn off the AutoCorrect (Control property)
(See Code below )
Pieter
Public Sub TurnOffAutoComplete()
Dim Db As DAO.Database
Dim Cont As DAO.Container
Dim Doc As DAO.Document
Dim Frm As Access.Form
Dim Ctl As Access.Control
Dim CCb As Access.ComboBox
Set Db = Access.CurrentDb()
Set Cont = Db.Containers("Forms")
For Each Doc In Cont.Documents
Access.DoCmd.OpenForm Doc.Name, Access.AcFormView.acDesign,
WindowMode:=Access.AcWindowMode.acHidden
Set Frm = Access.Forms(Doc.Name)
For Each Ctl In Frm.Controls
Select Case Ctl.ControlType
Case Access.AcControlType.acComboBox:
Set CCb = Ctl
CCb.AllowAutoCorrect = False
Set CCb = Nothing
End Select
Next 'Ctl
Set Frm = Nothing
Access.DoCmd.Close Access.AcObjectType.acForm, Doc.Name,
Access.AcCloseSave.acSaveYes
Next 'Doc
Set Cont = Nothing
Set Db = Nothing
End Sub