Popup-Meldung, wenn die Lagerbestände die kritische Stufe erreichen

Question

Die grundlegende Funktion davon ist, dass wenn Sie sich beim System anmelden und beim Laden des Hauptmenüs eine Meldung angezeigt wird, wenn bestimmte Produkte die kritische Stufe erreicht haben und Wenn Sie Ja drücken, sollte es zu dem Formular umgeleitet werden, wo es eine Detailansicht zeigt.

In diesem Fall wird die Menge in der Hand ist „Menge“ und kritische Stufe ist „ROQ“ (Feldnamen in der tblProduct)

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 

Der Fehler ich erhalte, ist, dass, wenn mein Menü Menü lädt es doesn‘ t Zeigt die Anzahl der Produkte an, die unter dem kritischen Wert liegen! Wenn jemand helfen kann, wäre das eine großartige Hilfe!

Dies wurde in Microsoft Access vorgenommen.

Answer 1

Weiter zu meinem Kommentar ist dies ein nicht zur Arbeit gehen. Erstellen Sie ein Listenfeld und füllen Sie es mit den Fehlmengen, so etwas;

Offensichtlich stellen Sie sicher, dass die recordsets Kriterien richtig sind - ich habe einige Vermutungen über dieses Bit gemacht.