Expand|Select|Wrap|Line Numbers
- Dim filedate As Date
- Dim sSQL As String
- If sXlx <> "" Then
- ' Load Inbond SS >>>
- If DCount("[Name]", "MSysObjects", "[Name] = 'xls_Inbond_staging'") = 1 Then
- DoCmd.DeleteObject acTable, "xls_Inbond_staging"
- End If
- DoCmd.SetWarnings False
- DoCmd.TransferSpreadsheet acLink, 8, "xls_Inbond_staging", my_path & sXlx, False
- DoCmd.SetWarnings True
- filedate = filedatetime(sXlx)
- sSQL = ""
- sSQL = sSQL & "INSERT INTO tbl_Inbond_staging (MBOL) " ' 1
- sSQL = sSQL & "SELECT F30 " ' MBOL
- sSQL = sSQL & "FROM xls_Inbond_staging "
- sSQL = sSQL & "WHERE F30<>'MasterBillNumber' "
- sSQL = sSQL & "AND nz(F30,'')<>'';"
- Call CurrentDb.Execute(sSQL)
- sSQL = ""
- sSQL = sSQL & "UPDATE tbl_Inbond_staging "
- sSQL = sSQL & "SET tbl_Inbond_staging.FileDT = FileDateTime(sXlx);"
- Call CurrentDb.Execute(sSQL)