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


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

13 ธ.ค. 65 , 14:29:24
อ่าน 174 ครั้ง

ingfahm59

  • สมาชิกไท.Access
  • กระทู้: 8

    • ดูรายละเอียด

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

 

13 ธ.ค. 65 , 17:45:44
ตอบกลับ #1

TTT

: Text box ตัดคำหลังเครื่องหมาย
« ตอบกลับ #1 เมื่อ: 13 ธ.ค. 65 , 17:45:44 »
ถ้าโค้ดที่สแกนเป็นรูปแบบเดียวกันหมด แล้วเราต้องการเก็บเฉพาะอักษรที่อยู่หน้าตัว , แรก เป็นรูปแบบๆนี้ตลอดเลยก็ใช้ฟังก์ชั่น 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)

อะไรประมาณนี้ครับ
ฐานข้อมูลเป็นเรื่องใกล้ตัว ใครๆก็ทำฐานข้อมูลเองได้นะครับhttp://www.youtube.com/c/AccessCreator
 
โพสต์นี้ได้รับคำขอบคุณจาก: ingfahm59

14 ธ.ค. 65 , 13:22:51
ตอบกลับ #2

ingfahm59

  • สมาชิกไท.Access
  • กระทู้: 8

    • ดูรายละเอียด

: Text box ตัดคำหลังเครื่องหมาย
« ตอบกลับ #2 เมื่อ: 14 ธ.ค. 65 , 13:22:51 »
จะได้

Private Sub Text1_AfterUpdate()

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

End sub

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

 

15 ธ.ค. 65 , 17:47:46
ตอบกลับ #3

TTT

: Text box ตัดคำหลังเครื่องหมาย
« ตอบกลับ #3 เมื่อ: 15 ธ.ค. 65 , 17:47:46 »
ใช้เป็นอย่างนี้เลยครับ

Private Sub Text1_AfterUpdate()
    Text1=left(Me.Text1,instr(1,Me.Text1,",")-1)
End sub
ฐานข้อมูลเป็นเรื่องใกล้ตัว ใครๆก็ทำฐานข้อมูลเองได้นะครับhttp://www.youtube.com/c/AccessCreator
 


บอร์ดเรียนรู้ Access สำหรับคนไทย