I can figure out the problem with my code. I keep getting a run time error '3192'
Private Sub UIC_tbl_ID_NotInList(NewData As String, Response As Integer)
DoCmd.RunSQL ("INSERT INTO UIC_tbl_ID (UIC_tbl_ID_) VALUES ('" & NewData & "')"
Response = acDataErrAdded
Me.UIC_tbl_ID.SetFocus
End Sub
Private Sub UIC_tbl_ID_NotInList(NewData As String, Response As Integer)
DoCmd.RunSQL ("INSERT INTO UIC_tbl_ID (UIC_tbl_ID_) VALUES ('" & NewData & "')"
Response = acDataErrAdded
Me.UIC_tbl_ID.SetFocus
End Sub