กระทู้เก่าบอร์ด อ.Yeadram
1,139 2
URL.หัวข้อ /
URL
อยากให้ โฟกัสที่อื่นเมื่อไม่มีค่าใด
ถามต่อเนื่อง จากที่นี่ครับ
http://www.thai-access.com/yeadram_view.php?topic_id=834
เอาเป็นว่าถามใหม่ครับ ถามต่อเนื่องครับ ของเก่าโพสไม่ได้แล้ว ไม่รู้เป็นอะไรครับ
ผมมีฟอร์มสำหรับลงรายการสินค้า โดยประกอบด้วย ฟอร์มหลัก และฟอรืมย่อย
ฟอรืมหลักคือ FmOrder_Out_Ey_Pos_Fast_ExV
ฟอร์มย่อยคือ FsOrderDetail_Out_Ey_Pos_Fast_ExV
เวลาใช้งานผมก็ยิงบาร์โค๊ตบ้าง ลงตัวเลขบ้าง ที่ฟอร์มย่อย
ซึ่งปรกติเมื่อลงรายการProductIDเสร็จแล้ว ก็ต้องกด Ctrl+Tab เพื่อให้มันมาโฟกัสต่อไปที่ฟอร์มหลักที่ฟิล์ด CastInAtPos ซึ่งมันไม่ค่อยสะดวกครับ และผมก็ได้แนวจากอาจารย์ไป แล้วค่อยๆเปลี่ยนนู่นทีนี่ที ได้ดังนี้ครับ - -"
-----------------------------------------------------------------------------------------
Private Sub ProductID_KeyDown(KeyCode As Integer, Shift As Integer)
If IsNull(ProductID) = True Or ProductID = "" Then
Forms![FmOrder_Out_Ey_Pos_Fast_ExV]![CashInAtPos].SetFocus
Else
ProductID.SetFocus
Exit Sub
End If
End Sub
-----------------------------------------------------------------------------------------
แต่มีปัญหาอยู่นิดหน่อยครับอาจารย์ คือ
1. มันเลยช่อง CashInAtPos ไม่1ขั้นไปอยู่ที่ปุ่มพิมพ์บิลแทน เลยยัง งงๆครับ ว่ามันเลยไปได้ยังไง ทั้งที่ไล่ลำดับแท็บ เปิดแท็บหยุดแล้ว และก้ไม่ได้ล็อคแถมเปิดใช้แล้วด้วย แต่ถ้ากดCtrl+Tabแล้ว มันจะไปโฟกัสที่ CashInAtPos แสดงว่าลำดับแท็บถูกแล้ว
มีวิธีไหนบ้าง ไม่ว่าจะเขียนโค๊ต หรือใช้มาโครก็ได้ครับ เพื่อให้มันย้อนกลับมา1ขั้น จะได้มาที่ CashInAtPos พอดีครับ
2. มันต้องยิงบาร์โค๊ตอย่างเดียวเลยครับ มีวิธีอื่นมั๊ยครับ เพราะบางทีต้องใช้วิพิมพ์เองอ่ะครับ
มีวิธีไหนบ้าง ไม่ว่าจะเขียนโค๊ต หรือใช้มาโครก็ได้ครับ เพื่อให้มันใช้คีย์บอร์ดพิมพ์ก็ได้ด้วยครับ
http://www.thai-access.com/yeadram_view.php?topic_id=834
เอาเป็นว่าถามใหม่ครับ ถามต่อเนื่องครับ ของเก่าโพสไม่ได้แล้ว ไม่รู้เป็นอะไรครับ
ผมมีฟอร์มสำหรับลงรายการสินค้า โดยประกอบด้วย ฟอร์มหลัก และฟอรืมย่อย
ฟอรืมหลักคือ FmOrder_Out_Ey_Pos_Fast_ExV
ฟอร์มย่อยคือ FsOrderDetail_Out_Ey_Pos_Fast_ExV
เวลาใช้งานผมก็ยิงบาร์โค๊ตบ้าง ลงตัวเลขบ้าง ที่ฟอร์มย่อย
ซึ่งปรกติเมื่อลงรายการProductIDเสร็จแล้ว ก็ต้องกด Ctrl+Tab เพื่อให้มันมาโฟกัสต่อไปที่ฟอร์มหลักที่ฟิล์ด CastInAtPos ซึ่งมันไม่ค่อยสะดวกครับ และผมก็ได้แนวจากอาจารย์ไป แล้วค่อยๆเปลี่ยนนู่นทีนี่ที ได้ดังนี้ครับ - -"
-----------------------------------------------------------------------------------------
Private Sub ProductID_KeyDown(KeyCode As Integer, Shift As Integer)
If IsNull(ProductID) = True Or ProductID = "" Then
Forms![FmOrder_Out_Ey_Pos_Fast_ExV]![CashInAtPos].SetFocus
Else
ProductID.SetFocus
Exit Sub
End If
End Sub
-----------------------------------------------------------------------------------------
แต่มีปัญหาอยู่นิดหน่อยครับอาจารย์ คือ
1. มันเลยช่อง CashInAtPos ไม่1ขั้นไปอยู่ที่ปุ่มพิมพ์บิลแทน เลยยัง งงๆครับ ว่ามันเลยไปได้ยังไง ทั้งที่ไล่ลำดับแท็บ เปิดแท็บหยุดแล้ว และก้ไม่ได้ล็อคแถมเปิดใช้แล้วด้วย แต่ถ้ากดCtrl+Tabแล้ว มันจะไปโฟกัสที่ CashInAtPos แสดงว่าลำดับแท็บถูกแล้ว
มีวิธีไหนบ้าง ไม่ว่าจะเขียนโค๊ต หรือใช้มาโครก็ได้ครับ เพื่อให้มันย้อนกลับมา1ขั้น จะได้มาที่ CashInAtPos พอดีครับ
2. มันต้องยิงบาร์โค๊ตอย่างเดียวเลยครับ มีวิธีอื่นมั๊ยครับ เพราะบางทีต้องใช้วิพิมพ์เองอ่ะครับ
มีวิธีไหนบ้าง ไม่ว่าจะเขียนโค๊ต หรือใช้มาโครก็ได้ครับ เพื่อให้มันใช้คีย์บอร์ดพิมพ์ก็ได้ด้วยครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R04050
ไม่เข้าใจครับอาจารย์ เอาไปใส่ที่ไหนครับ ลองไปใส่แล้วไม่ได้ครับ
มันขึ้น Error ที่นี่ครับ
Forms("FmOrder_Out_Ey_Pos_Fast_ExV").controls(Tindex-1).setfocus
ผมใส่ผิดที่แน่เลยครับ ไม่ทราบว่าใส่ที่ไหนครับ
มันขึ้น Error ที่นี่ครับ
Forms("FmOrder_Out_Ey_Pos_Fast_ExV").controls(Tindex-1).setfocus
ผมใส่ผิดที่แน่เลยครับ ไม่ทราบว่าใส่ที่ไหนครับ
Time: 0.4403s
Tindex = Forms("FmOrder_Out_Ey_Pos_Fast_ExV").controls("CashInAtPos").Tabindex
Forms("FmOrder_Out_Ey_Pos_Fast_ExV").controls(Tindex-1).setfocus
มั่วๆ เอาครับ เขียนสด ยังไม่ได้ลอง นะครับ