Межет кому то пригодиться мой опыт с импортом / экспортом данных по условию.

ничего более толкового не придумал, чем такой код:

=================================================

Private Sub Knopka001_Click()


On Error GoTo Err_Knopka001_Click


Dim dbs777 As Database


DoCmd.TransferDatabase acImport, "Microsoft Access", "S:\z_mtf.mdb", acTable, "B1_part", "B1_part", False
DoCmd.TransferDatabase acImport, "Microsoft Access", "S:\z_mtf.mdb", acTable, "B2_tovar", "B2_tovar", False
DoCmd.TransferDatabase acImport, "Microsoft Access", "S:\z_mtf.mdb", acTable, "s00_firma", "s00_firma", False
DoCmd.TransferDatabase acImport, "Microsoft Access", "S:\z_mtf.mdb", acTable, "s01_lot", "s01_lot", False



Set dbs777 = CurrentDb()
dbs777.Execute "DELETE FROM B1_part WHERE (((B1_part.B1_vladelets)<>'MTF_Logistics_AS'));", dbFailOnError
dbs777.Execute "DELETE FROM B2_tovar WHERE (((B2_tovar.B2_vladelets)<>'MTF_Logistics_AS'));", dbFailOnError
dbs777.Execute "DELETE FROM s00_firma WHERE (((s00_firma.s00_firma_vladelets)<>'Klient_A'));", dbFailOnError
dbs777.Close


If Dir("c:\11\data.mdb") <> "" Then Kill "c:\11\data.mdb"
FileCopy "S:\0_DATA.mdb", "c:\11\data.mdb" ' - чистый шаблон базы


DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\11\data.mdb", acTable, "B1_part", "B1_part", False
DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\11\data.mdb", acTable, "B2_tovar", "B2_tovar", False
DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\11\data.mdb", acTable, "s00_firma", "s00_firma", False
DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\11\data.mdb", acTable, "s01_lot", "s01_lot", False


Set dbs777 = CurrentDb()
dbs777.TableDefs.Delete "B1_part"
dbs777.TableDefs.Delete "B2_tovar"
dbs777.TableDefs.Delete "s00_firma"
dbs777.TableDefs.Delete "s01_lot"
dbs777.TableDefs.Refresh
dbs777.Close


MsgBox ("Импорт данных в базу c:\11\data.mdb Для Klient_A выполнен. ")


Exit_Knopka001_Click:
Exit Sub

Err_Knopka001_Click:
MsgBox Err.Description
Resume Exit_Knopka001_Click

End Sub
=======================================================

Большое спасибо всем кто откликнулся за помощь...


Если ктото может сделать проще, буду рад за отклик и комментарий...