Each time to update the set statement will pop-up box input parameters (MonthlyAutoSMAResult. 26), but I don't need to enter any parameters, click OK to continue, is what reason, how can not let it appear input box???????

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")

The Select Case CurrentDay
The 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 the Select

End Sub

CodePudding user response:

If the click cancel will appear in the input box BUG