กำหนดให้ combo box ชื่อ ComboA และต้องการค้นหาจาก 2 Field (FieldName1,FieldName2)
Option Compare Database
Option Explicit
Dim IsCharKeyPressed As Boolean
Private Sub ComboA_KeyDown(KeyCode As Integer, Shift As Integer)
IsCharKeyPressed = False
End Sub
Private Sub ComboA_KeyPress(KeyAscii As Integer)
IsCharKeyPressed = True
If KeyAscii = vbKeyEscape Or KeyAscii = vbKeyTab Then
IsCharKeyPressed = False
End If
End Sub
Private Sub ComboA_KeyUp(KeyCode As Integer, Shift As Integer)
If Not IsCharKeyPressed Then Exit Sub
Me.ComboA.RowSource = "SELECT TableName.FieldName1, TableName.FieldName2 " _
& "FROM TableName " _
& "WHERE (((TableName .FieldName1) like '*'&(Forms!FormName!ComboA.Text)&'*')) or (((TableName .FieldName2) like '*'&(Forms!FormName!ComboA.Text)&'*')); "
Me.ComboA.Dropdown
End Sub
ไม่ทราบว่าเป็นคำตอบที่ต้องการมั้ย
ถ้าจำไม่ผิด คุณ TTT เคยตอบคำถามนี้ไว้ แต่ผมค้นหากระทู้เก่าไม่เจอครับ
