hi
so i want to write an if statement to import an excel spreadsheet based on a time and a date
so first criteria is if its a week day or a weekend
second criteria is if its before 12:00
i thought it may be something like
so i want to write an if statement to import an excel spreadsheet based on a time and a date
so first criteria is if its a week day or a weekend
second criteria is if its before 12:00
i thought it may be something like
Code:
if Now() = WeekDay(1) AND < "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "WeekDay AM Run In!A2:J50"
ElseIF Now() = WeekDay(1) AND > "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "WeekDay PM Run In!A2:J50"
ElseIf Now() = WeekDay(2) AND < "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "WeekDay AM Run In!A2:J50"
ELSEIf Now() = WeekDay(2) AND > "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "WeekDay PM Run In!A2:J50"
ElseIf Now() = WeekDay(3) AND < "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "WeekDay AM Run In!A2:J50"
ELSEIf Now() = WeekDay(3) AND > "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "WeekDay PM Run In!A2:J50"
ElseIf Now() = WeekDay(4) AND < "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "WeekDay AM Run In!A2:J50"
ELSEIf Now() = WeekDay(4) AND > "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "WeekDay PM Run In!A2:J50"
ElseIf Now() = WeekDay(5) AND < "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "WeekDay AM Run In!A2:J50"
ELSEIf Now() = WeekDay(5) AND > "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "WeekDay PM Run In!A2:J50"
ElseIf Now() = WeekDay(6) AND < "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "Weekend AM Run In!A2:J50"
ELSEIf Now() = WeekDay(6) AND > "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "Weekend PM Run In!A2:J50"
ElseIf Now() = WeekDay(7) AND < "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "Weekend AM Run In!A2:J50"
ELSEIf Now() = WeekDay(7) AND > "12:00:00" then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, TableName, selectFile(), False, "Weekend PM Run In!A2:J50"
End If