ник: rokin
Черт, я что-то недогоняю, сделал через объект application и все равно та же ошибка
Public Sub CopyServerData()
Dim db As Database, db_new As Database
Dim tb As TableDef
Dim appAccess As New Access.Application
Set db_new = CreateDatabase("C:\_Share\new.mdb")
appAccess.OpenCurrentDatabase ("\\ts\0Data_Metall_\Data_Met.mdb")
Set db = appAccess.CurrentDb
For Each tb In db.TableDefs
If tb.Attributes = 0 Then
‘вот тут и происходит ошибка:
Объект <имя> не найден ядром базы данных Microsoft Jet. Проверьте существование объекта и правильность имени и пути. (Ошибка 3011)
DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\_Share\new.mdb", acTable, tb.Name, tb.Name
End If
Next tb
Set db_new = Nothing
DBEngine.CompactDatabase "C:\_Share\new.mdb", "C:\_Share\Data_Met_" & Str(Day(Date)) & "_" & _
Str(Month(Date)) & "_" & Str(Year(Date)) & "_" & Str(Hour(Time)) & ".mdb"
Kill "C:\_Share\new.mdb"
End Sub