解决不了的问题，哪位高手帮帮我？

fruit

我有两个表1和2
现在我希望能够1、在新建的查询1里显示表1中的数据，但表1的字段名用表2里对应的项目名称。2、让表2里的计算公式在表1生效。3、在表2里有“是否显示”的选项，我新建的查询1里显示字段是表2里为TRUE的选项。
这三个问题如何用VBA和SQL实现，一头雾水，希望各位大哥帮帮小弟的忙，非常急！！！[em24][em24][em24]

djt

新建一窗体。.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

thanks ,解决了我的大问题
另外想问问这位兄弟，我在市面上怎么找不到VBA的书呢？ACCESS的书介绍的都很简单

cg1

VBA最好的书就是ACCESS 的帮助，其他都是垃圾

fruit

代码有问题，无法执行
另外需要引用的对象是什么（
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

microsoft acitvex dataobject 2.5 or 2.6 or 2.7

fruit

引用了，依然不行

zhuyiwen

与引用无关!

zhuyiwen

   ......
   if ctl.type=aclabel then
         ctl.caption=dlookup("项目名称","表2","控件名称=‘“ & ctl.name & "'")
   endif
   ......

改成:

   if ctl.type=aclabel then
         ctl.caption=dlookup("项目名称","表2","控件名称='" & ctl.name & "'")
   endif

fruit

改过了，不能执行，why?
打开窗体，显示“对象不支持该属性和方法”
能否帮我做个例子，让我看一下？谢谢