Sub Form_Open(Cancel As Integer)
DoCmd.Close acForm, "frmOrd", acSaveYes
End Sub
Sub Form_Timer()
On Error GoTo ErrorsoExit
 
NewData = Left(OpenArgs, InStr(OpenArgs, ";") - 2)
Store = Mid(OpenArgs, InStr(OpenArgs, ";") + 2)
CurrentDb().TableDefs("tblOrd").Fields("Ent").ValidationRule = CurrentDb().TableDefs("tblOrd").Fields("Ent").ValidationRule

 ...  
Loop
MsgBox (SysCmd(acSysCmdGetObjectState, acTable, "tblOrd"))
  CurrentDb().TableDefs("tblOrd").Fields("Ent").ValidationRule = CurrentDb().TableDefs("tblOrd").Fields("Ent").ValidationRule & """ & NewData & """
...

Sub cmbEnt_NotInList(NewData As String, Response As Integer)
 DoCmd.OpenForm "frmClo"
End Sub

 Sub Form_Open(Cancel As Integer) 

 Answer = MsgBox("That data inputter is not currently listed.  Would you like to add them now?", vbYesNo, "New data inputter?")
 
 If Answer = vbYes Then
 
  Dim daodb As DAO.Database
  Dim daotdfOrd As DAO.TableDef

Sub cmbEnt_NotInList(NewData As String, Response As Integer)

 Answer = MsgBox("add?", vbYesNo, "add?")
 
 If Answer = vbYes Then
 
  DoCmd.Close acForm, "frmOrd"
  CurrentDb().TableDefs("tblOrd").Fields("Ent").RowSource = CurrentDb().TableDefs("tblOrd").Fields("Ent").RowSource & ";" & NewData
 
 Else

Sub Form_Error(DataErr As Integer, Response As Integer)
 If DataErr = "2580" Then
  
  Response = acDataErrContinue
  DoCmd.OpenForm "FormFix"
  
 End If
 
End Sub

Sub Form_Load()
	Me.Visible

Sub Form_Load()
 On Error GoTo Notable

Notable:
Select Case Err
 Case 0
  Resume Next
 Case 2580   ' catch the specific error
  Call FormFIX
 Case Else   ' All other errors will trap
  Beep
  MsgBox Err.Description
  Exit Sub
 End Select
 Resume 0
End Sub