标题: 解决不了的问题，哪位高手帮帮我？ [打印本页] 作者: fruit 时间: 2004-1-8 18:53 标题: 解决不了的问题，哪位高手帮帮我？ 我有两个表1和2[attach]3069[/attach][attach]3070[/attach]
现在我希望能够1、在新建的查询1里显示表1中的数据，但表1的字段名用表2里对应的项目名称。2、让表2里的计算公式在表1生效。3、在表2里有“是否显示”的选项，我新建的查询1里显示字段是表2里为TRUE的选项。
这三个问题如何用VBA和SQL实现，一头雾水，希望各位大哥帮帮小弟的忙，非常急！！！[em24][em24][em24]作者: djt 时间: 2004-1-11 18:34
新建一窗体。.recordsource="select * from 表1"
建 3个文本框控件，txt1,txt2,txt3(标签为lbl1,lbl2,lbl3)
将表2 改为：
控件类型 控件名称 项目代码 项目名称 计算公式 是否显示
L lbl1 工资
t txt1 gz1
Private sub form_load()
dim ctl as control
for each ctl in me.controls
if ctl.type=aclabel then
ctl.caption=dlookup("项目名称","表2","控件名称=‘“ & ctl.name & "'")
endif
if ctl.type=actextbox then
ctl.text=dlookup("计算公式',"表2","控件名称='" & ctl.name & "'")
endif
next作者: fruit 时间: 2004-1-12 05:28
thanks ,解决了我的大问题
另外想问问这位兄弟，我在市面上怎么找不到VBA的书呢？ACCESS的书介绍的都很简单作者: cg1 时间: 2004-1-12 07:26
VBA最好的书就是ACCESS 的帮助，其他都是垃圾作者: fruit 时间: 2004-1-22 00:15
代码有问题，无法执行
另外需要引用的对象是什么（
Private sub form_load()
dim ctl as control
for each ctl in me.controls
if ctl.type（？？？）=aclabel then
ctl.caption（？？？）=dlookup("项目名称","表2","控件名称=‘“ & ctl.name & "'")
endif
if ctl.type=actextbox then
ctl.text（？？？）=dlookup("计算公式',"表2","控件名称='" & ctl.name & "'")
endif
next作者: djt 时间: 2004-1-23 18:06
microsoft acitvex dataobject 2.5 or 2.6 or 2.7作者: fruit 时间: 2004-1-24 05:50
引用了，依然不行