読者です 読者をやめる 読者になる 読者になる

φ(..) ビボ~6 φ(..)

主にAccess、VBAに関する備忘録

ODBC リンク先変更

MS Access
    Dim cnString    As String
    Dim tdf         As TableDef
            
    cnString = "FILEDSN=n:\Test1.dsn"
    
    For Each tdf In db.TableDefs
        If tdf.Attributes = dbAttachedODBC Then
            tdf.Connect = cnString
            tdf.RefreshLink
        End If
    Next