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

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编辑过]

andymark

<>replace.mde 没用过</P>
<>同理窗体、报表的数据源也可以用下面的方法替换掉</P>
<>Dim Str As String<BR>DoCmd.OpenForm "窗体4", acDesign, , , , acHidden<BR>Str = Replace(Forms("窗体4").RecordSource, "BB", "AA")</P>
<P>Forms("窗体4").RecordSource = Str<BR>DoCmd.Close acForm, "窗体4", acSaveYes</P>
<P>新建一个窗体，把上面的代码放在一个按钮的click事件下，加上循环读取所有的窗体（当前窗体除外）</P>
<P>即可替换窗体的数据源。报表参照上面的写法</P>