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

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

我的表名为Tasks\u List，有一个字段名为Deployment\u Date

我想我需要的是为初始表单准备一个OnLoad。它将检查今天的日期，并通过Deployoment_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 

私有子报表\u打开（取消为整数）
Dim-varX作为变体
varX=DLookup（任务列表。[部署日期]0，则转到第2行
第1行：msgbox“部署接近：”
第2行：
端接头

编辑：在下面的帮助之后，我已经为此创建了一个查询和表单。使用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

Private Sub-Detail_OnLoad（）
Deploy=DCount（“*”，“任务\列表\弹出窗口\查询”）
如果部署0，则
DoCmd.OpenForm“任务列表弹出查询表单”
文件编号：GoToRecord，acNewRec
如果结束
端接头

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

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

---

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

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

---

嗨，首先非常感谢！我现在有一个查询，我已经从中创建了表单。我在介绍表单上尝试了代码部分（加载时的默认设置）：添加到上面的问题！然而，这似乎没有执行。有一些可能性。您知道如何设置断点和单步执行代码吗？您可以通过选择合适的行来设置断点，比如说

deploy=

ans按F9，现在打开运行代码的表单。光标应该停在断点处，如果没有，这就是问题之一，请返回给我。如果有，请使用即时窗口（ctrl+G）检查Deploy是否包含合适的值，首先按F8运行该行，然后键入

？Deploy

，并在即时窗口中单击return，如果有问题，请与我联系。再次感谢。我把代码放到一个按钮上，它正在正确执行！但是，我似乎无法触发表单Dashboard\u Home的“OnLoad”。我会继续黑客攻击。谢谢你提供的调试技巧。自从我看到它以来，这已经是一段漫长的时间了。非常感谢！非常欢迎。确保加载行中包含

[Event Procedure]

Form\u Load（）而不是Form\u OnLoad（）似乎是诀窍，但您对[Event Procedure]的建议是解决问题的关键。：）明亮的嗨，首先非常感谢！我现在有一个查询，我已经从中创建了表单。我在介绍表单上尝试了代码部分（加载时的默认设置）：添加到上面的问题！然而，这似乎没有执行。有一些可能性。您知道如何设置断点和单步执行代码吗？您可以通过选择合适的行来设置断点，比如说

deploy=

ans按F9，现在打开运行代码的表单。光标应该停在断点处，如果没有，这就是问题之一，请返回给我。如果有，请使用即时窗口（ctrl+G）检查Deploy是否包含合适的值，首先按F8运行该行，然后键入

？Deploy

，并在即时窗口中单击return，如果有问题，请与我联系。再次感谢。我把代码放到一个按钮上，它正在正确执行！但是，我似乎无法触发表单Dashboard\u Home的“OnLoad”。我会继续黑客攻击。谢谢你提供的调试技巧。自从我看到它以来，这已经是一段漫长的时间了。非常感谢！非常欢迎。确保加载行中包含

[Event Procedure]

Form\u Load（）而不是Form\u OnLoad（）似乎是诀窍，但您对[Event Procedure]的建议是解决问题的关键。：）明亮的