Access VBA:リンクテーブルã®ãƒªãƒ³ã‚¯å…ƒã‚’VBAã§å¤‰æ›´ã™ã‚‹æ–¹æ³•Accessã®VBAを使ã£ã¦ãƒªãƒ³ã‚¯ãƒ†ãƒ¼ãƒ–ルã®ãƒªãƒ³ã‚¯å…ƒã‚’VBAã§å¤‰æ›´ã™ã‚‹æ–¹æ³•ã«ã¤ã„ã¦è¦šæ›¸ã€‚ リンクã—ã¦ã„るテーブルをæŒã¤ãƒªãƒ³ã‚¯å…ƒãƒ•ã‚¡ã‚¤ãƒ«ã®ä¿å˜å ´æ‰€ãŒå¤‰æ›´ã«ãªã£ãŸã¨ããªã©ã«ä¸€æ‹¬ã—ã¦ãƒªãƒ³ã‚¯ãƒ†ãƒ¼ãƒ–ルã®ãƒ‘スを変更先ã®ãƒ‘スã«æ›¸ãæ›ãˆã‚‹æ–¹æ³•ã€‚ 最近何回ã‹ä½¿ã£ãŸã®ã§è¦šæ›¸ã—ã¦ãŠã。 以下ã«ã‚µãƒ³ãƒ—ルプãƒã‚°ãƒ©ãƒ を記述。 リンクテーブルã®ãƒªãƒ³ã‚¯å…ƒã‚’変更ã™ã‚‹VBAã®ã‚µãƒ³ãƒ—ルプãƒã‚°ãƒ©ãƒ DAOを使用ã—ãŸãƒ—ãƒã‚°ãƒ©ãƒ ãªã®ã§DAOオブジェクトライブラリã®å‚ç…§è¨å®šã‚’忘れãšã«ã€‚ VBAã®ç”»é¢ã§ã€[ツール] - [å‚ç…§è¨å®š]ã§DAOを指定ã—ã¦ãã ã•ã„。 リンクテーブルを指定ã™ã‚‹å ´åˆã®VBAã®ã‚µãƒ³ãƒ—ルプãƒã‚°ãƒ©ãƒ ä»»æ„ã®ãƒªãƒ³ã‚¯ãƒ†ãƒ¼ãƒ–ルを指定ã—ã¦ãƒªãƒ³ã‚¯å…ƒã‚’変更ã™ã‚‹å ´åˆã®ã‚µãƒ³ãƒ—ルプãƒã‚°ãƒ©ãƒ を以下ã«è¨˜è¼‰ã—ã¾ã™ã€‚ Sub Sample01() Dim db As DAO.Database, tb As DAO.TableDef Set db
{{#tags}}- {{label}}
{{/tags}}