กระทู้เก่าบอร์ด อ.Yeadram
1,230 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)
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
เดี๋ยวจะไปลอง ของอาจารย์ต่อ
Response = acDataErrContinue
On Error Resume Next
Dim i
i = Left(Combo24.Text, 1)
Combo24.Text = ""
SendKeys i
Time: 0.3087s
