Access如何取消输入参数框

[가가]

每次执行到 update set语句时都会弹出输入参数框（MonthlyAutoSMAResult.26）,但是不需要输入任何参数，点击OK就可以继续执行，是什么原因，怎样能不让它出现输入框？？？

Private Sub MonthlyAutoSMAResultDay()
Dim CurrentDay
DoCmd.RunSQL "UPDATE T_Today SET T_Today.Day = Format$([TodayDate],'d') WHERE (((T_Today.TodayDate) Is Not Null))"
CurrentDay = DLookup("[Day]", "T_Today")

Select Case CurrentDay
Case Is = 26

DoCmd.RunSQL "UPDATE Tmp INNER JOIN MonthlyAutoSMAResult ON (Tmp.TLName = MonthlyAutoSMAResult.[Team Leader]) AND (Tmp.Name = MonthlyAutoSMAResult.[Analyst Name]) AND (Tmp.UpdatedBy = MonthlyAutoSMAResult.[MA Initial]) SET MonthlyAutoSMAResult.[26] = [Tmp]![Pending] WHERE (((MonthlyAutoSMAResult.[MA Initial]) Is Not Null))"
DoCmd.RunSQL "UPDATE MonthlyAutoSMAResult SET MonthlyAutoSMAResult.[26] = 0 WHERE (((MothlyAutoSMAResult.[26]) Is Null) AND ((MonthlyAutoSMAResult.[MA Initial]) Is Not Null))"
End Select

End Sub

[가가]

如果在输入框里点击取消就会出现BUG