Text box ตัดคำหลังเครื่องหมาย

[ingfahm59]

ช่อง Text box สามารถให้ตัดคำหลังเครื่องหมายได้มั้ยคะ
เช่น สแกนบาร์โค้ดด้วยเครื่อง Barcode scanner ซึ่งเมื่อสแกนจากเดิมคำที่บาร์โค้ดอ่านได้จะเป็น S2201234, A1,1
อยากให้เมื่อสแกนบาร์โค้ดด้วยเครื่อง Barcode scanner เข้าไปแล้ว ให้เหลือแค่ S2201234 ใน Textbox ได้มั้ยคะ

[TTT]

ถ้าโค้ดที่สแกนเป็นรูปแบบเดียวกันหมด แล้วเราต้องการเก็บเฉพาะอักษรที่อยู่หน้าตัว , แรก เป็นรูปแบบๆนี้ตลอดเลยก็ใช้ฟังก์ชั่น Left() กับ Instr() ในการตัดคำได้ครับ โดยใส่โค้ดใน Event > After Update ของตัว TextBox

left("S2201234, A1,1",instr(1,"S2201234, A1,1",",")-1)

แทนค่าด้วยชื่อ TextBox สมมุติชื่อ Text1
left(Me.Text1,instr(1,Me.Text1,",")-1)

อะไรประมาณนี้ครับ

[ingfahm59]

จะได้

Private Sub Text1_AfterUpdate()

Dim myvalue As String
myvalue=left(Me.Text1,instr(1,Me.Text1,",")-1)

End sub

ประมาณนี้ถูกมั้ยคะ

[TTT]

ใช้เป็นอย่างนี้เลยครับ

Private Sub Text1_AfterUpdate()
    Text1=left(Me.Text1,instr(1,Me.Text1,",")-1)
End sub