Office中国论坛/Access中国论坛

标题: [求助]关于引用控件及格式问题 [打印本页]

---

作者: sbsfhgl    时间: 2007-7-23 20:40
标题: [求助]关于引用控件及格式问题
[attach]25453[/attach]<BR>
< >请问调动窗体点击列表框时运行显示，“编译错误，用户定义类型未定义”，应引用什么控件？</P>
< >上面改好了过后，请问调动窗体点击列表框后运行显示，“运行错误，标准表达式中数据类型不匹配”，我知道是将“员工编号”改为“文本”就好了，如果我非要用“数字”又应改哪儿呢？</P>
< >谢谢为我解答的人。。。</P>
<P > </P>

---

作者: Grant    时间: 2007-7-23 20:53
<>rivate Sub 列表3_AfterUpdate()</P>
<>    Set db = CurrentDb<BR>'        Dim db As DAO.Database        这里重复声明了<BR>'    Dim Zf As DAO.Recordset<BR>    Dim str As String<BR>    <BR>    Set Zf = db.OpenRecordset("select * from 员工 where 员工编号='" &amp; Me.列表3.Column(0) &amp; "'")<BR>    Me.部门1 = Zf("所属部门")<BR>    Me.部门2 = Zf("所属部门")<BR>    Me.职务1 = Zf("职务")<BR>    Me.职务2 = Zf("职务")<BR>    <BR>End Sub</P>

<P>还有就是对DAO的引用 </P>
<P>microsoft dao 3.6 object library</P>
<P>office版本不同引用的控件版本也有所不同</P>

<P>Set Zf = db.OpenRecordset("select * from 员工 where 员工编号=" &amp; Me.列表3.Column(0) &amp; "")</P>
<P>用数值类型的时候SQL语句中应该注意一下符号 单引为字符类型</P>

---

作者: sbsfhgl    时间: 2007-7-23 23:03
<>  Set db = CurrentDb<br>CurrentDb?是什么意思？</P>

[此贴子已经被作者于2007-7-23 15:38:41编辑过]

---

作者: Grant    时间: 2007-7-24 01:13
<DIV class=quote><B>以下是引用<I>sbsfhgl</I>在2007-7-23 15:03:00的发言：</B><BR>
<>  Set db = CurrentDb<BR>CurrentDb?是什么意思？</P><BR></DIV>
<>CurrentDb 指当前数据库</P>

---

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

Powered by Discuz! X3.3