have created a search form with several fields to search on and it works wonderfully after watching some of your great videos. There are two date searches: Date1 and Date2 so that I can search for records between dates. I have also created several buttons to automatically add the correct dates for month and year to date. I have also created a button to input the dates for last week. I have used the following code and wondered if there is a more elegant block of code that would be shorter? This code worked on Monday and Tuesday, but now it is putting 29/12/1899 into the Date1 field.  Here is my code:

    Select Case LNumber
  
    Case Weekday(Date) = 2
        Date1 = Date - Date - 1
        Date2 = Date - Weekday(Date, vbMonday)
    Case Weekday(Date) = 3
        Date1 = Date - 8
        Date2 = Date - Weekday(Date, vbMonday)
    Case Weekday(Date) = 4
        Date1 = Date - 9
        Date2 = Date - Weekday(Date, vbMonday)
    Case Weekday(Date) = 5
        Date1 = Date - 10
        Date2 = Date - Weekday(Date, vbMonday)
    Case Weekday(Date) = 6
        Date1 = Date - 11
        Date2 = Date - Weekday(Date, vbMonday)
    Case Weekday(Date) = 7
        Date1 = Date - 12
        Date2 = Date - Weekday(Date, vbMonday)
    Case Weekday(Date) = 1
        Date1 = Date - 13
        Date2 = Date - Weekday(Date, vbMonday)
      
End Select