Public Sub 链接() 

On Error GoTo LJ_error 
Dim TABNAME As String 
Dim Tab1 As TableDef 
Dim MyPath As String 

MyPath = Application.CurrentProject.Path 
CurrentDb.TableDefs.Refresh'刷新当前数据库中的表对象 
If CurrentDb.TableDefs(15).Connect = ";
DATABASE=" & MyPath & "\出口业务记录_data" &
 FORMs!窗体1!所属年份 & ".mdb" Then 

Exit Sub 

Else 
For Each Tab1 In CurrentDb.TableDefs

TABNAME = Tab1.Name 
If Left(TABNAME, 2) <> "MS" And Left(TABNAME, 2) 
<> "SW" And Left(TABNAME, 2) <> "Us" Then 
If Left(TABNAME, 2) = "Or" Then 
Tab1.Connect = ";DATABASE=" & MyPath & 
"\出口业务记录_dataOrigin.mdb
[1] [2] 下一页