คำสั่ง Dlookup ช้ามาก มีวิธีอื่นไหมครับ

[prajak]

รบกวนสอบถามครับ ผมต้องการสร้างฟอร์มรับค่าบาร์โค๊ด คือเวลายิงบาร์โค๊ดที่ text box นั้นๆแล้ว ให้ไปดึงข้อมูลจากตารางมาแสดง ปัจจุบันใช้คำสั่ง Dlookup แต่พอข้อมูลเยอะขึ้น การดึงข้อมูลมาแสดงจะช้าลงมาก มีวิธีอืนที่ไวกว่านี้ไหมครับ

[OddyWriter]

ใช้คำสั่ง SQL ครับ เร็วกว่าเยอะ

SELECT * FROM ชื่อตาราง WHERE ชื่อฟิลด์ในตาราง = text box หรือ combo box บนฟอร์ม;

อย่าลืมปิดท้ายคำสั่งด้วย ; ทุกครั้ง

[prajak]

ใช้คำสั่ง SQL ครับ เร็วกว่าเยอะ

SELECT * FROM ชื่อตาราง WHERE ชื่อฟิลด์ในตาราง = text box หรือ combo box บนฟอร์ม;

อย่าลืมปิดท้ายคำสั่งด้วย ; ทุกครั้ง

ผมไม่แน่ใจว่าแจ้งความต้องการให้อาจารย์ถูกต้องหรือเปล่านะครับ แต่ความต้องการคือประมาณนี้ครับตามรูป พอเรายิงbarcode ใน textbox ชื่อ barcode บนฟอร์ม Frm_Wr ให้ดึงข้อมูลจากตาราง tbl_DataBarcode มาลงในฟิวด์ต่างๆของฟอร์มครับ ทั้งนี้ผมแนบตัวอย่างไฟล์มาให้อาจารย์ช่วยดูให้หน่อยนะครับ

[OddyWriter]

เปลี่ยนวิธีนะครับ
ไปใส่ Text Box เพิ่มอีกอันนึง แบบตรงสีส้มที่มีข้อความ "Scan Barcode"
ที่ Event: After Update ของ Text Box อันใหม่นี้ก็สั่ง Run: Append Query เพื่อนำข้อมูลที่มี Barcode ตรงกันมาใส่ในตารางของฟอร์มข้างล่าง

แบบนี้จะเร็วกว่าครับ

[prajak]

เปลี่ยนวิธีนะครับ
ไปใส่ Text Box เพิ่มอีกอันนึง แบบตรงสีส้มที่มีข้อความ "Scan Barcode"
ที่ Event: After Update ของ Text Box อันใหม่นี้ก็สั่ง Run: Append Query เพื่อนำข้อมูลที่มี Barcode ตรงกันมาใส่ในตารางของฟอร์มข้างล่าง

แบบนี้จะเร็วกว่าครับ

แต่ Textbox Scan Barcode นี้เราจะต้องมีการยิงบาร์โค้ด หลายๆครั้งเลยนะครับ ปกติ barcode หลังจากที่เราสแกนแล้ว มันจะ enter เพื่อไป text อื่น

[OddyWriter]

จะยิงกี่ครั้งก็ได้ครับ Text Box ไม่พังแน่นอน

ที่ After Update เมื่อ สั่ง Append Query แล้ว ก็สั่ง Clear ค่าใน Text Box ให้เป็น "" หรือ Null ก็ได้ครับ

[prajak]

ทำตามที่อาจารย์แนะนำได้แล้วครับ แต่รบกวนสอบถามเพิ่มเติมอีกนิดนะครับ หลังจาก scan barcode แล้ว ผมสั่งให้ clear textbox แล้ว สั่ง me.requery เพื่อให้ฟอร์มแสดงข้อมูล record ใหม่ แต่ตำแหน่ง cursor จะไปอยู่ที่ record แรกแทน ถ้าเราต้องการให้ cursor อยู่ที่ตำแหน่ง text scanbarcode ตลอด ต้องทำยังไงครับ

