ระบายสีฟอร์มป๊อบอัพ (ฟอร์มชื่อ Input) เอาให้มันแสบๆ ตาเลยครับ อิอิ
ไม่ต้องมี textbox ก็ได้
ทำรูปร่างให้มันเล็กๆ กะทัดรัด แต่สังเกตุง่าย
ตั้งค่า
popup = true
modal = true

เขียนโค้ดดังนี้
Private Sub Form_Load()
Me.TimerInterval = 500
    MSComm1.CommPort = 1 'COM Port Set
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.RThreshold = 9
    MSComm1.PortOpen = True             ' COM Open
End Sub

Private Sub Form_Open(Cancel As Integer)
Cancel = IsNull(Me.OpenArgs)
End Sub

Private Sub Form_Timer()
Dim xx As Variant
on error resume next
xx = MSComm1.Input
    If Not IsEmpty(xx) Then
    Forms("T_Car").Controls("SerialNumber") = CStr(xx)
    DoCmd.Close acForm, Me.Name
    End If
End Sub

ในฟอร์มหลัก (มันชื่อ T_Car)
ที่ปุ่มคำสั่งเรียก ป๊อปอัพ (ปุ่มนี้ชื่อ Command58)
เขียนโค้ดว่า
Private Sub Command58_Click()
On Error Resume Next
DoCmd.OpenForm "input", acNormal, , , acFormEdit, acDialog, "Ha Ha Ha"
End Sub

ต้องขอรบกวนรบกวน อ. yeadram อีกรอบนะครับ

อ. ครับ คือ เวลากด Command58 แล้ว Form input ก็ขึ้นมาแล้วก็หายไป
แล้วก็ไม่มีข้อมูลอะไรดึงมาแลย
ผมเลยเอาคำสั่งนี้ DoCmd.Close acForm, Me.Name นี้ออก มันมีข้อมูลดึงเข้า Form Tcar - ("SerialNumber") อยู่ครับ แต่... มันไม่ยอมบันทึกให้ มันแค่มาโชว์แล้วแล้วก็หายไป


Private Sub Form_Timer()
Dim xx As Variant
on error resume next
xx = MSComm1.Input
If Not IsEmpty(xx) Then
Forms("T_Car").Controls("SerialNumber") = CStr(xx)
DoCmd.GoToRecord acDataForm, "T_Car", acNewRec
DoCmd.Close acForm, Me.Name
End If
End Sub

กรุณาอย่าตั้งกระทู้ใหม่ในเรื่องเดียวกัน
โปรดช่วยกันรวบรวมองค์ความรู้ในเรื่องเดียวกันไว้ในจุดเดียวกันเพื่อให้ผู้มาทีหลังได้ศึกษาตามได้โดยง่ายครับ