vba-OnComm event does not trigger

[Tornado1981]

I'm trying to get the input of a 3g modem when it receives sms.This is the code I'm using to trap any incoming sms.

[LEFT][COLOR=#101094][FONT=inherit]Private[/FONT][/COLOR][COLOR=#101094][FONT=inherit]Sub[/FONT][/COLOR][COLOR=#303336][FONT=inherit] MSComm1_OnComm[/FONT][/COLOR][COLOR=#303336][FONT=inherit]()[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
   [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Select[/FONT][/COLOR][COLOR=#101094][FONT=inherit]Case[/FONT][/COLOR][COLOR=#303336][FONT=inherit] MSComm1[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]CommEvent
      [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Case[/FONT][/COLOR][COLOR=#303336][FONT=inherit] comEvReceive
         [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Do[/FONT][/COLOR][COLOR=#101094][FONT=inherit]While[/FONT][/COLOR][COLOR=#303336][FONT=inherit] MSComm1[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]InBufferCount [/FONT][/COLOR][COLOR=#303336][FONT=inherit]>[/FONT][/COLOR][COLOR=#7d2727][FONT=inherit]0[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
            strInput [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] strInput [/FONT][/COLOR][COLOR=#303336][FONT=inherit]&[/FONT][/COLOR][COLOR=#303336][FONT=inherit] MSComm1[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Input
         [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Loop[/FONT][/COLOR][COLOR=#303336][FONT=inherit]

         Sheets[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7d2727][FONT=inherit]"Sheet1"[/FONT][/COLOR][COLOR=#303336][FONT=inherit]).[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Range[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7d2727][FONT=inherit]"A1"[/FONT][/COLOR][COLOR=#303336][FONT=inherit]).[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Text [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] strInput
   [/FONT][/COLOR][COLOR=#101094][FONT=inherit]End[/FONT][/COLOR][COLOR=#101094][FONT=inherit]Select[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#101094][FONT=inherit]End[/FONT][/COLOR][COLOR=#101094][FONT=inherit]Sub[/FONT][/COLOR][/LEFT]

Regardless the code, the event does not fire as if nothing is received.What am I missing here?Thank u.
​

<strike style="background-color: transparent; color: rgb(34, 34, 34); font-family: Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif; font-size: 13px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-align: left; text-decoration: line-through; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;"></strike>

 

[pike]

Hieloo,
you will need to release and do the event

PrivateSub MSComm1_OnComm()
   SelectCase MSComm1.CommEvent
      Case comEvReceive
         DoWhile MSComm1.InBufferCount >0
            strInput = strInput & MSComm1.Input
         do events
loop

         Sheets("Sheet1").Range("A1").Text = strInput
   EndSelect
End Sub

 

[pike]

Option Explicit

PrivateSub MSComm1_OnComm()
   SelectCase MSComm1.CommEvent
      Case comEvReceive
         DoWhile MSComm1.InBufferCount > 0
            strInput = strInput & MSComm1.Input
         DoEvents  ' that should be DoEvents
Loop

         Sheets("Sheet1").Range("A1").Text = strInput
   EndSelect
End Sub

 

[Tornado1981]

I'm afraid that i wasn't clear enough
The problem here is that WHATEVER the code is.. the event itself isn't triggerd
In other words.. if my code is just like that

Private Sub MSComm1_OnComm()
      Beep
End Sub

It's not executed when i receive a sms.
I think it's a commport settings issue but I don't know how to do this.
Thank u.

 

[pike]

Hi,
Yes, you must open the coms port.
have a look at https://www.mrexcel.com/forum/excel-questions/488335-receive-data-com-port.html