----------------------------------------------------
Private Sub Form_Load()
Me.TimerInterval = 2000
    MSComm1.CommPort = 1 'COM Port Set
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.RThreshold = 9
    MSComm1.PortOpen = True             ' COM Open
End Sub
---------------------------------------------------
Private Sub MSComm1_OnComm()
Dim aa As String
aa = MSComm1.Input
SerialNumber = aa
DoCmd.GoToRecord
End Sub
---------------------------------------------------
ถ้าใช้ - Private Sub Form_Timer() - มันมีข้อมูลมาครบแต่ มันจะติดปัญหา คือไม่อยากให้มัน รีเฟรีสอ่ะครับ และถ้าใช้อันนี้เวลากดปุ่มอะไจจะ Error ทันทีเลย
- Private Sub MSComm1_OnComm() - คือใช้คำสั่งนี้แล้วข้อมูลใน จะมาไม่ครบครับ อันเนื่องมาจากอะไรครับ
- แล้วมีคำสั่งไหนแนะนำไหมครับ
ขอความกรุณา อ. ด้วยครับ