VBA Object required

dbrother · #1 (**permalink**) November 1st, 2007, 11:45 AM

Hello,
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:

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

DoCmd.RunSQL "INSERT INTO tblDOT_PEEN ([2D_DATA], [SCAN_DATE])" & _
        "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"

'''''''''''''''
    cmdWAIT
'''''''''''''''

        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!"
    Else
       MsgBox "Bad Mark! Please contact your manager", vbOKCancel, "Marking Error"
    End If

''''''''''''''
    cmdRESET
''''''''''''''

          
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.
    Loop

End Sub

Public Sub cmdRESET()

strInput = ""
strDP_Result = ""
lblMessage.Caption = "LOAD BODY AND SCAN CORE BARCODE"


End Sub


End Sub

Any help, tips, links, or info would be greatly appreciated.
Thanks in advance!

BrianWren · #2 (**permalink**) November 2nd, 2007, 03:36 PM

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.

dbrother · #3 (**permalink**) November 2nd, 2007, 04:06 PM

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!

Need to download code?

Navigation