如果值大于0，则显示消息框

Question

我有一个表单，允许用户转到各种其他表单，因此它是一个＆＃34;主表单＆＃34;。如果某个报表上的任何值大于0，我希望显示一个消息框。我知道如何生成消息框。如果报表中的任何值大于0，则如何在表单上显示该消息框？

Answer 1

报告将由我假设的查询驱动，因为大多数是。所以，我要做的是打开查询并检查大于0的值。

假设您的报告由名为MyQuery的查询驱动。我将它添加到适当位置的表单中（可能是报表的按钮点击事件？）：

Dim db as Database
Dim rec as Recordset

Set db = CurrentDB
Set rec = db.OpenRecordSet("Select * from MyQuery where SomeField > 0")

If rec.EOF Then
  ...Do whatever, or ignore because no values are greater than 0
Else
  MsgBox "At least one value in the field SomeField is greater than 0"
EndIf

这是您可以严格使用VBA处理它的方法。