Dim qdf As Object

For Each qdf In CurrentDb.QueryDefs
qdf.SQL = qdf.SQL
Next

上段代码加在usysfrmmain窗体加载事件里就行了

此方法是我同事红尘如烟告诉我的，一直在研究他开发的软件作品，获益匪浅，在此非常感谢他