应如何取得TABLE 的名字

sunredday

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

i have got itcurrentdb.name