Code:
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 Response = acDataErrContinue End If End Sub
Code:
Do While CurrentProject.AllForms("frmOrd").IsLoaded = True DoCmd.Close acForm, "frmOrd" Loop
and
Code:
DoCmd.Close acTable, "tblOrd"
I'm stumped. Any ideas?
Comment