I am experiencing the infamous Run Time Error '424' like many others have. I have surfed several forums, to no avail, and am now turning to you guys for some help!

This application was created in order to talk to Peachtree Quantum 2012 through their SDK, and get it to export sales invoice information.

The problem is caused when defining the date filter for the invoices that are to be exported. The error message says:
"Run-Time Error: '424':

Object Required"

The code is a bit lengthy, and I apologize, but I am going to include all of it so that any errors in the code can be caught, and bring about a resolution.


Code:
Option Compare Database

'
' Chad Jackson
' 7/26/2012
'
' PeachTree Automatic Export
'
'
' This program will pull specified invoice information from PeachTree
' and automatically import it into the Field Ticket Tracking Database.
'


Sub ExportSalesInvoices()

 

' The folder that the exported file should be saved to

Dim fileFolder

fileFolder = "C:\Users\Chad\Documents\Senior Project\Lubbock"

 

' The file name of the exported file

Dim fileName

fileName = "sales_invoices.csv"

 

' Peachtree/Sage 50 Accounting interface

Dim ptApp As PeachtreeAccounting.Application

' Peachtree/Sage 50 LoginSelector object

Dim ptLoginSelect As PeachtreeAccounting.loginSelector

' Peachtree/Sage 50 Login object

Dim ptLogin As PeachtreeAccounting.Login

' Create an application object we can use for exporting data from the Login object

Set ptLoginSelect = New PeachtreeAccounting.loginSelector

Set ptLogin = ptLoginSelect.GetCurrentLoginObject()

Set ptApp = ptLogin.GetApplication("Bergstein Enterprises Ltd", "4A8495XCP825X4L")

' Create the Exporter

Dim exporter

Set exporter = ptApp.CreateExporter(PeachwIEObj.peachwIEObjSalesJournal)

 

' Clear Export List

exporter.ClearExportFieldList

 

' Choose which fields to export

exporter.AddToExportFieldList (PeachwIEObjSalesJournalField.peachwIEObjSalesJournalField_Amount)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ApplyToInvoiceDistNum)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ApplyToInvoiceNumber)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ApplyToSalesOrder)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ARAccountGUID)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ARAccountId)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ARAmount)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_BeginningBalanceTransaction)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_COSTAccountGUID)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_CostOfSalesAccountId)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_CostOfSalesAmount)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_CustomerGUID)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_CustomerId)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_CustomerName)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_CustomerPurchaseOrder)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_Date)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_DateClearedInAccountRec)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_DateDue)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_Description)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_DiscountAmount)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_DiscountDate)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_DisplayedTerms)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_DropShip)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enApplyToProposal)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enCOSAcntDateClearedInBankRec)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enGL_DateClearedInBankRec)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enInvAcntDateClearedInBankRec)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enProgressBillingInvoice)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enRecur)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enRecurNum)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enRetainagePercent)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enSerialNumber)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enStockingQuantity)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enUMID)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enUMStockingUnitPrice)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enUMStockingUnits)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_enVoidedBy)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_GLAccountGUID)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_GLAccountId)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_INVAccountGUID)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_InventoryAccountId)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_InvoiceDistNum)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_InvoiceNote)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_InvoiceNote2)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_InvoiceNumber)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_IsCreditMemo)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ItemGUID)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ItemId)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_JobGUID)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_JobId)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_NotePrintsAfterLineItems)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_NumberOfDistributions)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_Quantity)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_Quote)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_QuoteGoodThruDate)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_QuoteNumber)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ReceiptNum)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ReturnAuthorization)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_SalesOrderDistNum)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_SalesOrderNumber)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_SalesRepId)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_SalesRepresentativeGUID)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_SalesTaxAuthority)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_SalesTaxCode)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ShipByDate)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ShipDate)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ShipToAddressLine1)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ShipToAddressLine2)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ShipToCity)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ShipToCountry)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ShipToName)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ShipToState)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ShipToZip)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_ShipVia)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_StatementNote)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_StatementNotePrintsBeforeInvoiceRef)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_TaxType)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_TransactionGUID)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_TransactionNumber)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_TransactionPeriod)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_UnitPrice)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_UPCSKU)

exporter.AddToExportFieldList (peachwIEObjSalesJournalField_Weight)

 

' Set the date range for transactions to export
' The next line causes the error:
Call exporter.SetDateFilterValue(Interop.PeachwServer.PeachwIEDateFilterOperation.peachwIEDateFilterOperationThisPeriod, DateTime.Now, DateTime.Now)

 

' Decide if we want a header row in the CSV file. (1 = Yes / 0 = No)

exporter.SetIncludeHeadersFlag (1)

' Set the full file path of the exported file

exporter.SetFilename (fileFolder + "\\" + fileName)

' Set the type of file to export (CSV or XML)

exporter.SetFileType (peachwIEFileTypeCSV)

' Finally, export the information to the file

exporter.Export

 

End Sub

If you have any questions, please feel free to ask.
Also, if I have violated forum etiquette, I apologize. This is my first post, and I am still getting acquainted to everything. If you would kindly let me know of any ways I can improve my future posts, I would greatly appreciate it.

I look forward to your help, and thank you in advance!

Chad Jackson