'attempt to append import to MSSQL table
Dim lngRecordsAffected As Long
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryClearOldTransactions", acViewNormal
'DoCmd.OpenQuery "qryAppendCCTransactions", acViewNormal
With CurrentDb.QueryDefs("qryAppendCCTransactions")
[COLOR="Red"].Execute[/COLOR]
lngRecordsAffected = .RecordsAffected
End With
DoCmd.SetWarnings True
MsgBox DCount("*", "tCCTransactions") & " records found " & vbCrLf & lngRecordsAffected & " records were imported"