Question

我正在尝试在Microsof Access中编写一些VBA（如果VBA是要走的路？）。我需要的是一条弹出消息，提醒某人下周内正在进行部署。

我的表名为Tasks_List，有一个名为Deployment_Date的字段。

我认为我需要的是为初始表单组合一个OnLoad。它将检查今天的日期并检查Deployoment_Date并显示弹出窗口，如果在下周内发生任何部署。弹出窗口应该显示正在发生的部署，例如Initiating_System，Deployment_Date和Description。

提前谢谢你，我已经打了一堵砖墙。我会发布我尝试过但我没有VBA知识而且非常糟糕。

我尝试了什么：

Private Sub Report_Open(Cancel As Integer)
Dim varX As Variant
varX = DLookup(Tasks_List.[Deployment_Date]< Now - 20)
If varX > 0 Then GoTo line2


line1: msgbox "Deployment approacing for: "

line2:


End Sub

编辑：在下面的帮助之后，我为此创建了一个查询和表单。使用Dcount：

Private Sub Detail_OnLoad()
    Deploy = DCount("*", "Tasks_List_Popup_Query")

    If Deploy <> 0 Then
        DoCmd.OpenForm "Tasks_List_Popup_Query_Form"
        DoCmd.GoToRecord , , acNewRec

    End If
End Sub

Answer 1

您不需要任何VBA。创建一个查询，选择相关记录并根据查询创建表单。您可以使用DCount确保在启动表单之前有记录，这需要一点VBA。

SELECT * FROM Tasks_List WHERE [Deployment_Date]< (Date - 20)

对于DCount：

Deploy = DCount("*","TheQuery")

Microsoft Access VBA弹出警报日期即将到来

1 个答案: