[求助]如何在窗体中根据表的关键字段自动填充其他字段

karlmarx

A窗体中“代理商ID”是A表的关键字，在A窗体输入“代理商ID”后，窗体能够根据“代理商ID”自动到A表中寻找同一记录其他字段的数据，填充到窗体下面的字段中。

教材中的办法是，给窗体中组合框“代理商ID”的控件写了一个LostFocus(失去焦点)的事件，及当“组合框“代理商ID””失去焦点时，就在A表中查询同一记录其他字段的数据，填充到窗体下面的字段中。

教材失去焦点事件的子程序如下：（我运行后有错误），请高手指点！！

Private Sub 代理商ID_LostFocus()

Dim con As Object

Dim rs As New ADODB.Recordset

Set con = Application.CurrentProject.Connection

strsql = "select * from 代理商基本信息 where 代理商ID=" + Me.代理商ID.Text + ""

rs.Open strsql, con, 1, adLockBatchOptimistic

If rs.RecordCount > 0 Then

   Form.AllowEdits = True

   Me.姓名.SetFocus

   Me.姓名.Text = rs("姓名")

   Me.单位.SetFocus

   Me.单位.Text = rs("单位")

   Me.职务.SetFocus

   Me.职务.Text = rs("职务")

   Me.省份.SetFocus

   Me.省份.Text = rs("省份")

   Me.地区.SetFocus

   Me.地区.Text = rs("地区")

   Me.品种ID.SetFocus

   Me.品种ID.Text = rs("品种ID")

   Me.价格.SetFocus

   Me.价格.Text = rs("价格")

   Me.手机.SetFocus

   Me.手机.Text = rs("手机")

   Me.电话.SetFocus

   Me.电话.Text = rs("电话")

   Me.传真.SetFocus

   Me.传真.Text = rs("传真")

   Me.地址.SetFocus

   Me.地址.Text = rs("地址")

   Me.邮编.SetFocus

<FONT face="Times New Roman">  

一点通

如果窗体的控件绑定表的话,只在数据源的准则中写入条件就可以了,如果不绑定,可用DLOOKUP()来实现

karlmarx

感谢一点通管理员的指导

窗体是通过向导从表中创建的，窗体的字段都直接来自于表，应该算是“控件绑定表”吧

请问任何在数据源的准则中写入条件,如果不绑定,怎样用DLOOKUP()来实现

小生我1月10日开始自学用ACCESS编写数据库，功力浅薄，请包括管理员在内的高手多多指教！

一点通

已经说得很明了,不明的话请上传示例

wu8313

写了一个简单的例子，你看看是否可以。

[此贴子已经被作者于2007-2-1 19:20:37编辑过]

karlmarx

多谢热心的wu8313,我正在学习!