"Compile: Error: Automation Error"
Posted on 1998-07-28
Microsoft Access 97 Project near completion BUT:
Getting an error suddenly:
"Compile Error, Automation Error".
Throws us into debug mode and highlights this code:
"dbs As Database".
Full code for combo box "notinlist" action:
Private Sub Church_Aff_Combobox_NotInList(NewData As String, Response As Integer)
Dim intAnswer As Integer
Dim dbs As Database, rst As Recordset
intAnswer = MsgBox("Add " & NewData & " to the list of Church Affiliations?", vbQuestion + vbYesNo)
If intAnswer = vbYes Then
Rem Add church affiliation stored in Newdata argument to the Valid_Church_Affiliations table
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Valid_Church_Affiliations")
rst!Church_Affiliation = NewData
Response = acDataErrAdded 'Requery the combo box list
Very confused on this one as the error does not occur on an earlier more simpler version of the package we are developing which DOES contain the notinlist action subroutine above but not a lot of other stuff we added later. Any help appreciated. Thanks in advance.