NOT IN LIST แล้วไมพบ ให้กลับมาค้นใหม่
กระทู้เก่าบอร์ด อ.Yeadram

 1,162   2
URL.หัวข้อ / URL
NOT IN LIST แล้วไมพบ ให้กลับมาค้นใหม่

Private Sub Combo24_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
On Error Resume Next
Combo24.Text = Left(Combo24.Text, 1)

End Sub
ตาม CODE ปกติถ้าไม่พบ มันจะกลับมา REC แรก เช่น ผมมีข้อมูลให้ COMBO
เลือกดังนี้(ซึ่งได้จัดเรียงไว้แล้ว)
A
ABO
BB
BCA
BZI
C
CTX

ถ้าผม KEY มั่วๆ เช่น BYADI มันหาไม่เจอ ตาม CODE ด้านบนคือ
ผมตัดมันเหลือ แค่ B ตัวเดียว มันก็หาไม่เจออีก ดังนั้นมันจะมาให้เลือก
LIST ตั้งแต่ A เลย

ขณะเดียวกันถ้าผม KEY มั่ว CKID ผมตัดแบบเดียวกัน มันจะหา
C เจอ เพราะ C อยู่ใน MENU ให้เลือกอยู่แล้ว

คำถามคือ กรณีที่ 1 ถ้า หา B ไม่เจอ แล้วให้ไปลำดับถัดไปคือ
BB ผมจะเขียนต่ออย่างไรครับ (ให้ MENU เริ่มจาก BB เลย ไม่ใช่ LISTมา
จาก A)

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

1 @R01534
กำหนด Limit To List และ AuoExpand property เป็น Yes เท่านั้นครับ ไม่ต้องเขียนโปรแกรมอะไรใน NotInList event ให้ยุ่งยาก
2 @R01536
ไปลองเขียนมา ได้มาอย่างนี้ครับ
เดี๋ยวจะไปลอง ของอาจารย์ต่อ
Response = acDataErrContinue
On Error Resume Next
Dim i
i = Left(Combo24.Text, 1)
Combo24.Text = ""
SendKeys i
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2549s