อยากให้ โฟกัสที่อื่นเมื่อไม่มีค่าใด
กระทู้เก่าบอร์ด อ.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. มันต้องยิงบาร์โค๊ตอย่างเดียวเลยครับ มีวิธีอื่นมั๊ยครับ เพราะบางทีต้องใช้วิพิมพ์เองอ่ะครับ

มีวิธีไหนบ้าง ไม่ว่าจะเขียนโค๊ต หรือใช้มาโครก็ได้ครับ เพื่อให้มันใช้คีย์บอร์ดพิมพ์ก็ได้ด้วยครับ


2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R04049
dim Tindex as integer
Tindex = Forms("FmOrder_Out_Ey_Pos_Fast_ExV").controls("CashInAtPos").Tabindex
Forms("FmOrder_Out_Ey_Pos_Fast_ExV").controls(Tindex-1).setfocus

มั่วๆ เอาครับ เขียนสด ยังไม่ได้ลอง นะครับ
2 @R04050
ไม่เข้าใจครับอาจารย์ เอาไปใส่ที่ไหนครับ ลองไปใส่แล้วไม่ได้ครับ

มันขึ้น Error ที่นี่ครับ

Forms("FmOrder_Out_Ey_Pos_Fast_ExV").controls(Tindex-1).setfocus

ผมใส่ผิดที่แน่เลยครับ ไม่ทราบว่าใส่ที่ไหนครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.4403s