是不是想比如說某個(gè)字段下有王五，輸入一個(gè)王，王五就顯示出來了啊，如果是，字段啟用索引就好了

窗體中有1個(gè)下拉框用于輸入工號(hào)，還有一個(gè)文本框用于顯示姓名。
要求：輸入工號(hào)后，姓名自動(dòng)顯示出來。
(1)方法：在工號(hào)下拉框的“更新后”事件中加入代碼。
例如："工號(hào)"下拉框的行來源是一個(gè)依次包含[工號(hào)]和[姓名]字段的查詢，則在"工號(hào)"下拉框的更新后事件加入如下代碼，就能實(shí)現(xiàn)"姓名"下拉框自動(dòng)填充：
me.姓名=me.工號(hào).column(1)
(2)還有一種辦法：
在工號(hào)下拉框的“更新后”事件中加入代碼。

請(qǐng)把查詢窗體的數(shù)據(jù)記錄源指定到你的表，然后【查詢按鈕】代碼如下：
Private Sub 查詢按鈕_Click()
On Error GoTo Err_查詢查詢_Click
Dim cxtj As String '定義查詢條件
cxtj = "" '設(shè)定初始值為空
If Not IsNull(姓名) Then '判斷【姓名】條件是否有輸入的值
cxtj = cxtj & "([姓名] like '" & 姓名 & "') and "
End If
If Not IsNull(年齡) Then '判斷【年齡】條件是否有輸入的值
cxtj = cxtj & "([年齡] like '" & 年齡 & "') and "
End If
If Not IsNull(單位) Then '判斷【單位】條件是否有輸入的值
cxtj = cxtj & "([單位] like '" & 單位 & "') and "
End If
'如果輸入了條件，那么cxtj的最后肯定有" and "，這是我們不需要的，要用LEFT函數(shù)截掉這5個(gè)字符
If Len(cxtj) > 0 Then
cxtj = Left(cxtj, Len(cxtj) - 5)
Else
MsgBox "提示：" & vbNewLine & "請(qǐng)先輸入查詢條件！", 4096 + 48, "波濤電腦工作室"
Exit Sub
End If
'先在立即窗口顯示一下查詢條件，然后執(zhí)行查詢
Debug.Print cxtj
Filter = cxtj
FilterOn = True
Exit_查詢按鈕_Click:
Exit Sub
Err_查詢按鈕_Click:
MsgBox "提示：" & vbNewLine & "你要查詢的記錄不存在。" & vbNewLine & "請(qǐng)核對(duì)你輸入的條件是否正確。", 4096 + 48, "波濤電腦工作室"
Resume Exit_查詢按鈕_Click
End Sub

精心為ACCESS學(xué)習(xí)者制作的查詢教程! 你可以百度搜索一下 "常用窗體查詢例程1.0",可直接下載示例。