设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1650|回复: 6

[Access本身] 请教一个VBA问题

[复制链接]

点击这里给我发消息

发表于 2015-7-11 15:35:35 | 显示全部楼层 |阅读模式
本帖最后由 a30088 于 2015-7-11 15:40 编辑

下面的SQL语句用组合框VBA代码如何写成

SELECT qrykhb.kID, qrykhb.kh, qrykhb.lxmc, qrykhb.lxdh
FROM qrykhb
WHERE (((qrykhb.lxmc)="销售商" Or (qrykhb.lxmc)="加工厂")); 如何把这句加上去.


写成如下
Me.kID.RowSource =
样例:  Me.kID.RowSource = " SELECT KID,kh,lxmc,lxdh FROM qrykhb ORDER BY kh"
发表于 2015-7-11 15:42:34 | 显示全部楼层
kID控件属性里面选择更新后或者加载数据,将Me.kID.RowSource = " SELECT KID,kh,lxmc,lxdh FROM qrykhb ORDER BY kh"放进去,ok

点击这里给我发消息

 楼主| 发表于 2015-7-11 15:49:09 | 显示全部楼层
本帖最后由 a30088 于 2015-7-11 15:50 编辑
yanwei82123300 发表于 2015-7-11 15:42
kID控件属性里面选择更新后或者加载数据,将Me.kID.RowSource = " SELECT KID,kh,lxmc,lxdh FROM qrykhb OR ...

谢谢,我是说把后面这句"WHERE (((qrykhb.lxmc)="销售商" Or (qrykhb.lxmc)="加工厂")); "加到" SELECT KID,kh,lxmc,lxdh FROM qrykhb ORDER BY kh",怎么写VB代码.
发表于 2015-7-11 15:56:10 | 显示全部楼层
本帖最后由 roych 于 2015-7-11 16:02 编辑

order by 是写在后面的。一般应该这样写:
Me.kID.RowSource = " SELECT KID,kh,lxmc,lxdh FROM qrykhb  &  " WHERE (((lxmc)='销售商' Or (lxmc)='加工厂')) ORDER BY kh"【注意:这里把销售商、加工厂改为单引号了】如果是变量的话,可以这样写【这里去掉了小括号】:
Me.kID.RowSource = " SELECT KID,kh,lxmc,lxdh FROM qrykhb " &  " WHERE lxmc='" & me.销售商 & " Or lxmc='" & me.加工厂 &"' ORDER BY kh"
me.销售商 和 me.加工厂 对应窗体中的控件。

点击这里给我发消息

 楼主| 发表于 2015-7-11 16:13:48 | 显示全部楼层
本帖最后由 a30088 于 2015-7-11 16:50 编辑
roych 发表于 2015-7-11 15:56
order by 是写在后面的。一般应该这样写:
Me.kID.RowSource = " SELECT KID,kh,lxmc,lxdh FROM qrykhb  & ...

谢谢!按以上,出错?file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\906366881\QQ\WinTemp\RichOle\]LQCX779DZ72J%A1`VP7OYD.png
发表于 2015-7-11 16:26:28 | 显示全部楼层
a30088 发表于 2015-7-11 16:13
谢谢!按以上,出错?

不好意思,第一句漏了个引号,应该是:
Me.kID.RowSource = " SELECT KID,kh,lxmc,lxdh FROM qrykhb " &  " WHERE (((lxmc)='销售商' Or (lxmc)='加工厂')) ORDER BY kh"

点击这里给我发消息

 楼主| 发表于 2015-7-11 16:44:18 | 显示全部楼层
谢谢roych的指点,谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 04:38 , Processed in 0.096528 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表