กระทู้เก่าบอร์ด อ.Yeadram
        
           1,300   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.6265s
    
      
		
Tindex = Forms("FmOrder_Out_Ey_Pos_Fast_ExV").controls("CashInAtPos").Tabindex
Forms("FmOrder_Out_Ey_Pos_Fast_ExV").controls(Tindex-1).setfocus
มั่วๆ เอาครับ เขียนสด ยังไม่ได้ลอง นะครับ