ник: rokin
Вот я сделал, но ошибка- не может найти таблицу источник. Посмотрел Ваш вариант (приаттаченный по ссылке, все пректрасно работает!), вроде бы как одинаково, ан нет ... В чом тут заковырка?
Public Sub CopyServerData()
Dim db As Database, db_new As Database
Dim tb As TableDef
Set db_new = CreateDatabase("C:\_Share\new.mdb")
Set db = OpenDatabase("\\ts\0Data_Metall_\Data_Met.mdb")
For Each tb In db.TableDefs
If tb.Attributes = 0 Then
DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\_Share\new.mdb", acTable, tb.Name, tb.Name
End If
Next
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