comport problem

well I'm not sure at all if the code to MSComm1 is correct but the IF syntax is wrong

Private Sub Command1_Click()

PortTimeout = False
If MSComm1.PortOpen = True Then
    MSComm1.PortOpen = False
    MSComm1.CommPort = port
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InBufferSize = 1
    MSComm1.PortOpen = True
    MSComm1.RThreshold = 500
  End If 

End Sub

.

Hmmm det vil ikke rigtig virke :S

når jeg åbner den DB på en anden com så er der noget med Licens fejl :S

du mangler nok : MSCOMM32.OCX MSComm Control
kan hentes her http://www.yes-tele.com/mscomm.html

sjovt nok det virker hellere ikke. for den lå der i forvejen..

når jeg åbner den formular hvor det ligger i skriver den:

Der er intet objekt i dettet kontrolelement.



:S

og når jeg så trykker på min knap for at åbne min forbindelse så skriver den:

Run-time Error '438':

object doesn't support this property or method

"Der er intet objekt i dettet kontrolelement."

Are you sure the component is registered correctly?
Do you have a reference to the control?



By brother happens to be an experet at serial comms and I asked him if the code you gave is correct, this is his answer.


It's a little more complicated than that. It depends what he wants to do.

Private Sub Command1_Click()
Dim Port as Integer
    Port = 1
'// His example shows him using a variable called 'Port' but it '// doesn't show whether this is being set elsewhere ?
'// so I'll do it here. 1, 2 or 3 or whatever for whichever com port '// he wants to use.

PortTimeout = False
'// What's this 'PortTimeout' ? Is it a global variable declared elsewhere ?
'// It doesn't have anthing to do with MSComm '// so what is he expecting it to do ?

If MSComm1.PortOpen = True Then
    MSComm1.PortOpen = False
    MSComm1.CommPort = port
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.InBufferSize = 8192
    MSComm1.InputLen = 0
    MSComm1.RThreshold = 500
    MSComm1.PortOpen = True
  End If

Exit Sub

In this example I've declared a receive buffer (InBufferSize) of 8k If RTHreshold is set to any value above zero then the receive buffer needs to be big enough to hold at least that much data. But because Windows is not very responsive he needs to be generous so I'd never use less than 8k

I'm actually nervous of using RThreshold at all. I'd set that to 0 which means that a receive 'OnComm' event will be triggered as soon as any data arrives.

He doesn't set any flow control. The remote device might have Flow control enabled so if he doesn't want to use flow control then he must also set mscomm1.rtsenable = true mscomm1.dtrenable = true Only actually of use if his cable is wired for hardware flow control but setting these won't harm anything so I'd do that anyway.

status?

det virker stadig ikke :S den bliver ved med at skrive: Der er intet objekt i dettet kontrolelement.

selv om jeg har den der MSCOMM32.OCX

Lagt i Windows\System32

try removing the object and from the form and adding it again. Are you sur ethat it is registered correctly?

hvordan registere jeg det?

Well if you can see it under Tools+references in code view then it should be registered, but it may be registered incorreclty.

http://support.microsoft.com/kb/q249873/

Have you tried removing and adding it again?

http://www.thescarms.com/vbasic/commio.aspx

Det er underligt jeg kan bare ikke få det til at virke... :S

har prøvet at fjerne MSComm32.OCX fra Access og lagt den der ind igen men det gør ingen forsekl :S

if you look at the link I gave 21/04-2008 19:39:11 it contains code to a VB program which should also work in Access VBA. This code uses API calls so that MSCOMM isnt needed.

Det fra den side kan jeg bare ikke finde ud af at få til at virke. :S

not much more I can do to help you :o(

kan ikke få det til at virke. men du får point afligevel for din hjælpsomhed.

thanks, hope you find a solution.