Problem with "Not In List" event

[Guest]

The table source for the combo box doesn't have anything in it and I have
code in the "not in list" event to add to the list. When I try to add
something to the list I get the following error:

A problem occurred while Microsoft Access was communication with the OLE
server or ActiveX Control.

I have another subform with a variation of the code and it works fine.

Cheers

 

[Guest]

Sounds weird.

1- have you compiled your code recently? you should.
2- have you compacted the db recently? you should.
3- Post your code so we can take a look at it in detail.

 

[Guest]

Dim strSql As String
Dim I As Integer
Dim Msg As String

'Exit this sub if the combo box is cleared
If NewData = "" Then Exit Sub

Msg = "'" & NewData & "' is not currently in the product list." & vbCr &
vbCr
Msg = Msg & "Do you want to add it?"

I = MsgBox(Msg, vbQuestion + vbYesNo, "Unknown Product type...")
If I = vbYes Then
strSql = "Insert Into lkup_JS ([JSat]) " & _
"values ('" & NewData & "');"
CurrentDb.Execute strSql, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If

 

[Guest]

I have compacted and compiled but I still get the same problem