1

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

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

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

提前谢谢你，我在这件事上碰了壁。我将发布我尝试过的内容，但我没有 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
4

1 回答 1

1

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

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

对于 DCount：

Deploy = DCount("*","TheQuery")
于 2013-01-18T10:03:37.177 回答