Private Sub Command36_Click()
DoCmd.SetWarnings False
Dim ImportDate As String
ImportDate = InputBox("Please enter load date")
Set db = CurrentDb
Set rs = db.openrecordset("UploadDate")
With rs
'rs.Edit
rs.AddNew
rs!UploadDate = ImportDate
rs.Update
rs.Close
End With
DoCmd.OpenQuery ("Qry_Delete_TBL_RepRoster_Temp")
DoCmd.OpenQuery ("Qry_Delete_TBL_RepRoster")
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "TBL_RepRoster_Temp", "S:\Magenta\Sanofi Pasteur\Sales Lead Program\Rep Rosters Archive\Field Roster " & ImportDate & ".xls", True, "A:V"
DoCmd.OpenQuery ("Qry_Append TBL_RepRoster_Temp_to_TBL_Rep_Roster")
Uploadtxtbox = " The last uploaded RepRoster was: " & ImportDate
MsgBox ("RepRoster Successfully Updated!")
DoCmd.SetWarnings True
End Sub
Bookmarks