I have check the spelling of my tables. Double checked the code and I still can't figure out the problem with my code. I'm still 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