Office中国论坛/Access中国论坛

标题: 应如何取得TABLE 的名字 [打印本页]

作者: sunredday 时间: 2004-6-26 17:48
标题: 应如何取得TABLE 的名字
Dim tb As DAO.TableDef

Dim tbname As String

For Each tb In CurrentDb.TableDefs

tbname = tb.Name

If Right(tbname, 1) = 0 Then

Exit Sub

Else

DoCmd.CopyObject CurrentDb, tbname + "0", acTable, tbname

End If

Next tb

作者: sunredday 时间: 2004-6-26 19:38
i have got itcurrentdb.name

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)