Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

关于把字符串 转为代码执行

李伟芳  发表于:2016-04-08 19:12:37  
复制

我要执行的语句就是 :[Forms]![后台匹配数据登记]![销售记录详情缓存].Requery

但是窗体名是一个变量 

我是这样写的

chuangti=“数据” ‘当然我这里是赋值,其实一个变量

yuju="[Forms]![" & chuangti & "]![销售记录详情缓存].Requery"

现在就是要在下一句  执行yuju  这个字符串里面的语句

 该怎么弄呢

在网上看到这句好像比较靠谱,但是呢别人是用在EXCEL上的  有一句不知道怎么写

 Set sp1 = CreateObject("ScriptControl")
    sp1.Language = "VBScript"
    sp1.AddObject "cells", cells     --------  这里该怎么写呢
    ss = "sub test()" & vbCr
    ss = ss & yuju
    ss = ss & " end sub"
    sp1.addcode ss
    sp1.Run "test"

 

Top
西出阳关无故人 发表于:2016-04-08 23:18:47
Forms(chuangti ).controls("销售记录详情缓存").Requery    ' 这样行不行?

李伟芳 发表于:2016-04-09 12:55:17

@西出阳关无故人   真是牛逼啊,  

                           谢谢!完美解决

                           虽然我都没看懂



总记录:2篇  页次:1/1 9 1 :