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

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

請把查詢窗體的數據記錄源指定到你的表，然后【查詢按鈕】代碼如下：
Private Sub 查詢按鈕_Click()
On Error GoTo Err_查詢查詢_Click
Dim cxtj As String '定義查詢條件
cxtj = "" '設定初始值為空
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函數截掉這5個字符
If Len(cxtj) > 0 Then
cxtj = Left(cxtj, Len(cxtj) - 5)
Else
MsgBox "提示：" & vbNewLine & "請先輸入查詢條件！", 4096 + 48, "波濤電腦工作室"
Exit Sub
End If
'先在立即窗口顯示一下查詢條件，然后執行查詢
Debug.Print cxtj
Filter = cxtj
FilterOn = True
Exit_查詢按鈕_Click:
Exit Sub
Err_查詢按鈕_Click:
MsgBox "提示：" & vbNewLine & "你要查詢的記錄不存在。" & vbNewLine & "請核對你輸入的條件是否正確。", 4096 + 48, "波濤電腦工作室"
Resume Exit_查詢按鈕_Click
End Sub

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