Automation Error

[JC]

I am getting a "Compile Error: Automation Error" with this function
and I can't figure out why. Can anyone help? The error hits as soon
as the function is recognized.

Function FileAppend(InTa ble As String, OutTable As String)
On Error GoTo Err_FileAppend

Dim MyDB As Database
Dim MyInTable As Recordset
Dim MyOutTable As Recordset
Dim MatchKey As String
Dim MatchOut As String
Dim X As Boolean
'Open table.
Set MyDB = DBEngine.Worksp aces(0).Databas es(0)
Set MyInTable = MyDB.OpenRecord set(InTable, DB_OPEN_DYNASET )
Set MyOutTable = MyDB.OpenRecord set(OutTable, DB_OPEN_DYNASET )
If MyOutTable.EOF Then
Else
MyOutTable.Move First
End If
X = False

'Read first record.
MyInTable.MoveF irst
DoCmd.Hourglass True

'Check to see if record exists in outtable
Do Until MyInTable.EOF

MatchKey = "[symbol] = '" & MyInTable("symb ol") & "' and "
MatchKey = MatchKey & "[Policy] = '" & MyInTable("Poli cy") & "'
and "
MatchKey = MatchKey & "[Mod] = '" & MyInTable("Mod" ) & "'"
If Not MyOutTable.EOF Then 'Makes sure that the OutTable has
records in it
MyOutTable.Find First MatchKey
If MyOutTable.NoMa tch = False Then
MyOutTable.Edit
MyOutTable("Imp ortCounter") = MyOutTable("Imp ortCounter")
+ 1
MyOutTable.Upda te
X = True
End If

End If

If X = True Then 'Skip this record
X = False
Else 'Append this record
MyOutTable.AddN ew
MyOutTable("Agn tCde") = MyInTable("Agnt Cde")
MyOutTable("Sym ") = MyInTable("Sym" )
MyOutTable("Pol Num") = MyInTable("PolN um")
MyOutTable("Mod ") = MyInTable("Mod" )
MyOutTable("Due Dte") = MyInTable("DueD ate")
MyOutTable("Amt ") = MyInTable("Amt" )
MyOutTable("UWC de") = MyInTable("UWCd e")
MyOutTable("Acc tTrx") = MyInTable("Acct Trx")
MyOutTable("Pay Cde") = MyInTable("PayC de")
MyOutTable("Clo seDte") = MyInTable("Clos eDte")
MyOutTable.Upda te
MyOutTable.Move First
End If
MyInTable.MoveN ext
Loop
DoCmd.Hourglass False

MyInTable.Close
MyOutTable.Clos e
Set MyInTable = Nothing
Set MyOutTable = Nothing

Exit_FileAppend :
Exit Function
Err_FileAppend:
MsgBox err.Number & " - " & err.Description , , "Function -
FileAppend"
Resume Exit_FileAppend

End Function

[Terry Kreft]

Do you have a reference to DAO?

If you don't create one if you do try declaring the variables at the top as

Dim MyDB As DAO.Database
Dim MyInTable As DAO.Recordset
Dim MyOutTable As DAO.Recordset
Terry
"JC" <cl****@excite. com> wrote in message
news:36******** *************** ***@posting.goo gle.com...

I am getting a "Compile Error: Automation Error" with this function
and I can't figure out why. Can anyone help? The error hits as soon
as the function is recognized.

Function FileAppend(InTa ble As String, OutTable As String)
On Error GoTo Err_FileAppend

Dim MyDB As Database
Dim MyInTable As Recordset
Dim MyOutTable As Recordset
Dim MatchKey As String
Dim MatchOut As String
Dim X As Boolean
'Open table.
Set MyDB = DBEngine.Worksp aces(0).Databas es(0)
Set MyInTable = MyDB.OpenRecord set(InTable, DB_OPEN_DYNASET )
Set MyOutTable = MyDB.OpenRecord set(OutTable, DB_OPEN_DYNASET )
If MyOutTable.EOF Then
Else
MyOutTable.Move First
End If
X = False

'Read first record.
MyInTable.MoveF irst
DoCmd.Hourglass True

'Check to see if record exists in outtable
Do Until MyInTable.EOF

MatchKey = "[symbol] = '" & MyInTable("symb ol") & "' and "
MatchKey = MatchKey & "[Policy] = '" & MyInTable("Poli cy") & "'
and "
MatchKey = MatchKey & "[Mod] = '" & MyInTable("Mod" ) & "'"
If Not MyOutTable.EOF Then 'Makes sure that the OutTable has
records in it
MyOutTable.Find First MatchKey
If MyOutTable.NoMa tch = False Then
MyOutTable.Edit
MyOutTable("Imp ortCounter") = MyOutTable("Imp ortCounter")
+ 1
MyOutTable.Upda te
X = True
End If

End If

If X = True Then 'Skip this record
X = False
Else 'Append this record
MyOutTable.AddN ew
MyOutTable("Agn tCde") = MyInTable("Agnt Cde")
MyOutTable("Sym ") = MyInTable("Sym" )
MyOutTable("Pol Num") = MyInTable("PolN um")
MyOutTable("Mod ") = MyInTable("Mod" )
MyOutTable("Due Dte") = MyInTable("DueD ate")
MyOutTable("Amt ") = MyInTable("Amt" )
MyOutTable("UWC de") = MyInTable("UWCd e")
MyOutTable("Acc tTrx") = MyInTable("Acct Trx")
MyOutTable("Pay Cde") = MyInTable("PayC de")
MyOutTable("Clo seDte") = MyInTable("Clos eDte")
MyOutTable.Upda te
MyOutTable.Move First
End If
MyInTable.MoveN ext
Loop
DoCmd.Hourglass False

MyInTable.Close
MyOutTable.Clos e
Set MyInTable = Nothing
Set MyOutTable = Nothing

Exit_FileAppend :
Exit Function
Err_FileAppend:
MsgBox err.Number & " - " & err.Description , , "Function -
FileAppend"
Resume Exit_FileAppend

End Function