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
Udalit_TABLICU ("Novaya")
End If
Err.Number = 0
End Function
|