Application.SetOption "confirm action queries", False
DoCmd.OpenQuery "Q1"
Application.SetOption "confirm action queries", True
قبل و بعد از اجرای Query دستورات 1و 3 را تایپ کن
Application.SetOption "confirm action queries", False
DoCmd.OpenQuery "Q1"
Application.SetOption "confirm action queries", True
قبل و بعد از اجرای Query دستورات 1و 3 را تایپ کن