谢谢楼上的回复。
我想做的就是一个数据库已经结存了其实我就是备份出来了,然后把原来的数据库Data.mdb里的一些表清空了。结存数据库放在Balance文件夹下,名字叫:AB2013. 现在当前数据库要引用 AB2013里的查询结果,比如说入库的纪录一些记录。
是不是把数据库更新到AB2013,然后再查询把结果存回当前数据库Data.mdb里的表,然后再把后台数据库更新回Data.mdb? 是这样一个过程吗?不熟都是找的一些论坛里的资料改来改去的!
Public Sub LinkTableReflash(ID As Long)
On Error Resume Next
Dim dbs As DAO.Database
Set dbs = CurrentDb
Dim tdf As DAO.TableDef
Dim NewDb As String
Dim strPassword As String
strPassword = "83668269"
If ID < Format(Now(), "yyyy") Then
NewDb = CurrentProject.Path & "\Balance\AB" & ID & ".mdb"
Else
NewDb = CurrentProject.Path & "\Data.mdb"
End If
For Each tdf In CurrentDb.TableDefs
' If tdf.Attributes = dbAttachedTable Then
dbs.TableDefs(tdf.Name).Connect = "MS Access;PWD=" & strPassword & ";" & "DATABASE=" & NewDb
dbs.TableDefs(tdf.Name).RefreshLink
End If
Next tdf
End Sub