показывать запись свыше 10 дней с момента создания с использованием доступа sql vba

Question

это то, что я делаю прямо сейчас, это длинный отрезок

Set rs = db.OpenRecordset("SELECT * FROM COMPUTER_LIST")
With rs
    Do Until .EOF
        DateDiffValue = DateDiff("d", CDate(!created_date), Date)
        If DateDiffValue > 10 And DateDiffValue < 21 Then
            'Display the Record Here using Listview
        End If
        .MoveNext
    Loop
End With

как я могу сделать как быстрый запрос?

Set rs = db.OpenRecordset("SELECT * FROM COMPUTER_LIST
    WHERE created_date > Datediff('d', created_date,Date()) AND\
          created_date < DateAdd('d', 20,created_date)")

Answer 1

Я вообще не понимаю название поста.Вы должны написать свой пост, как будто вы пытаетесь объяснить свою проблему ребенку.Не только потому, что дети одни из лучших программистов.Также важно использовать заглавные буквы и пунктуацию.

Ваш код предполагает, что вы хотите выбрать все записи от 10 до 21 дня назад.

Dim SQL As String
SQL = "SELECT COMPUTER_LIST.*" & vbNewLine & _
      "FROM COMPUTER_LIST" & vbNewLine & _
      "WHERE (((DateValue([created_date]))>=Date()-20 And (DateValue([created_date]))<=Date()-10));"

Set rs = Db.OpenRecordset(SQL)