Office中国论坛/Access中国论坛

标题: 总是提示类型不匹配？ [打印本页]

作者: naitnij 时间: 2004-8-22 21:52
标题: 总是提示类型不匹配？
运行窗体的下拉框的afterupdate的事件后总提示类型不匹配。

dim db as database, rs as recordset, sql as str, st as str

set db = currentdb

str = combo1.value

sql = " select field from tabel where field2 = str"

set rs = db.openrecordset ( sql)

combo2.value = rs!field2

我希望能选取下拉框1的值，下拉框2自动从一个表中带出相应的另一个字段。但是说什么也不行，请大家帮忙，谢谢谢谢！

作者: zhuyiwen 时间: 2004-8-23 06:02
=====>

dim db as DAO.database, rs as DAO.recordset, sql as string, st as string

set db = currentdb

st = combo1.value

sql = "select field from tabel where field2 = '" & st & "'"

set rs = db.openrecordset (sql)

combo2.value = rs!field2

注: 需要引用 Microsoft DAO3.6 Object Library[attach]6238[/attach]

作者: naitnij 时间: 2004-8-24 08:35
好使了，多谢，多谢，一定多光顾你的网站。

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