- VB,VBA
-
2008-06-13 - 更新:2017-02-21
この記事は最終更新日から1年以上経過しています。
1 | Private Sub リンク更新_Click() |
2 | On Error GoTo Err_リンク更新 |
3 |
4 | If MsgBox("リンクテーブルを更新します。よろしいですか？", vbYesNo + vbExclamation + vbDefaultButton2, "更新") = vbYes Then |
5 |
6 | Dim db As Database, tdfLinked As TableDef |
7 | Dim TableName As String, ErrName As String |
8 | Set db = CurrentDb |
9 | ErrName = "" |
10 |
11 | TableName = "table1" 'テーブル名を指定する |
12 | Set tdfLinked = db.TableDefs(TableName) |
13 | tdfLinked.Connect = ";DATABASEdb1.mdb" |
14 | tdfLinked.RefreshLink |
15 | Set db = Nothing |
16 |
17 | If Len(ErrName) > 0 Then |
18 | MsgBox ErrName & "のテーブルは更新できませんでした｡" |
19 | Else |
20 | MsgBox "終了しました。", , "確認" |
21 | End If |
22 | End If |
23 |
24 | Exit Sub |
25 |
26 | Err_リンク更新: |
27 | ErrName = ErrName & " " & TableName |
28 | Resume Next |
29 |
30 | End Sub |
この記事がお役に立ちましたらシェアお願いします
10,198 views
Fedoraインストール時にごちゃごちゃになったHDの整理の... (25/02/14)
