| Public Sub RenameLinkTableName() Dim dbs As Database Dim tdf As TableDef Dim strNewName As String Dim strName As String Set dbs = CurrentDb For Each tdf In dbs.TableDefs strName = tdf.Name If Ucase(Left(strName, 3)) = "DBO" Then strNewName = Right(strName, Len(strName) - 4) tdf.Name = strNewName tdf.RefreshLink End If Next End Sub |
|站長郵箱|小黑屋|手機(jī)版|Office中國/Access中國
( 粵ICP備10043721號(hào)-1 )
GMT+8, 2025-7-13 08:19 , Processed in 0.072460 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.