ปล.เพิ่มเติมถ้า barcode ที่เราสแกนลงไป ไม่พบในฐานข้อมูล ให้แสดงเป็นข้อความหรือ error ต้องเขียนยังไงครับ

[OddyWriter]

ถ้าเราต้องการให้ cursor อยู่ที่ตำแหน่ง text scanbarcode ตลอด ต้องทำยังไงครับ
-ใช้คำสั่ง text scanbarcode.setfocus

ถ้า barcode ที่เราสแกนลงไป ไม่พบในฐานข้อมูล ให้แสดงเป็นข้อความหรือ error ต้องเขียนยังไงครับ
-ใช้คำสั่ง On Error Goto xxx (ไปค้นวิธีการใช้คำสั่งนี้เองนะครับ)

[prajak]

ถ้าเราต้องการให้ cursor อยู่ที่ตำแหน่ง text scanbarcode ตลอด ต้องทำยังไงครับ
-ใช้คำสั่ง text scanbarcode.setfocus

ถ้า barcode ที่เราสแกนลงไป ไม่พบในฐานข้อมูล ให้แสดงเป็นข้อความหรือ error ต้องเขียนยังไงครับ
-ใช้คำสั่ง On Error Goto xxx (ไปค้นวิธีการใช้คำสั่งนี้เองนะครับ)

ขอบคุณมากนะครับ

[prajak]

ถ้าเราต้องการให้ cursor อยู่ที่ตำแหน่ง text scanbarcode ตลอด ต้องทำยังไงครับ
-ใช้คำสั่ง text scanbarcode.setfocus

ถ้า barcode ที่เราสแกนลงไป ไม่พบในฐานข้อมูล ให้แสดงเป็นข้อความหรือ error ต้องเขียนยังไงครับ
-ใช้คำสั่ง On Error Goto xxx (ไปค้นวิธีการใช้คำสั่งนี้เองนะครับ)

ขอบคุณมากนะครับ

อาจารย์ครับ กรณี barcode ที่เราสแกนลงไปมันไม่พบในตารางฐานข้อมูล มันแค่ไม่ append data มา แต่มันจะไม่ขึ้นerrorอะไร ผมไม่รู้จะใช้ on error ตรงไหนครับ

[OddyWriter]

เปลี่ยนมาใช้ IF dcount(...) = 0 then

[prajak]

เปลี่ยนวิธีนะครับ
ไปใส่ Text Box เพิ่มอีกอันนึง แบบตรงสีส้มที่มีข้อความ "Scan Barcode"
ที่ Event: After Update ของ Text Box อันใหม่นี้ก็สั่ง Run: Append Query เพื่อนำข้อมูลที่มี Barcode ตรงกันมาใส่ในตารางของฟอร์มข้างล่าง

แบบนี้จะเร็วกว่าครับ

อาจารย์ครับ ถ้า Text box "Scan barcode อยู่บน main form แต่เราต้องการ append query ให้ลงบน subform มันต้องทำยังไงครับ ( ถ้าไม่มี subform เป็นform ปกติผมทำได้ครับ เหมือนมัน relationship กันอยู่ มันเลยทำไม่ได้)

[OddyWriter]

สั่ง Append เข้าตารางของ Subform แล้วสั่ง Requery ครับ

[champ9830]

ปล.ขออนุญาตนะครับอาจารย์ พอดีอีก account หนึ่งผมเข้าไม่ได้ กดลืม password ก็ไม่มีเมลส่งมาเลย ก็เลยสมัคร account ใหม่ครับ
รบกวนอาจารย์ช่วยทำให้ดูเป็นตัวอย่างสักหน่อยได้ไหมครับ ลองแล้วทำไม่เป็นครับ ทั้งนี้ผมแนบไฟล์มาให้ช่วยดูด้วยครับ ขอบพระคุณล่วงหน้าด้วยนะครับ

[OddyWriter]

ตัวอย่างครับ

[prajak]

ตัวอย่างครับ

ขอบพระคุณมากนะครับอาจารย์ ทำได้แล้วครับ