当库存水平达到关键水平时，弹出消息

Question

它的基本功能是，当您登录系统时，当主菜单的负载时，如果某些产品达到临界水平以及按下时，应显示一条消息是的，它应该重定向到显示详细视图的表单。

在这种情况下

    Dim Alert As Integer
    Dim rsAlert As New Adodb.Recordset
    rsAlert.Open "select * from tblproduct , CurrentProject.Connection"
    Alert = DCount("[qty]", "[tblProduct]", " [ROQ]  <= Qty and =0")
    If Alert = 0 Then
    Exit Sub
    Else
     If MsgBox("This/These " & Alert & " product/products have reached their critical levels" & _
     vbCrLf & vbCrLf & "Would you like to see these now?", _
     vbYesNo, "Alert...") = vbYes Then
    DoCmd.Minimize
    DoCmd.OpenForm "frmAlerts", acNormal
    Else
        Exit Sub
    End If
    End If
    End Sub

我遇到的错误是，加载菜单时，它不会显示在关键水平下的产品数量！如果有人能提供帮助，那将是一个很大的帮助！

这是在Microsoft Access中完成的。

Answer 1

进一步评论这是不起作用的。创建一个列表框并在库存短缺的情况下填充它；

Dim rsAlert         As Recordset
Dim sSql            As String
sSql = "SELECT ProductID, Description, OtherFields, GoHere FROM tblproduct WHERE ROQ >= QTY AND ROQ > 0"
Set rsAlert = CurrentDb.OpenRecordset(sSql, dbOpenSnapshot)
If Not rsAlert.EOF Then                    'There are records (shortages) so unhide and poulate the list box (called lstShortageListBox)
    Me.lstShortageListBox.Visible = True
    Me.lstShortageListBox.RowSource = sSql
Else
    Me.lstShortageListBox.Visible = False
End If
' Tidy Up
rsAlert.Close
Set rsAlert = Nothing

显然要确保记录集的标准正确 - 我已经对此进行了一些猜测。