กระทู้เก่าบอร์ด อ.Yeadram
1,734 3
URL.หัวข้อ /
URL
เรื่องการใช้การกดปุ่มอักษร keybord ควบคุม form
ผมกำลัง ทำโปรแกรมaceessง่ายๆในการเก็บข้อมูลการใช้กล่องอยู่ครับ ว่า Order นี้ส่งออกไปด้วยกล่องเบอร์อะไร แล้วข้างในกล่อง มี INV อะไรบ้างที่ส่งไปกับ Order No นั้น
Order ID กำหนดให้เป็นเลขอัตโนมัติ
วิธีการทำงานคือ หลังจากโปรแกรมกำหนดเลข Order แล้ว กดปุ่ม enter ก็จะวิ่งไปที่ Box No เพื่อกรอกเลขที่กล่อง แล้วจากนั้นกรอก User ที่ทำลงไป แล้วจึงกรอกเลขที่ INVOICE ที่จะบรรจุลงไปซึงแต่ละกล่องใส่ได้มากน้อยไม่เท่ากัน
พอบรรจุครบ ก็กดปุ่ม next (ปุ่ม ลูกศรสีฟ้า)เพื่อทำ Order ถัดไป
ปัญหาคือตอนนี้ผมนำ Scaner มาใช้ ซึ่งผู้ใช้ไม่จำเป็นต้อง key ข้อมูลแต่ใช้วิธีสแกนเอา ดังนั้นจึงไม่จำเป็นต้องกดปุ่มบน keybord อีก แต่การทำOrder ต่อไปยังต้องมาคลิ๊กที่ปุ่ม next อีก
ไม่ทราบว่ามีวิธีที่ใช้การกดปุ่มบน keyboard มาเพื่อส่งคำสั่งให้ไปยัง record ถัดไปได้ใหมครับ เช่นกดปุ่มตัว "K" บนคีย์บอร์ด หรือ "KKKU" หรือพวก ALT+K
เพราะผมจะได้พิมพ์บาร์โค้ด ตัวอักษรพวกนี้ออกมาวางไว้ แล้วให้ user ทำการแสกน เพื่อทำการข้ามไป record ใหม่เลย
Order ID กำหนดให้เป็นเลขอัตโนมัติ
วิธีการทำงานคือ หลังจากโปรแกรมกำหนดเลข Order แล้ว กดปุ่ม enter ก็จะวิ่งไปที่ Box No เพื่อกรอกเลขที่กล่อง แล้วจากนั้นกรอก User ที่ทำลงไป แล้วจึงกรอกเลขที่ INVOICE ที่จะบรรจุลงไปซึงแต่ละกล่องใส่ได้มากน้อยไม่เท่ากัน
พอบรรจุครบ ก็กดปุ่ม next (ปุ่ม ลูกศรสีฟ้า)เพื่อทำ Order ถัดไป
ปัญหาคือตอนนี้ผมนำ Scaner มาใช้ ซึ่งผู้ใช้ไม่จำเป็นต้อง key ข้อมูลแต่ใช้วิธีสแกนเอา ดังนั้นจึงไม่จำเป็นต้องกดปุ่มบน keybord อีก แต่การทำOrder ต่อไปยังต้องมาคลิ๊กที่ปุ่ม next อีก
ไม่ทราบว่ามีวิธีที่ใช้การกดปุ่มบน keyboard มาเพื่อส่งคำสั่งให้ไปยัง record ถัดไปได้ใหมครับ เช่นกดปุ่มตัว "K" บนคีย์บอร์ด หรือ "KKKU" หรือพวก ALT+K
เพราะผมจะได้พิมพ์บาร์โค้ด ตัวอักษรพวกนี้ออกมาวางไว้ แล้วให้ user ทำการแสกน เพื่อทำการข้ามไป record ใหม่เลย
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R01609
ใส่ Code ลงไปตรงใหนครับ ขอบคุณมากครับ
3 @R01613
เปิดฟอร์มในมุมมองออกแบบครับ
เปิดคุณสมบัติของฟอร์มขึ้นมา
ไปทีแท็บ Event บรรทัดแรกเลยครับ
เลือกค่าในคอมโบ เป็น [Event Procedure]
แล้วคลิ๊ก ปุ่มคำสั่งข้างหลังคอมโบ ( ... )
เปิดคุณสมบัติของฟอร์มขึ้นมา
ไปทีแท็บ Event บรรทัดแรกเลยครับ
เลือกค่าในคอมโบ เป็น [Event Procedure]
แล้วคลิ๊ก ปุ่มคำสั่งข้างหลังคอมโบ ( ... )
Time: 0.3000s
If tBoxNo<>"" or not isnull(tBoxNo) Then
DoCmd.Save
DoCmd.GoToRecord , , acNewRec
End If
End Sub
หรือ
Private Sub Form_Current()
If tBoxNo<>"" or not isnull(tBoxNo) Then cmdNext_Click
'เรียกใช้คำสั่งของปุ่มคำสั่ง Next นั่นแหละครับ
End Sub
หรือ
Private Sub Form_Current()
If (ผลการสแกน)=True Then cmdNext_click
End Sub