Runtime error 2465

[racefan91]

I have a movie database in which I have the following code when entering the movie stars for a movie. If the actor doesn't exist in the table this code is supposed to open a form to add a name. When it tries to open the form I always get a Runtime error 2465. Any help fixing this would be greatly appreciated.

Private Sub StarsID_NotInList(NewData As String, Response As Integer)
Dim ans As Integer
Response = acDataErrContinue
ans = MsgBox("Do you want to add this Star?", vbYesNo, " A D D N E W S T A R ")
Select Case ans
Case vbNo
Case vbYes
DoCmd.OpenForm ("frmStars"), , , , acFormAdd
Forms!frmStars.txtStarName = NewData
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close acForm, "frmStars"
Response = acDataErrAdded
Case Else
End Select
End Sub

[orange]

Adjusted/formatted code to show indenting (orange)

Private Sub StarsID_NotInList(NewData As String, Response As Integer)
    Dim ans As Integer
    Response = acDataErrContinue
    ans = MsgBox("Do you want to add this Star?", vbYesNo, " A D D N E W S T A R ")
    Select Case ans
        Case vbNo
        Case vbYes
            DoCmd.OpenForm ("frmStars"), , , , acFormAdd
            Forms!frmStars.txtStarName = NewData
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.Close acForm, "frmStars"
            Response = acDataErrAdded
        Case Else
    End Select
End Sub

?accesserror(2465)
Microsoft Access can't find the field '|1' referred to in your expression.@You may have misspelled the field name, or the field may have been renamed or deleted.@@1@1@11730@1

Can you show us the actual calling code (with values) that fails?

[davegri]

You don't need the form at all. Adjust the red to adhere to your DB defs.

Private Sub StarsID_NotInList(NewData As String, Response As Integer)
    Dim sSQL As String
    If MsgBox("""" & NewData & """ is not defined. " & vbCr & vbCr _
        & "Do you want to add it now?", vbQuestion + vbYesNo, "Invalid Selection") = vbYes Then
            sSQL = "INSERT INTO tblStars (StarName) Values (" & "'" & NewData & "'" & ")"
            CurrentDb.Execute sSQL, dbFailOnError
            Response = acDataErrAdded
    Else
            MsgBox "Please select an item from the list.", _
                vbExclamation + vbOKOnly, "Invalid Entry"
            Response = acDataErrContinue
    End If

[racefan91]

Awesome that works! Much thanks