在VBA中怎样表达查询结果然后提示

simon　发表于：2016-04-16 08:52:26 　

我想在窗体加载前提示有未导出的还没审核的单据,不知在VBA中怎样写.请教各位.谢谢

查询1:如果还有单据未审核,就提示先审核单据后才能做导出操作.

SELECT 出库单.审核人, 出库单.导出, 出库单.分店
FROM 出库单
WHERE (((出库单.审核人) Is Null) AND ((出库单.导出)=False) AND ((出库单.分店)=[TempVars]![fendian]));

朱先生发表于：2016-04-16 10:12:42

Private Sub Form_Load()
Dim JS As String
JS = DCount("XX", "出库单", "ISNULL([审核人]) AND [导出]=0 AND [分店]='[TempVars]![fendian]’ ")
If JS > 0 Then

MsgBox "有未审核的单据", vbOKOnly, ""
Else
MsgBox "无"
End If

End Sub

XX为另外字段，[TempVars]![fendian]表示的内容应该是出库单的分店名称，在你的查询中看不出内容是什么

simon 发表于：2016-04-16 11:03:07

谢谢朱老师答复,不加全局变量可以通过,加上全局变量[TempVars]![fendian]就不行了,这个全局变量是数字,是分店的编号.

显示字符串语法错误.

朱先生发表于：2016-04-16 11:31:28

分店的编号在表中没有啊

simon 发表于：2016-04-16 11:44:29

有的,做这个全局变量是用户登录的时候记录的,登录人与分店有关系,一登录系统就记住了她的分店编号.这个查询的结果是所有未导出的未审核的这个分店的出库单.

朱先生发表于：2016-04-16 14:40:51

慢慢调试对 [TempVars]![fendian] 的引用吧

simon 发表于：2016-04-16 15:33:48

试了多种方法都不行,最后不要分店筛选了,估计dcount函数不能用变量作为条件,谢谢朱老师指教.

总记录：6篇页次：1/1 9 1 :

Access交流中心