更新30个表？？？

[lmywonder]

现在有一个ACESS数据库DB1,包含30个相同表结构的表TABLE1、TABLE2、TABLE3、TABLE4...........TABLE30,如果要对此库中的同一列pp更新为1，请问此SQL语句如何写，如何执行？？？

[zhengjialon]

for i=1 to 30
docmd.openqurey "update table" & i & " set pp=1"
next i

大概意思，没调试过

[changechange]

function updateTable()
dim i as long
for i=1 to 30
currentproject.connection.execute "update table" & trim(str(i)) & " set pp=1"
next i
end function
'按F5执行