ลองแบบกระทู้ http://www.thai-access.com/suphap.php?topic_id=1571 หรือยังครับ

ลองแล้วครับอ. อยากจะkey แบบต่อเนื่องเลยนะครับ keyมาถึงตัวที่ 5 ให้เลื่อนมาลงที่ Text2 เลยอย่างนี้นะครับ

ลองเปลี่ยนเป็น

Private Sub TxtField5_BeforeUpdate(Cancel As Integer)
If Len([TxtField5]) > 5 Then
Me.NextTextBox.SetFocus
End If
End Sub

ผมทดลองตามที่อ.แนะนำก็ยังไม่ได้ครับ

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
num = num + 1
If num = 4 Then
Me.Text2.SetFocus
num = 0
End If
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
num = num + 1
If num = 4 Then
Me.Text3.SetFocus
num = 0
End If
End Sub

Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
num = num + 1
If num = 4 Then
Me.Text4.SetFocus
num = 0
End If
End Sub

ผมลองทำทั้ง 2 แบบ
ทั้งของ อ.สุภาพ และของ คุณ moo
ยังไม่สามารถทำได้ครับ
รบกวนทำตัวอย่างให้ดูด้วยครับ
ขอบพระคุณครับ
Suchat
ชลบุรี

แต่ผมทดลองทำก็ได้นะครับ ลองดูที่ตัวอย่าง

Private Sub txb1_KeyPress(KeyAscii As Integer)
If Len(txb1.Text) = 3 Then SendKeys "{Tab}"
End Sub

ขอบพระคุณ คุณ moo และ คุณ access hotline มากๆ ครับ
ผมลองดูแล้ว สามารถทำได้ทั้ง 2 ท่านแล้วครับ
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี

ขอโทษครับ รายงานผลอีกครั้งครับ
ผมพบ Bug สำหรับ Code ของคุณ moo ครับ
คือ ถ้า Data เป็น ตัวเลข จะไม่มีปัญหาครับ
แต่ถ้าเป็น ตัวหนังสือ จะตัด Digi ผิดครับ
++++++++++++++++++++++++++
สำหรับ Code ของคุณ access hotline
ไม่มีปัญหา ทั้ง ตัวเลข และ ตัวอักษร ครับ
ผมขออนุญาติ คุณ access hotline ทำตัวอย่าง
มาให้เพื่อนๆ ดูครับ
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี

ขอบคุณมากเลยครับ ช่วงนี้ผมเปิดไม่ web ไม่ค่อยได้เลยครับปัญหาน่าจะมาจากโรงงานครับ web ไหนที่มีความรู้ดีจะเข้าไม่ค่อยได้