查询打不开怎么获取某个查询的代码

我做了一个颇为复杂的查询，本来还是好好的，能够正常使用和修改。现在过了半个月时间，想再修改它时却怎样都打不开SQL编辑环境，直接运行它时也不行。但调用它的其他视图却能工作。后来我打开access的系统表把原来的SQL语句复制出来，改了种写法重新保存一次，新的视图暂时是正常的。但我还是想直接修改旧的视图，担心新视图过一段时间后又会出现这种情况。请问各位高手遇过这种情形吗？我应该怎样解决？
---------------------------------------------------------------

你可以直接把这个查询的sql代码debug.print出来

获取某个查询的代码:

Function DisplaySQL()
Dim q As DAO.QueryDef
For Each q In CurrentDb.QueryDefs
Debug.Print q.Name & vbCrLf & "--------" & vbCrLf & q.SQL
Next
End Function

---------------------------------------------------------------

经常遇到，（可能我涉及到的查询太复杂了）
尤其是从97版转到2000时，以前的复杂查询有时可以运行，但SQL界面打不开,甚至也不能运行，有时倒可打开，这可能是字符串太长（本身就有限制），我试过将其中的语句多分成几个计算字段，或者写成函数调用，否则会不稳定。