You can't do this within a query, but you could create a query on the fly in code:
Function dynamictablename()
Dim tblname As String
Dim sql As String
tblname = "tbl_EXTRACT" & Format(Now(), "ddmmyy")
sql = "SELECT dummytable.* INTO " & tblname & " from dummytable;"
DoCmd.RunSQL (sql)
End...