在ACCESS中，如何在窗体中键入完商品编号后，自动显示商品名称。

Question

恩，是的

Answer 1

大过年的LZ就给5分的红包，回头给我补上呀！
======================================
这个在商品编号的文本框中生成焦点移出事件：
代码如下：
Private Sub 商品ID_LostFocus()
On Error GoTo Err_商品ID_LostFocus

Dim STemp As String
Dim i As Integer

Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
STemp = "select * from 商品资料"
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.MoveFirst
For i = 1 To Rs.RecordCount
If Rs("商品ID") = Me![商品ID] Then
// 主要就是下面这句，自己整整，要弹出就写弹出的，要赋值的就跟下面的差不多！
Me![商品名称] = Rs("商品名称")
i = Rs.RecordCount + 1
Else
Rs.MoveNext
End If
Next i
Set Rs = Nothing

Exit_商品ID_LostFocus:
Exit Sub
Err_商品ID_LostFocus:
MsgBox Err.Description
Resume Exit_商品ID_LostFocus
End Sub
==========================
回头LZ要是不给分，我一定找板砖去，O(∩_∩)O哈哈~！

Answer 2

用查询报表就可以了 你说要在窗体 那就先做好查询报表 然后在窗体上运行这个表

Answer 3

你是还想在此窗体上添加内容吧。意思是：只要键入编号，自动显示商品名称，然后你还要再键入其它的内容，是吧？