时间戳

首页 > 解决方案 > 虚假输入参数值消息

vba - 虚假输入参数值消息

问题描述

我有一个表单，其中包含一个名为 StartDate 的未绑定短日期字段和一个单击按钮来启动 VBA 代码，如下所示，我得到了 StartDate 的“输入参数消息”。StockTakeDate 也是一个短日期字段。任何有关摆脱该消息的建议都将受到欢迎。

Private Sub cmdInventory_Click()

    strMsg = "Enter StartDate as Today's date or later"

    If Me.[StartDate] < Date Then 
        MsgBox strMsg, ExitSub 
    Else
        Dim strSQL
        strSQL = " UPDATE [Inventory] " _
            & " SET [Inventory].[InStock] = [Inventory].[StockTake] " _
            & " WHERE ([Inventory].[StockTakeDate] >= Me.[StartDate]) "
        DoCmd.RunSQL strSQL

End Sub

标签： vbams-access

解决方案

Me.SomeField使用时不能使用DoCmd.RunSQL。相反，使用Forms!SomeForm!SomeField：

Dim strSQL
strSQL = " UPDATE [Inventory] " _
         & " SET [Inventory].[InStock] = [Inventory].[StockTake] " _
         & " WHERE ([Inventory].[StockTakeDate] >= Forms!MyFormName![StartDate]) "
DoCmd.RunSQL strSQL

推荐阅读