[求助]表名改了查询怎么办

gdfsslec

<>看到版主有加班，敬佩！赶紧问个问题</P>
<>由于某种原因，我要修改表名（顺便改成英文的），可是查询、窗体、报表都要跟着改，工作量很大，特别是查询。</P>
<>有没有可以偷懒的办法？</P>
<P>请指教！</P>

一点通

查询可在SQL编辑状态下采用查找替换的方法

gdfsslec

谢谢大师!但我没找到,是不是要复制到WORD里面处理?

andymark

<DIV class=quote><B>以下是引用<I>gdfsslec</I>在2007-7-7 11:05:00的发言：</B><br>
<>看到版主有加班，敬佩！赶紧问个问题</P>
<>由于某种原因，我要修改表名（顺便改成英文的），可是查询、窗体、报表都要跟着改，工作量很大，特别是查询。</P>
<>有没有可以偷懒的办法？</P>
<P>请指教！</P></DIV>
<P>更改查询的方法:<br>
<P>Dim StrSql As String    </P>
<P>Dim AQueryDef As QueryDef<br></P>
<P>CurrentDb.QueryDefs.Refresh<br>Set AQueryDef = CurrentDb.QueryDefs("查询1")<br>StrSql = Replace(AQueryDef.Sql, "AA", "BB")<br>AQueryDef.Sql = StrSql<br>
<P><br>
<P>上面的例子是把查询1的AA替换成BB,在这基础上加上循环读取所有查询的语句,即可以自动替换所有的查询<br></P>

[此贴子已经被作者于2007-7-7 21:32:15编辑过]

gdfsslec

<>太厉害了！大师就是大师！</P>
<>谢谢了！这可省了大劲了</P>[em01]

nxjswt

学习下循环和替换

zxzx2733

<DIV class=quote><B>以下是引用<I>一点通</I>在2007-7-7 11:23:00的发言：</B><BR>查询可在SQL编辑状态下采用查找替换的方法</DIV>
<>
<>在查询的SQL编辑状态，好象查找替换工具不能用（VBE中可以）</P>

tmtony

<>使用replace.mde 或 replace.mda这个插件,是国外的大师作品</P>
<><a href="http://www.rickworld.com/download.html" target="_blank" >http://www.rickworld.com/download.html</A></P>
<>我一直用它,整个Access替换,甚至包括启动 自定义属性 代码 表名 窗体等几乎所有对象及属性</P>
<P>不过未注册版有少量限制,但不妨碍使用</P>

tmtony

如果没有记错,在access2002或以上版本,修改表名,查询里引用的表名应该会自动改变,access2003还有个功能可检查相关性

gdfsslec

<>根据andymark版主的指点，我是这样弄的：</P>
<>rivate Sub Replac() <br>Dim tmpQuery As Object <br>Dim strQuery As String <br>Dim AQueryDef As QueryDef <br><br><br>For Each tmpQuery In CurrentData.AllQueries <br>    If Not tmpQuery.name Like "MSys*" Then <br>        strQuery = tmpQuery.name <br>        Set AQueryDef = CurrentDb.QueryDefs(strQuery) <br>        strsql = Replace(AQueryDef.SQL, "客户", "cust") <br>        AQueryDef.SQL = strsql <br>    End If <br>Next tmpQuery </P>
<P>.......................................<br><br>For Each tmpQuery In CurrentData.AllQueries <br>    If Not tmpQuery.name Like "MSys*" Then <br>        strQuery = tmpQuery.name <br>        Set AQueryDef = CurrentDb.QueryDefs(strQuery) <br>        strsql = Replace(AQueryDef.SQL, "cust客户名称", "custname") <br>        AQueryDef.SQL = strsql <br>    End If <br>Next tmpQuery <br><br>End Sub <br></P>

[此贴子已经被作者于2007-7-10 14:09:19编辑过]