Office中国论坛/Access中国论坛

标题: [求助]如何在窗体中根据表的关键字段自动填充其他字段 [打印本页]

作者: karlmarx 时间: 2007-1-31 18:10
标题: [求助]如何在窗体中根据表的关键字段自动填充其他字段
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">

作者: 一点通 时间: 2007-1-31 23:14
如果窗体的控件绑定表的话,只在数据源的准则中写入条件就可以了,如果不绑定,可用DLOOKUP()来实现

作者: karlmarx 时间: 2007-2-1 01:07
感谢一点通管理员的指导

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

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

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

作者: 一点通 时间: 2007-2-1 01:22
已经说得很明了,不明的话请上传示例

作者: wu8313 时间: 2007-2-2 03:20
写了一个简单的例子，你看看是否可以。
[attach]22940[/attach]

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

作者: karlmarx 时间: 2007-2-2 18:42
多谢热心的wu8313,我正在学习!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)