時間：2006-11-23 23:19 來源：Access開發(fā)者 作者：朱亦文 閱讀：次

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

(責任編輯：admin)

上一篇：如何通過代碼判斷一條記錄是否被選擇
下一篇：傳英特爾向對手威盛施壓 要求其退出CPU市場

• ·VBA編程常用語句300句
• ·SQL基礎:常用SQL語句詳解 （轉）
• ·Sql和Access操作數(shù)據(jù)庫結構的常用Sql
• ·多表查詢技巧
• ·ACCESS學習日記
• ·Oracle數(shù)據(jù)庫EXP、IMP命令語句使用方法
• ·SQL注入的高級應用ACCESS篇！
• ·MS Jet SQL for A
• ·代碼打開頁面設置
• ·龍芯千元電腦配置曝光 商用化產品
• ·神州數(shù)碼爭搶國內IT人才 開始校園
• ·聯(lián)合證券研究所：IT專業(yè)連鎖 家電
• ·傳臺灣新浪將出售 新浪官方并未否
• ·朗科起訴索尼跨國專利案和解 雙方
• ·傳英特爾向對手威盛施壓 要求其退
• ·批量去除通過ODBC連接到SQL Serve