Wrox Programmer Forums
Access VBA Discuss using VBA for Access programming.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Access VBA section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
Old November 1st, 2007, 11:45 AM
Registered User
Join Date: Nov 2007
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default VBA Object required - RTE 424

I'm receiving a 424 RTE in the simple program that I've created in Access 2K3 SP2. The program is in a manufacturing environment. Here's an overview of the process: an operator will scan a 2D barcode, that input triggers an engraver to engrave the input onto metal. Then a verification camera takes a picture and verifies the mark to the original data.

I get the error code on the first line when trying to communicate with port COM1. The error line is in bold and if I comment our that line, it just gives the error on the next line and so on....
Here's the code:

Option Compare Database

Private Sub txtScanned_Input_AfterUpdate()
Dim strInput As String
strInput = txtScanned_Input

  Me.lblMessage.Caption = "WAITING ON ENGRAVER"   'Changes Display Message

        "VALUES (txtScanned_Input, DATE());"   'Stores barcode data and scan date

MSComm0.CommPort = 1  'Sets communication port to serial port Com1 - Dot Peen
        MSComm0.Settings = "19200,N,8,1,N"     'Declares Dot-Peen settings
        MSComm0.PortOpen = True    'Opens port for read/write capability
        MSComm0.Output = strInput       'Initiates marking sequence of 2D barcode
        MSComm0.PortOpen = False

    lblMessage.Caption = "CHECKING MARK"


        MSComm1.CommPort = 2    'Sets communication port to serial com2 - Congnex imager
        MSComm1.PortOpen = True     'Opens port for read capability
        MSComm1.Input = strInput    'Passes scanned data to imager

    If MSComm1.Input = MSComm0.Output Then
    ]Me.lblMessage.Caption = "GOOD MARK!"
       MsgBox "Bad Mark! Please contact your manager", vbOKCancel, "Marking Error"
    End If


End Sub

Public Sub cmdWAIT()

Dim PauseTime, Start, Finish, TotalTime

    PauseTime = 2   ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.

End Sub

Public Sub cmdRESET()

strInput = ""
strDP_Result = ""

End Sub

End Sub

Any help, tips, links, or info would be greatly appreciated.
Thanks in advance!
Old November 2nd, 2007, 03:36 PM
Friend of Wrox
Join Date: Nov 2004
Posts: 1,621
Thanks: 1
Thanked 3 Times in 3 Posts

My screen is set to 1280 × 1024, and I need to use 2 screen widths to view this question.
Why would you make things that hard for those you want to help you?
Please edit this question, and make it a little narrower.

Even if you cannot change the code part, at least you could insert carriage returns into
the non-code parts.
Old November 2nd, 2007, 04:06 PM
Registered User
Join Date: Nov 2007
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts

I'm very sorry. I hadn't realized that the formatting was so badly disturbed when pasting directly from VB.

Anywho, I have it figured out. I didn't have the control on the form. I didn't know it was required to use the ActiveX controls on the form when calling the MSComm methods.

Thanks for the heads up about the format and for the potential help!

Similar Threads
Thread Thread Starter Forum Replies Last Post
Run Time Error 424 "Object Required" paul31berks Access VBA 8 October 31st, 2010 04:49 PM
Runtime Error 424: Object needed tobian Excel VBA 4 February 20th, 2006 10:41 AM
object required alitoday Classic ASP Components 1 December 28th, 2004 01:17 AM
object required shoakat Classic ASP Databases 7 November 23rd, 2004 07:38 PM

Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.