每次執行到 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
uj5u.com熱心網友回復：
如果在輸入框里點擊取消就會出現BUG
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/84088.html
標籤：Access