ก่อนอื่นคุณต้องกำหนดก่อนว่าอะไรเป็นการบอกว่าคุณคีย์ข้อมูลในฟิลด์สุดท้ายเสร็จแล้ว เช่น สมมุติผมกำหนดว่า หากผมคีย์ข้อมูลในฟิลด์สุดท้ายเสร็จแล้ว ผมต้องการย้ายแท็บผมจะกดปุ่ม Tab ให้ย้ายไป Page2 ผมก็จะเขียน VBA ไว้ในฟิลด์สุดท้ายของ Page1 ที่ Event > On Key Down:

    If KeyCode = 9 Then
        Me.ชื่อTabCtl.Pages.Item("Page2").SetFocus
    End If

เมื่อผมคีย์ข้อมูลในฟิลด์สุดท้ายเสร็จ ผมกดปุ่ม Tab มันก็จะย้ายไปที่ Page2 และโฟกัสที่ฟิลด์แรกที่มี Index เป็น 0

ปรับใช้ดูครับ

แต่ถ้า field สุดท้ายของ page1 และ Field แรกของ Page2 เป็นแบบ TexBox ละครับไม่ใช่กรอกตัวเลข การตั้งค่าจะทำเหมือนกันไหม

คือพึ่งเริ่มหัดครับ เลยไม่รู้เลยโค๊ดเลย พยายามแกะอย่างมาก แต่ก็ไม่ค่อยเข้าใจเพราะถูกบังคับให้ทำให้กับหน่วยงาน



ขอบคุณครับ

แหมๆ เจ๊ทนเห็นผู้ชายกำลังลำบากไม่ได้เลย รู้สึกสงสารเอามากๆ

จัดไปเลยค๊า

ใน event key down ของคอนโทรลสุดท้าย

Select case keycode
   Case vbkeyreturn
        .....โค้ดของคุณ TTT
End select

สมมติมี 2 tab    (Text3 อยู่ใน tab ที่2)

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 9 Then                    'KeyCode = 9 คือปุ่ม tab
        Me.TabCtl0.Value = 1              'เปลี่ยนไป tab 2 (ค่า tab เริ่มที่ 0)
        Me.Text3.SetFocus                  'set focus ธรรมดา
    End If
End Sub