stregkodescanner på com1

Hej

Det er faktisk ret enkelt, ved brug af MSComm-komponentet.
Her er lige et par linjer kode, som kan hjælpe dig på vej:

  If Not ActiveXKtl34.PortOpen Then
        ActiveXKtl34.PortOpen = True
    End If
    If Not ActiveXKtl34.PortOpen Then
        MsgBox "Kunne ikke åbne kommunikationsport til måleudstyr"
    End If
   
    ActiveXKtl34.RThreshold = 1
    ActiveXKtl34.InputLen = 1

.
.
.
.
.
Private Sub ActiveXKtl34_OnComm()
    Dim intEvent As Integer
    intEvent = ActiveXKtl34.CommEvent
    Select Case intEvent
    Case comEvReceive
        While ActiveXKtl34.InBufferCount
            strComm1Char = ActiveXKtl34.Input

            Select Case strComm1Char
            Case Chr(13)
                'MsgBox "Buffer efter CR: " & strComm1Buffer
                If InStr(strComm1Buffer, "GS") Then
                    'MsgBox "Buffer fra måler: " & strComm1Buffer
                    maaleinput = Split(Trim(strComm1Buffer), ";")
                    maalerSQL (maaleinput)
                End If
                strComm1Buffer = ""
            Case Else
                strComm1Buffer = strComm1Buffer + strComm1Char
            End Select
        Wend
    End Select
End Sub

hmm, ok.
og hvor skal jeg så skrive de forskellige koder?
Har ikke brugt mscomm før

den melder fejl, runtime error 424, object required

har sat den nederste kode ind i toppen af vba koderne af formularen.
de øverste koder, har jeg sat ind under form_onload.

Men der er åbenbart et eller andet der ikke er korrekt :(

ok - og du har sat mscomm-objektet ind i formularen? :-) og den hedder det samme som i koden (ActiveXKtl34)?

det var det der manglede.
Tak