Question

我目前正在开展一个正在制作Access数据库的学校项目。

目前，我正在尝试创建弹出式提醒。

Private Sub Form_Load()

Dim OS As Integer

**OS= DCount("[OrderNo]", "[qryOutstandingPayments]",
"[ExpectedPaymentDate] <=Now() AND [Complete] =0")**

    If OS= 0 Then
            Exit Sub
                Else
                    If MsgBox("There are " & OS & " uncompleted jobs" & _
                        vbCrLf & vbCrLf & "Would you like to see these now?", _
                        vbYesNo, "You Have Uncomplete Payments...") = vbYes Then
                        DoCmd.Minimize
                        DoCmd.OpenForm "OutstandingPayments", acNormal
                Else
            Exit Sub
        End If
    End If

End Sub

因此，在我的数据库中，我有一个订单表，其中包含订单明细，订单号和付费（是或否字段）。在付费字段中，客户可以在30天内支付订单，这意味着他们可以下订单而不需要支付30天。

因此，我在我的数据库（OutstandingPayments）中创建了一个查询，其中列出了30天内未付款的所有客户。

上面的代码是尝试创建一个弹出式提醒，以显示有多少客户在25天内没有付款，以及用户是否想知道这些付款是什么。

围绕它的代码行是我面临的问题。我试图做其他几种方法，但我只是不明白它是如何工作的。

我知道围绕着他们的整个两条线很可能是错的，但我无法找到任何帮助我的地方。我想如果我找到一种方法使这条线正确，我可以修复剩下的代码。

谢谢

MS Access弹出提醒

0 个答案: