在Access数据库窗体中怎么实现一个文本框中输入内容，在另一个文本框中自动显示其内容
在Access数据库窗体中怎么实现一个文本框中输入内容，在另一个文本框中自动显示其内容。或许这个问题没表述清楚！如在窗体中有图号和单件定额这个两项内容，怎样才能实现输入了图号的内容，在单件定额中自动显示出对应的内容呢？！请各位高手帮我指点一二！

------解决方案--------------------
假设你的图号文本框控件名为：txt图号

则在图号控件的更新后事件中填写代码，如下：

Private Sub txt图号_AfterUpdate()
Me.txt单件定额.Value = DLookup( "单件定额 ", "表名 ", "图号= ' " & Me.txt图号 & " ' ")

End Sub

------解决方案--------------------
--或者：

假设你的图号文本框控件名为：txt图号

则在图号控件的更新后事件中填写代码，如下：

Private Sub txt图号_AfterUpdate()

Dim Rst As New ADODB.Recordset

Rst.Open "select 单件定额 from 表名 where 图号= ' " & Me.txt图号 & " ' ", CurrentProject.Connection

If Not Rst.EOF Then
Me.txt单件定额.Value = Rst!单件定额
Else
Me.txt单件定额.Value = Null
End If

End Sub
------解决方案--------------------

--> 工具菜单
--> 宏
--> Visual Basic 编辑器
--> 在新打开的Microsoft Visual Basic 代码窗口中，“工具”菜单
--> “引用”菜单项
--> 选中“Microsoft ActiveX Data Objects 2.* Library”，确定即可。

------解决方案--------------------
提示：编译错误 用户定义类型未定义 这句被选重“Rst As New ADODB.Recordset”
没有引用ADO，进入窗体-> 设计-> 代码-> 引用-> Microsoft ActiveX Data Objects 2.* Library
------解决方案--------------------
Access 2000、Access XP、Access 2003都默认引用了ADO.*。

出现这种错误，可能是丢失了引用。

重新引用一下即可：

--> 工具菜单
--> 宏
--> Visual Basic 编辑器
--> 在新打开的Microsoft Visual Basic 代码窗口中，“工具”菜单
--> “引用”菜单项
--> 选中“Microsoft ActiveX Data Objects 2.* Library”，确定即可。