以下是代码片段： Function ReAttachTable() Dim MyDB As Database, MyTbl As TableDef Dim cpath As String Dim datafiles As String, i As Integer
On Error Resume Next Set MyDB = CurrentDb cpath = trimFileName(CurrentDb.Name) datafiles = "stock-data.mdb" DoCmd.Hourglass True For i = 0 To MyDB.TableDefs.Count - 1 Set MyTbl = MyDB.TableDefs(i) If MyTbl.Attributes = DB_ATTACHEDTABLE And Left(MyTbl.Connect, 1) = ";" Then MyTbl.Connect = ";DATABASE=" & cpath & datafiles MyTbl.RefreshLink If Err Then If vbNo = MsgBox(Err.description & "，继续吗？", vbYesNo) Then Exit For End If End If Next i DoCmd.Hourglass False msgbox "Tables relink finish." End Function
'绝对路径中去掉文件名，返回路径 Function trimFileName(fullname As String) As String Dim slen As Long, i As Long slen = Len(fullname) For i = slen To 1 Step -1 If Mid(fullname, i, 1) = "" Then Exit For End If Next trimFileName = Left(fullname, i) End Function
中查找“Access数据库中数据表的自动重新联接”更多相关内容
中查找“Access数据库中数据表的自动重新联接”更多相关内容
