VBA声明访问问题

这基于组合框combo2(建筑编号)和combo4(性别)的值来设置子窗体的值范围。我重写了一遍，判断条件是一样的，但逻辑似乎更清晰了。

私有子命令6_Click()

Dim StrSql作为字符串

Dim boo2为布尔型，boo4为布尔型

boo 2 =(combo 2 & lt；& gt"")'判断楼号条件是否存在。

boo 4 =(combo 4 & lt；& gt"")'判断性别条件是否存在。

如果boo2和boo4，那么StrSql = " where building number = ' " &；组合& amp而性别= ' " &；组合& amp" "如果两者都存在，则设置双重条件。

如果boo 2和(不是boo 4)那么strsql = " where building number = ' " &；组合& amp" "只存在楼号条件。

If(不是boo 2)和boo 4那么strsql = " where sex = ' " &；组合& amp“”中只存在性别条件。

它们都不存在，那么无条件条款

我。公寓调查。形式。RecordSource ="select * from公寓情况查询" &；StrSql

末端接头