Public Function Nalichie_TBL_v_Drugoy_Baze(PutBazi, strTableName) As Boolean
Nalichie_TBL_v_Drugoy_Baze = False
On Error Resume Next
DoCmd.TransferDatabase acImport, "Microsoft Access", PutBazi, acTable, strTableName, "Novaya"
If Err.Number = 0 Then Nalichie_TBL_v_Drugoy_Baze = True
Err.Number = 0
End Function
|