ยิงบาร์โค๊ตเพื่อค้นหา

[แดนชัย]

-vi[ผมสร้างบาร์โค๊ต code128 โดย เลขประจำตัวประชาชน สามารถอ่านเลข 13 หลัก ตามปกติ...เมื่อยิงบาร์โค๊ตเข้าไปแล้วจะต้อง ENTER อีกครั้ง จึงสามารถค้นได้  ความประสงค์ของผมเมื่อยิงบาร์โค๊ตแล้วให้แสดงผลการค้นหาอัตโนมัติ......

[sjs]

Private Sub Text0_KeyPress(KeyAscii As Integer)
                Me.Text0.Text = KeyAscii
End Sub

ลองจับค่าดู ตัวสุดท้าย  ถ้าได้เลข 13 ขึ้นมาก็จับเงื่อนไขนี้ครับว่าทำอะไรต่อ

[แดนชัย]

ไม่ได้ครับท่าน...มันอ่่านค่า ตัวแรก-13
ผมขอรายละเอียดเพิ่มเติมครับ
หากท่านใดพอมีวิธี..หรือมตัวอย่างขออนุญาตรบกวนด้วยนะครับ

[Un]

เครื่องบาร์โค๊ด มันสามารถตั้งค่าให้ ยิงปุ๊บ Enter เลยได้นะครับ ลองศึกษาดู ทำให้การใช้งานสะดวกขึ้นเยอะ

[ekppom]

ถ้าให้ผมตีความหมาย จขกท.คงหมายถึงยิงบาร์โค้ดแล้วแสดงข้อมูลทันทีโดยไม่ต้องกดEnter ซึ่งปกติการยิงบาร์โค้ดเครื่องจะบังคับกดEnterอัตโนมัติอยู่แล้วแต่จขกท.กลับต้องกดEnterอีกครั้ง แสดงว่าน่าจะเป็นที่คำสั่งมากกว่าครับ ลองเปลี่ยนCodeเป็นAfterUpdateดูครับ(คัดลอกโค้ดเดิมทั้งหมดมาใส่ในช่องAfterUpdateผมว่าไม่น่าจะมีปัญหานะครับ ปกติก็ใช้สแกนบาร์โค้ดอยู่ครับ)

[ปิ่นณรงค์]

จากที่ คุณ sls บอกคงแสดงให้เห็นว่า Event ของ textbox ID ของBarcode แสดงแล้ว กดค้นหาทันที คืออีเว้น KeyPress คับ เมื่อป้อนข้อมูล Event จะตรวจสอบทันที ไม่ต้องกด Enter เหมือน afterupdate หรือ on Exit คับ

ซึ่งสามารถนำไปประยุกต์ใช้ เช่นอาจจะเขียนคำสั่งใน Event นั้นว่า ถ้า textboxBarcodeId ไม่ใช่ค่าว่าง ให้ทำงานคำสั่งค้นหา ทันทีคับเพราะ Event นี้ผมเคยใช้สร้างการค้นหาข้อมูลแบบกดทีละตัวแล้วแสดงข้อมูลทันที ทุกตรั้งที่กดปุ่ม

[TTT]

จริงๆ ถ้าเป็นเลขบัตรประชาชน 13 หลัก ผมแนะนำให้ใช้เป็น EAN-13 ได้นะครับ มันจะสามารถ check digi หลักที่ 13 ของบัตรได้ด้วยว่าเลขที่บัตรใส่ถูกหรือไม่ เพราะเลขบัตรเราใช้ระบบ EAN-13 อยู่แล้ว

ส่วนเรื่องการไม่ต้องกด ENTER อย่างที่คุณ UN บอกอะครับ ตัวเครื่อง Barcode จะสามารถเซ็ทให้เมื่ออ่านเสร็จให้ส่งคีย์ ENTER ต่อท้ายได้เลย โดยส่วนมากจะอยู่ในคู่มือบาร์โค้ดที่ให้มา โดยจะเป็นรูปบาร์โค้ดแบบต่างๆ ให้เราใช้เครื่องยิงใส่บาร์โค้ดในคู่มือหัวข้อที่กำหนดเรื่องของการ ENTER เพียงครั้งเดียวก็จะเป็นการ Setup เครื่องยิงบาร์โค้ดแล้ว

แต่หากทำไม่ได้เพราะคู่มือหายหรือด้วยเหตุบางอย่างก็แนะนำให้ใช้เหตุการณ์ On Change ของ Textbox ตัวรับบาร์โค้ดครับ
    If Len(Me.Text1.Text) = 13 Then
        'โค้ดค้นหาข้อมูล ...
    End If

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

[แดนชัย]

ขอบคุณนะครับ....เป็นเครื่องยิงบาร์โค๊ต...ไม่ได้เซตค่า ADD AN ENTER KEY.... และจะทดลองใช้ EAN-13