DoCmd.TransferText |
DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM " & strImportTable DoCmd.SetWarnings True DoCmd.TransferText acImportDelim, "spec_HomeCredit_TXT", strImportTable, strInputFileName DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE " & strImportTable & " SET PostalType = 'NOR'" 'normal package DoCmd.SetWarnings True