MS Access VB error 424

[mpmason14]

i am trying to get the NotInList function working properly in MSAccess. my scenario is that i am trying to get it to add names to a combo list box if they aren't already in there. i gets to the point where the popup asks me if i want to add the user to the list. i click yes and i get "424 - object required". i have been looking on the internet for a few days now on how to resolve it, but no luck. hopefully someone here can help me. thanks in advance. [code below]

*PRININVEST is the name of the combolist box
*the rest of the code was copied from someone else, so it might just be something not matching, but then again the Object required is coming up...


Private Sub PRININVEST_NotInList(NewData As String, Response As Integer)
Const cProcedureName As String = "PRININVEST_NotInList"
On Error GoTo err_handler
Dim db As DAO.Database
Dim rst As ADODB.Recordset

If MsgBox("This name doesn't exist. Add?", vbYesNo + vbQuestion) = vbYes Then
Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset(proposal.PRININVEST)
rst.AddNew
rst!StateDesc = NewData
rst.Update
Response = acDataErrAdded
Else
Me.Undo
Response = acDataErrContinue
End If

Exit_Sub:
On Error Resume Next
rst.Close
Set rst = Nothing
Set db = Nothing
Exit Sub
err_handler:
Select Case Err
Case Else
'Call LogError(err.Number, err.Description, cModuleName & cProcedureName)
MsgBox Err.Number & " - " & Err.Description
End Select
Resume Exit_Sub
End Sub

[PEB]

i am trying to get the NotInList function working properly in MSAccess. my scenario is that i am trying to get it to add names to a combo list box if they aren't already in there. i gets to the point where the popup asks me if i want to add the user to the list. i click yes and i get "424 - object required". i have been looking on the internet for a few days now on how to resolve it, but no luck. hopefully someone here can help me. thanks in advance. [code below]

*PRININVEST is the name of the combolist box
*the rest of the code was copied from someone else, so it might just be something not matching, but then again the Object required is coming up...


Private Sub PRININVEST_NotInList(NewData As String, Response As Integer)
Const cProcedureName As String = "PRININVEST_NotInList"
On Error GoTo err_handler
Dim db As DAO.Database
Dim rst As ADODB.Recordset

If MsgBox("This name doesn't exist. Add?", vbYesNo + vbQuestion) = vbYes Then
Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset(proposal.PRININVEST)
rst.AddNew
rst!StateDesc = NewData
rst.Update
Response = acDataErrAdded
Else
Me.Undo
Response = acDataErrContinue
End If

Exit_Sub:
On Error Resume Next
rst.Close
Set rst = Nothing
Set db = Nothing
Exit Sub
err_handler:
Select Case Err
Case Else
'Call LogError(err.Number, err.Description, cModuleName & cProcedureName)
MsgBox Err.Number & " - " & Err.Description
End Select
Resume Exit_Sub
End Sub

Hi,

try:

Private Sub PRININVEST_NotInList(NewData As String, Response As Integer)
Const cProcedureName As String = "PRININVEST_NotInList"
On Error GoTo err_handler
Dim db As Database
Dim rst As Recordset
 
  If MsgBox("This name doesn't exist. Add?", vbYesNo + vbQuestion) = vbYes Then
    Set db = Currentdb()
    Set rst = db.OpenRecordset("proposal.PRININVEST")
    rst.AddNew
      rst("StateDesc") = NewData
    rst.Update
    Response = acDataErrAdded
  Else
    Me.Undo
    Response = acDataErrContinue
  End If
 
Exit_Sub:
  On Error Resume Next
  rst.Close
  Set rst = Nothing
  Set db = Nothing
  Exit Sub
err_handler:
  Select Case Err
  Case Else
    'Call LogError(err.Number, err.Description, cModuleName & cProcedureName)
    MsgBox Err.Number & " - " & Err.Description
  End Select
  Resume Exit_Sub
End Sub
 

Hope that proposal.PRININVEST is the name of a table!

:)