ต้องการทราบคำสั่งหรือวิธีข้ามไปฟิลล์ถัดไป
กระทู้เก่าบอร์ด อ.Yeadram

 845   4
URL.หัวข้อ / URL
ต้องการทราบคำสั่งหรือวิธีข้ามไปฟิลล์ถัดไป

สร้างฟอร์มขึ้นมาโดยใช้ TabControl มี 2 หน้าย่อย
อยากทราบวิธี ตั้งค่าให้ หลังจากกรอกฟิลล์สุดท้ายในหน้า 1 แล้วเวลากดให้ cursor ย้ายไปหน้าที่ 2 ได้เลยทันที
คือค้นในหนังสือแล้ว อ่านก็ไม่มีหรือว่าไม่เข้าใจเองก็ไม่ทราบ


เช่น ฟิลล์(Field) สุดท้ายในTabcontrol ของหน้าแรก คือ AgeBegin
ฟิลล์แรกในTabcontrol หน้าที่ 2 คือ AgeEnd
เรามีวิธีการสร้างคำสั่งยังไงครับ

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

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

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

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

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

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



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

จัดไปเลยค๊า

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

Select case keycode
   Case vbkeyreturn
        .....โค้ดของคุณ TTT
End select
4 @R22746
สมมติมี 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

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