Problem with "Not In List" event

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

scubadiver - 10 May 2007 10:31 GMT

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

Reply to this Message

Daniel - 10 May 2007 13:21 GMT

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.

Signature

Hope this helps,

Daniel P

> 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
[quoted text clipped - 6 lines]
>
> Cheers

Reply to this Message

scubadiver - 10 May 2007 14:52 GMT

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

> Sounds weird.
>
[quoted text clipped - 12 lines]
> >
> > Cheers

Reply to this Message

scubadiver - 14 May 2007 10:12 GMT

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

> Sounds weird.
>
[quoted text clipped - 12 lines]
> >
> > Cheers

Reply to this Message